From b6a3f40bd9012b08f775181a3aa4cc22f41c6a8c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 15 Jun 2018 17:20:52 -0400 Subject: [PATCH] Use a custom implementation of promises. Saves 43 definitions and 397 lines of (de)compiled code. --- racket/src/expander/common/promise.rkt | 22 + racket/src/expander/eval/module.rkt | 2 +- racket/src/expander/expand/context.rkt | 2 +- racket/src/expander/expand/module.rkt | 2 +- racket/src/expander/namespace/namespace.rkt | 2 +- racket/src/racket/src/startup.inc | 7133 +++++++++---------- 6 files changed, 3383 insertions(+), 3780 deletions(-) create mode 100644 racket/src/expander/common/promise.rkt diff --git a/racket/src/expander/common/promise.rkt b/racket/src/expander/common/promise.rkt new file mode 100644 index 0000000000..b1ff8b6800 --- /dev/null +++ b/racket/src/expander/common/promise.rkt @@ -0,0 +1,22 @@ +#lang racket/base + +(provide delay force) +;; This version of promises does _not_ handle re-entrance detection, +;; exceptions, or multiple value returns. + +;; val is a thunk or the eventual value +;; status is whether the thunk has been forced already +(struct promise (val status) #:mutable #:authentic) + +(define-syntax-rule (delay e) (promise (lambda () e) #f)) + +(define (force v) + (cond [(promise? v) + (define s (promise-status v)) + (cond [(not s) + (define result ((promise-val v))) + (set-promise-val! v result) + (set-promise-status! v #t) + result] + [else (promise-val v)])] + [else v])) diff --git a/racket/src/expander/eval/module.rkt b/racket/src/expander/eval/module.rkt index c56f893938..afa1528bb9 100644 --- a/racket/src/expander/eval/module.rkt +++ b/racket/src/expander/eval/module.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require racket/promise +(require "../common/promise.rkt" "../common/performance.rkt" "../namespace/namespace.rkt" "../namespace/module.rkt" diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index 5e5445cbb1..33a0eb0b12 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require racket/promise +(require "../common/promise.rkt" "../common/struct-star.rkt" "../syntax/syntax.rkt" "../syntax/scope.rkt" diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 503b4080fb..a180baaf3f 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require racket/promise +(require "../common/promise.rkt" "../common/struct-star.rkt" "../common/performance.rkt" "../syntax/syntax.rkt" diff --git a/racket/src/expander/namespace/namespace.rkt b/racket/src/expander/namespace/namespace.rkt index 8b0d769b26..f4eac65c95 100644 --- a/racket/src/expander/namespace/namespace.rkt +++ b/racket/src/expander/namespace/namespace.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require racket/promise +(require "../common/promise.rkt" "../common/phase.rkt" "../common/small-hash.rkt" "../syntax/bulk-binding.rkt" diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 3ca73c9fd3..3da06a758f 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -4720,145 +4720,17 @@ static const char *startup_source = "(1/make-resolved-module-path" "(if(pair? default-name_0)(cons root-name_1(cdr default-name_0)) root-name_1)))))))" "(define-values" -"(force/composable)" -"(lambda(root_1)" -"(begin" -"(let-values(((v_47)(unsafe-struct-ref root_1 0)))" -"(if(procedure? v_47)" -"(let-values()" -"(begin" -"(unsafe-struct-set! root_1 0(make-running(object-name v_47)))" -"(call-with-exception-handler" -"(lambda(e_5)(begin(unsafe-struct-set! root_1 0(make-reraise e_5)) e_5))" -"(lambda()" -"((letrec-values(((loop_63)" -"(lambda(v_48)" -"(begin" -" 'loop" -"(if(composable-promise? v_48)" -"(let-values()" -"(let-values(((v*_0)(unsafe-struct-ref v_48 0)))" -"(begin" -"(unsafe-struct-set! v_48 0 root_1)" -"(if(procedure? v*_0)" -"(let-values()(loop_63(v*_0)))" -"(if(pair? v*_0)" -"(let-values()" -"(begin(unsafe-struct-set! root_1 0 v*_0)(unsafe-car v*_0)))" -"(let-values()(loop_63 v*_0)))))))" -"(if(promise? v_48)" -"(let-values()(begin(unsafe-struct-set! root_1 0 v_48)(force v_48)))" -"(let-values()(begin(unsafe-struct-set! root_1 0(list v_48)) v_48))))))))" -" loop_63)" -"(v_47))))))" -"(if(pair? v_47)" -"(let-values()(if(null?(unsafe-cdr v_47))(unsafe-car v_47)(apply values v_47)))" -"(if(composable-promise? v_47)" -"(let-values()(force/composable v_47))" -"(if(null? v_47)" -"(let-values()(values))" -"(if(promise? v_47)" -"(let-values()(force v_47))" -" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_47)))))))))))" -"(define-values" -"(reify-result)" -"(lambda(v_49)" -"(begin" -"(if(pair? v_49)" -"(let-values()(if(null?(unsafe-cdr v_49))(unsafe-car v_49)(apply values v_49)))" -"(if(null? v_49)" -"(let-values()(values))" -"(if(reraise? v_49)" -"(let-values()(v_49))" -" (let-values () (error 'force \"promise with invalid contents: ~e\" v_49))))))))" -"(define-values" -"(force/generic)" -"(lambda(promise_0)" -"(begin" -"(reify-result" -"(let-values(((v_50)(unsafe-struct-ref promise_0 0)))" -"(if(procedure? v_50)" -"(begin" -"(unsafe-struct-set! promise_0 0(make-running(object-name v_50)))" -"(call-with-exception-handler" -"(lambda(e_10)(begin(unsafe-struct-set! promise_0 0(make-reraise e_10)) e_10))" -"(lambda()" -"(let-values(((vs_0)(call-with-values v_50 list)))" -"(begin(unsafe-struct-set! promise_0 0 vs_0) vs_0)))))" -" v_50))))))" -"(define-values" -"(force)" -"(lambda(promise_1)(begin(if(promise? promise_1)((promise-forcer promise_1) promise_1) promise_1))))" -"(define-values" -"(promise-printer)" -"(lambda(promise_2 port_2 write?_0)" -"(begin" -"((letrec-values(((loop_64)" -"(lambda(v_51)" -"(begin" -" 'loop" -"(if(reraise? v_51)" -"(let-values()" -"(let-values(((r_20)(reraise-val v_51)))" -"(if(exn? r_20)" -"(fprintf" -" port_2" -" (if write?_0 \"#\" \"#\")" -"(exn-message r_20))" -" (fprintf port_2 (if write?_0 \"#\" \"#\") r_20))))" -"(if(running? v_51)" -"(let-values()" -"(let-values(((r_21)(running-name v_51)))" -"(if r_21" -" (fprintf port_2 \"#\" r_21)" -" (fprintf port_2 \"#\"))))" -"(if(procedure? v_51)" -"(let-values()" -"(let-values(((c1_18)(object-name v_51)))" -"(if c1_18" -" ((lambda (n_19) (fprintf port_2 \"#\" n_19)) c1_18)" -" (let-values () (display \"#\" port_2)))))" -"(if(promise? v_51)" -"(let-values()(loop_64(unsafe-struct-ref v_51 0)))" -"(if(null? v_51)" -" (let-values () (fprintf port_2 \"#\"))" -"(if(null?(cdr v_51))" -"(let-values()" -" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_51)))" -"(let-values()" -"(begin" -" (display \"#\" port_2)))))))))))))" -" loop_64)" -"(unsafe-struct-ref promise_2 0)))))" -"(define-values" -"(prop:force promise-forcer)" -"(let-values(((prop_0 pred?_0 get_0)" -"(make-struct-type-property" -" 'forcer" -"(lambda(v_52 info_0)" -"(begin" -"(if(if(procedure? v_52)(procedure-arity-includes? v_52 1) #f)" -"(void)" -" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_52)))" -" v_52))" -" null" -" #t)))" -"(values prop_0 get_0)))" -"(define-values" -"(struct:promise make-promise promise? promise-val set-promise-val!)" +"(struct:promise promise1.1 promise? promise-val promise-status set-promise-val! set-promise-status!)" "(let-values(((struct:_3 make-_3 ?_3 -ref_3 -set!_3)" "(let-values()" "(let-values()" "(make-struct-type" " 'promise" " #f" -" 1" +" 2" " 0" " #f" -"(list(cons prop:force force/generic)(cons prop:custom-write promise-printer))" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '()" @@ -4869,303 +4741,22 @@ static const char *startup_source = " make-_3" " ?_3" "(make-struct-field-accessor -ref_3 0 'val)" -"(make-struct-field-mutator -set!_3 0 'val))))" +"(make-struct-field-accessor -ref_3 1 'status)" +"(make-struct-field-mutator -set!_3 0 'val)" +"(make-struct-field-mutator -set!_3 1 'status))))" "(define-values" -"(struct:composable-promise make-composable-promise composable-promise?)" -"(let-values(((struct:_4 make-_4 ?_4 -ref_4 -set!_4)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'composable-promise" -" struct:promise" -" 0" -" 0" -" #f" -"(list(cons prop:force force/composable))" -"(current-inspector)" -" #f" -" '()" -" #f" -" 'composable-promise)))))" -"(values struct:_4 make-_4 ?_4)))" -"(define-values(delay) make-promise)" -"(define-values" -"(struct:reraise make-reraise reraise? reraise-val)" -"(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'reraise" -" #f" -" 1" -" 0" -" #f" -"(list(cons prop:procedure(lambda(this_0)(raise(reraise-val this_0)))))" -"(current-inspector)" -" #f" -" '(0)" -" #f" -" 'reraise)))))" -"(values struct:_5 make-_5 ?_5(make-struct-field-accessor -ref_5 0 'val))))" -"(define-values" -"(struct:running make-running running? running-name)" -"(let-values(((struct:_6 make-_6 ?_6 -ref_6 -set!_6)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'running" -" #f" -" 1" -" 0" -" #f" -"(list" -"(cons" -" prop:custom-write" -"(lambda(this_1 port_3 write?_1)" -" (fprintf port_3 (if write?_1 \"#\" \"#\") (running-name this_1))))" -"(cons" -" prop:procedure" -"(lambda(this_2)" -"(let-values(((name_14)(running-name this_2)))" -"(if name_14" -" (error 'force \"reentrant promise `~.s'\" name_14)" -" (error 'force \"reentrant promise\"))))))" -"(current-inspector)" -" #f" -" '(0)" -" #f" -" 'running)))))" -"(values struct:_6 make-_6 ?_6(make-struct-field-accessor -ref_6 0 'name))))" -"(define-values" -"(struct:promise/name make-promise/name promise/name?)" -"(let-values(((struct:_7 make-_7 ?_7 -ref_7 -set!_7)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'promise/name" -" struct:promise" -" 0" -" 0" -" #f" -"(list(cons prop:force(lambda(p_9)((unsafe-struct-ref p_9 0)))))" -"(current-inspector)" -" #f" -" '()" -" #f" -" 'promise/name)))))" -"(values struct:_7 make-_7 ?_7)))" -"(define-values" -"(struct:promise/strict make-promise/strict promise/strict?)" -"(let-values(((struct:_8 make-_8 ?_8 -ref_8 -set!_8)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'promise/strict" -" struct:promise" -" 0" -" 0" -" #f" -"(list(cons prop:force(lambda(p_10)(reify-result(unsafe-struct-ref p_10 0)))))" -"(current-inspector)" -" #f" -" '()" -" #f" -" 'promise/strict)))))" -"(values struct:_8 make-_8 ?_8)))" -"(define-values" -"(struct:running-thread make-running-thread running-thread? running-thread-thread)" -"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'running-thread" -" struct:running" -" 1" -" 0" -" #f" -" null" -"(current-inspector)" -" #f" -" '(0)" -" #f" -" 'running-thread)))))" -"(values struct:_9 make-_9 ?_9(make-struct-field-accessor -ref_9 0 'thread))))" -"(define-values" -"(struct:syncinfo" -" make-syncinfo" -" syncinfo?" -" syncinfo-thunk" -" syncinfo-done-evt" -" syncinfo-done-sema" -" syncinfo-access-sema" -" set-syncinfo-thunk!)" -"(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'syncinfo" -" #f" -" 4" -" 0" -" #f" -"(list(cons new-prop:procedure(case-lambda)))" -"(current-inspector)" -" #f" -" '(1 2 3)" -" #f" -" 'syncinfo)))))" -"(values" -" struct:_10" -" make-_10" -" ?_10" -"(make-struct-field-accessor -ref_10 0 'thunk)" -"(make-struct-field-accessor -ref_10 1 'done-evt)" -"(make-struct-field-accessor -ref_10 2 'done-sema)" -"(make-struct-field-accessor -ref_10 3 'access-sema)" -"(make-struct-field-mutator -set!_10 0 'thunk))))" -"(define-values" -"(struct:promise/sync make-promise/sync promise/sync?)" -"(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'promise/sync" -" struct:promise" -" 0" -" 0" -" #f" -"(list" -"(cons" -" prop:evt" -"(lambda(p_11)" -"(let-values(((v_53)(unsafe-struct-ref p_11 0)))" -"(wrap-evt(if(syncinfo? v_53)(syncinfo-done-evt v_53) always-evt) void))))" -"(cons" -" prop:force" -"(lambda(p_12)" -"(let-values(((v_54)(unsafe-struct-ref p_12 0)))" -"(reify-result" -"(if(not(syncinfo? v_54))" -"(let-values() v_54)" -"(if(running-thread?(syncinfo-thunk v_54))" -"(let-values()" -"(let-values(((r_22)(syncinfo-thunk v_54)))" -"(if(eq?(running-thread-thread r_22)(current-thread))" -"(r_22)" -"(begin(sync(syncinfo-done-evt v_54))(unsafe-struct-ref p_12 0)))))" -"(let-values()" +"(force)" +"(lambda(v_47)" "(begin" -"(call-with-semaphore" -"(syncinfo-access-sema v_54)" -"(lambda(p_13 v_55)" -"(let-values(((thunk_4)(syncinfo-thunk v_55)))" -"(let-values(((done_0)(syncinfo-done-sema v_55)))" -"(if(running-thread? thunk_4)" -"(void)" +"(if(promise? v_47)" "(let-values()" -"(begin" -"(set-syncinfo-thunk!" -" v_55" -"(make-running-thread(object-name thunk_4)(current-thread)))" -"(call-with-exception-handler" -"(lambda(e_11)" -"(begin" -"(unsafe-struct-set! p_13 0(make-reraise e_11))" -"(semaphore-post done_0)" -" e_11))" -"(lambda()" -"(begin" -"(unsafe-struct-set! p_13 0(call-with-values thunk_4 list))" -"(semaphore-post done_0))))))))))" -" #f" -" p_12" -" v_54)" -"(unsafe-struct-ref p_12 0)))))))))" -"(cons" -" prop:custom-write" -"(lambda(p_14 port_4 write?_2)" -"(let-values(((v_56)(unsafe-struct-ref p_14 0)))" -"(promise-printer" -"(if(syncinfo? v_56)(make-promise(syncinfo-thunk v_56)) p_14)" -" port_4" -" write?_2)))))" -"(current-inspector)" -" #f" -" '()" -" #f" -" 'promise/sync)))))" -"(values struct:_11 make-_11 ?_11)))" -"(define-values" -"(struct:promise/thread make-promise/thread promise/thread?)" -"(let-values(((struct:_12 make-_12 ?_12 -ref_12 -set!_12)" +"(let-values(((s_5)(promise-status v_47)))" +"(if(not s_5)" "(let-values()" -"(let-values()" -"(make-struct-type" -" 'promise/thread" -" struct:promise" -" 0" -" 0" -" #f" -"(list" -"(cons" -" prop:evt" -"(lambda(p_15)" -"(let-values(((v_57)(unsafe-struct-ref p_15 0)))" -"(wrap-evt(if(running? v_57)(running-thread-thread v_57) always-evt) void))))" -"(cons" -" prop:force" -"(lambda(p_16)" -"(let-values(((v_58)(unsafe-struct-ref p_16 0)))" -"(reify-result" -"(if(running-thread? v_58)" -"(let-values(((t_13)(running-thread-thread v_58)))" -"(let-values((()(begin(thread-wait t_13)(values))))" -"(let-values(((v_59)(unsafe-struct-ref p_16 0)))" -"(if(running-thread? v_59)" -"(error" -" 'force" -" \"promise's thread terminated ~a\\n promise: ~e\"" -" \"without result or exception\"" -" p_16)" -" v_59))))" -" v_58))))))" -"(current-inspector)" -" #f" -" '()" -" #f" -" 'promise/thread)))))" -"(values struct:_12 make-_12 ?_12)))" -"(define-values" -"(struct:promise/idle make-promise/idle promise/idle?)" -"(let-values(((struct:_13 make-_13 ?_13 -ref_13 -set!_13)" -"(let-values()" -"(let-values()" -"(make-struct-type" -" 'promise/idle" -" struct:promise/thread" -" 0" -" 0" -" #f" -"(list" -"(cons" -" prop:force" -"(lambda(p_17)" -"(let-values(((v_60)(unsafe-struct-ref p_17 0)))" -"(reify-result" -"(if(procedure? v_60)" -"(let-values(((controller_0)" -"(if(running-thread? v_60)(running-thread-thread v_60)(v_60))))" -"(begin" -"(thread-send controller_0 'force!)" -"(thread-wait controller_0)" -"(unsafe-struct-ref p_17 0)))" -" v_60))))))" -"(current-inspector)" -" #f" -" '()" -" #f" -" 'promise/idle)))))" -"(values struct:_13 make-_13 ?_13)))" +"(let-values(((result_28)((promise-val v_47))))" +"(begin(set-promise-val! v_47 result_28)(set-promise-status! v_47 #t) result_28)))" +"(let-values()(promise-val v_47)))))" +"(let-values() v_47)))))" "(define-values" "(phase?)" "(lambda(v_29)(begin(let-values(((or-part_0)(not v_29)))(if or-part_0 or-part_0(exact-integer? v_29))))))" @@ -5289,8 +4880,8 @@ static const char *startup_source = "(let-values(((or-part_63)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" "(if or-part_63" " or-part_63" -"(let-values(((v_61)(cons(car mpi-shifts_0) tail_0)))" -"(begin(hash-set! tail-table_0(car mpi-shifts_0) v_61) v_61)))))))))))" +"(let-values(((v_48)(cons(car mpi-shifts_0) tail_0)))" +"(begin(hash-set! tail-table_0(car mpi-shifts_0) v_48) v_48)))))))))))" "(define-values" "(intern-context-triple)" "(lambda(scs_1 sms_1 mpi-shifts_1 state_5)" @@ -5315,17 +4906,17 @@ static const char *startup_source = "(intern-properties)" "(lambda(all-props_0 get-preserved-props_0 state_6)" "(begin" -"(let-values(((v_50)(hash-ref(serialize-state-props state_6) all-props_0 'no)))" -"(if(eq? v_50 'no)" +"(let-values(((v_49)(hash-ref(serialize-state-props state_6) all-props_0 'no)))" +"(if(eq? v_49 'no)" "(let-values()" "(let-values(((preserved-props_0)(get-preserved-props_0)))" -"(let-values(((p_18)" +"(let-values(((p_9)" "(if(zero?(hash-count preserved-props_0))" "(let-values() #f)" -"(let-values(((c1_19)" +"(let-values(((c1_18)" "(hash-ref(serialize-state-interned-props state_6) preserved-props_0 #f)))" -"(if c1_19" -"((lambda(p_19) p_19) c1_19)" +"(if c1_18" +"((lambda(p_10) p_10) c1_18)" "(let-values()" "(begin" "(hash-set!" @@ -5333,12 +4924,12 @@ static const char *startup_source = " preserved-props_0" " preserved-props_0)" " preserved-props_0)))))))" -"(begin(hash-set!(serialize-state-props state_6) all-props_0 p_18) p_18))))" -"(let-values() v_50))))))" +"(begin(hash-set!(serialize-state-props state_6) all-props_0 p_9) p_9))))" +"(let-values() v_49))))))" "(define-values" "(push-syntax-context!)" -"(lambda(state_7 v_54)" -"(begin(let-values(((b_18)(serialize-state-syntax-context state_7)))(set-box! b_18(cons v_54(unbox b_18)))))))" +"(lambda(state_7 v_50)" +"(begin(let-values(((b_18)(serialize-state-syntax-context state_7)))(set-box! b_18(cons v_50(unbox b_18)))))))" "(define-values" "(get-syntax-context)" "(lambda(state_8)" @@ -5372,12 +4963,12 @@ static const char *startup_source = "(if(if(pair? rk_2)(vector?(car rk_2)) #f)" "(if(zero?(vector-length(car rk_2)))(all-fields-immutable?(cdr rk_2)) #f)" "(all-fields-immutable? rk_2))))))))))))" -" (define-values (not-an-fX.1) (lambda (who_7 v_62) (begin 'not-an-fX (raise-argument-error who_7 \"fixnum?\" v_62))))" +" (define-values (not-an-fX.1) (lambda (who_7 v_51) (begin 'not-an-fX (raise-argument-error who_7 \"fixnum?\" v_51))))" "(define-values" "(datum-map-slow)" "(lambda(tail?_0 s_40 f_21 seen_0)" "(begin" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_63)" "(lambda(tail?_1 s_7 prev-seen_0)" "(begin" " 'loop" @@ -5392,7 +4983,7 @@ static const char *startup_source = "(let-values()(f_21 tail?_1 s_7))" "(if(pair? s_7)" "(let-values()" -"(f_21 tail?_1(cons(loop_65 #f(car s_7) seen_1)(loop_65 #t(cdr s_7) seen_1))))" +"(f_21 tail?_1(cons(loop_63 #f(car s_7) seen_1)(loop_63 #t(cdr s_7) seen_1))))" "(if(let-values(((or-part_67)(symbol? s_7)))" "(if or-part_67" " or-part_67" @@ -5413,7 +5004,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_7)))" -"(let-values(((v_63)(make-vector len_7 0)))" +"(let-values(((v_52)(make-vector len_7 0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -5432,7 +5023,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_6 len_8)" -"(let-values(((e_12)" +"(let-values(((e_10)" "(unsafe-vector-ref" " vec_14" " pos_6)))" @@ -5443,23 +5034,23 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_63" +" v_52" " i_42" "(let-values()" -"(loop_65" +"(loop_63" " #f" -" e_12" +" e_10" " seen_1)))" "(unsafe-fx+" " 1" " i_42)))))" "(values i_43)))))" "(if(if(not" -"((lambda x_23" +"((lambda x_22" "(unsafe-fx=" " i_41" " len_7))" -" e_12))" +" e_10))" "(not #f)" " #f)" "(for-loop_21" @@ -5470,11 +5061,11 @@ static const char *startup_source = " for-loop_21)" " 0" " 0)))))" -" v_63)))))))" +" v_52)))))))" "(if(box? s_7)" -"(let-values()(f_21 #f(box-immutable(loop_65 #f(unbox s_7) seen_1))))" -"(let-values(((c1_20)(immutable-prefab-struct-key s_7)))" -"(if c1_20" +"(let-values()(f_21 #f(box-immutable(loop_63 #f(unbox s_7) seen_1))))" +"(let-values(((c1_19)(immutable-prefab-struct-key s_7)))" +"(if c1_19" "((lambda(key_12)" "(f_21" " #f" @@ -5482,12 +5073,12 @@ static const char *startup_source = " make-prefab-struct" " key_12" "(reverse$1" -"(let-values(((v*_1 start*_0 stop*_1 step*_0)" +"(let-values(((v*_0 start*_0 stop*_1 step*_0)" "(normalise-inputs" " 'in-vector" " \"vector\"" "(lambda(x_14)(vector? x_14))" -"(lambda(x_24)(unsafe-vector-length x_24))" +"(lambda(x_23)(unsafe-vector-length x_23))" "(struct->vector s_7)" " 1" " #f" @@ -5499,9 +5090,9 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< idx_0 stop*_1)" -"(let-values(((e_13)" +"(let-values(((e_11)" "(unsafe-vector-ref" -" v*_1" +" v*_0" " idx_0)))" "(let-values(((fold-var_18)" "(let-values(((fold-var_19)" @@ -5510,9 +5101,9 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_65" +"(loop_63" " #f" -" e_13" +" e_11" " seen_1))" " fold-var_19))))" "(values" @@ -5526,7 +5117,7 @@ static const char *startup_source = " for-loop_26)" " null" " start*_0)))))))" -" c1_20)" +" c1_19)" "(if(if(hash? s_7)(immutable? s_7) #f)" "(let-values()" "(if(hash-eq? s_7)" @@ -5543,7 +5134,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_44" -"(let-values(((k_11 v_64)" +"(let-values(((k_11 v_53)" "(hash-iterate-key+value" " ht_26" " i_44)))" @@ -5557,9 +5148,9 @@ static const char *startup_source = "(let-values()" "(values" " k_11" -"(loop_65" +"(loop_63" " #f" -" v_64" +" v_53" " seen_1)))))" "(hash-set" " table_18" @@ -5590,7 +5181,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_45" -"(let-values(((k_12 v_65)" +"(let-values(((k_12 v_54)" "(hash-iterate-key+value" " ht_27" " i_45)))" @@ -5604,9 +5195,9 @@ static const char *startup_source = "(let-values()" "(values" " k_12" -"(loop_65" +"(loop_63" " #f" -" v_65" +" v_54" " seen_1)))))" "(hash-set" " table_12" @@ -5638,7 +5229,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_46" -"(let-values(((k_13 v_66)" +"(let-values(((k_13 v_55)" "(hash-iterate-key+value" " ht_25" " i_46)))" @@ -5652,9 +5243,9 @@ static const char *startup_source = "(let-values()" "(values" " k_13" -"(loop_65" +"(loop_63" " #f" -" v_66" +" v_55" " seen_1)))))" "(hash-set" " table_23" @@ -5674,7 +5265,7 @@ static const char *startup_source = " '#hash()" "(hash-iterate-first ht_25)))))))))" "(let-values()(f_21 #f s_7)))))))))))))))" -" loop_65)" +" loop_63)" " tail?_0" " s_40" " seen_0))))" @@ -5718,67 +5309,67 @@ static const char *startup_source = "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'content))))" "(define-values" "(plain-property-value)" -"(lambda(v_67)(begin(if(preserved-property-value? v_67)(preserved-property-value-content v_67) v_67))))" +"(lambda(v_56)(begin(if(preserved-property-value? v_56)(preserved-property-value-content v_56) v_56))))" "(define-values" "(check-value-to-preserve)" -"(lambda(v_68 syntax?_0)" +"(lambda(v_57 syntax?_0)" "(begin" "(let-values(((check-preserve_0)" -"(lambda(tail?_2 v_69)" +"(lambda(tail?_2 v_58)" "(begin" " 'check-preserve" "(begin" -"(if(let-values(((or-part_72)(null? v_69)))" +"(if(let-values(((or-part_72)(null? v_58)))" "(if or-part_72" " or-part_72" -"(let-values(((or-part_73)(boolean? v_69)))" +"(let-values(((or-part_73)(boolean? v_58)))" "(if or-part_73" " or-part_73" -"(let-values(((or-part_74)(symbol? v_69)))" +"(let-values(((or-part_74)(symbol? v_58)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(number? v_69)))" +"(let-values(((or-part_75)(number? v_58)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)(char? v_69)))" +"(let-values(((or-part_76)(char? v_58)))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_77)(string? v_69)))" +"(let-values(((or-part_77)(string? v_58)))" "(if or-part_77" " or-part_77" -"(let-values(((or-part_29)(bytes? v_69)))" +"(let-values(((or-part_29)(bytes? v_58)))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_78)(regexp? v_69)))" +"(let-values(((or-part_78)(regexp? v_58)))" "(if or-part_78" " or-part_78" -"(let-values(((or-part_79)(syntax?_0 v_69)))" +"(let-values(((or-part_79)(syntax?_0 v_58)))" "(if or-part_79" " or-part_79" -"(let-values(((or-part_80)(pair? v_69)))" +"(let-values(((or-part_80)(pair? v_58)))" "(if or-part_80" " or-part_80" -"(let-values(((or-part_81)(vector? v_69)))" +"(let-values(((or-part_81)(vector? v_58)))" "(if or-part_81" " or-part_81" -"(let-values(((or-part_82)(box? v_69)))" +"(let-values(((or-part_82)(box? v_58)))" "(if or-part_82" " or-part_82" -"(let-values(((or-part_83)(hash? v_69)))" +"(let-values(((or-part_83)(hash? v_58)))" "(if or-part_83" " or-part_83" "(immutable-prefab-struct-key" -" v_69)))))))))))))))))))))))))))" +" v_58)))))))))))))))))))))))))))" "(void)" "(let-values()" "(raise-arguments-error" " 'write" " \"disallowed value in preserved syntax property\"" " \"value\"" -" v_69)))" -" v_69)))))" -"(let-values(((s_41) v_68)((f_22) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" -"((letrec-values(((loop_66)" +" v_58)))" +" v_58)))))" +"(let-values(((s_41) v_57)((f_22) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" +"((letrec-values(((loop_64)" "(lambda(tail?_3 s_42 prev-depth_0)" "(begin" " 'loop" @@ -5792,7 +5383,7 @@ static const char *startup_source = "(let-values()" "(f_22" " tail?_3" -"(cons(loop_66 #f(car s_42) depth_0)(loop_66 #t(cdr s_42) depth_0))))" +"(cons(loop_64 #f(car s_42) depth_0)(loop_64 #t(cdr s_42) depth_0))))" "(if(symbol? s_42)" "(let-values()(f_22 #f s_42))" "(if(boolean? s_42)" @@ -5814,7 +5405,7 @@ static const char *startup_source = "(lambda(tail?_5 s_44)(gf_0 tail?_5 s_44))" " seen_2))" "(let-values()(gf_0 #f s_42))))))))))))))" -" loop_66)" +" loop_64)" " #f" " s_41" " 0))))))" @@ -5822,24 +5413,24 @@ static const char *startup_source = "(disallow-cycles$1)" "(hash" " 'cycle-fail" -" (lambda (v_70) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_70))))" +" (lambda (v_59) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_59))))" "(define-values" "(tamper?)" "(lambda(v_29)" "(begin" "(let-values(((or-part_0)(not v_29)))" "(if or-part_0 or-part_0(let-values(((or-part_1)(symbol? v_29)))(if or-part_1 or-part_1(set? v_29))))))))" -"(define-values(tamper-tainted?)(lambda(v_71)(begin(symbol? v_71))))" -"(define-values(tamper-armed?)(lambda(v_72)(begin(set? v_72))))" +"(define-values(tamper-tainted?)(lambda(v_60)(begin(symbol? v_60))))" +"(define-values(tamper-armed?)(lambda(v_61)(begin(set? v_61))))" "(define-values(tamper-clean?)(lambda(v_27)(begin(not v_27))))" "(define-values" "(tamper-tainted-for-content)" -"(lambda(v_73)(begin(if(datum-has-elements? v_73) 'tainted/need-propagate 'tainted))))" -"(define-values(tamper-needs-propagate?)(lambda(t_14)(begin(eq? t_14 'tainted/need-propagate))))" -"(define-values(tamper-propagated)(lambda(t_15)(begin(if(eq? t_15 'tainted/need-propagate) 'tainted t_15))))" -"(define-values(serialize-tamper)(lambda(t_16)(begin(if(tamper-armed? t_16) 'armed t_16))))" +"(lambda(v_62)(begin(if(datum-has-elements? v_62) 'tainted/need-propagate 'tainted))))" +"(define-values(tamper-needs-propagate?)(lambda(t_13)(begin(eq? t_13 'tainted/need-propagate))))" +"(define-values(tamper-propagated)(lambda(t_14)(begin(if(eq? t_14 'tainted/need-propagate) 'tainted t_14))))" +"(define-values(serialize-tamper)(lambda(t_15)(begin(if(tamper-armed? t_15) 'armed t_15))))" "(define-values(current-arm-inspectors)(make-parameter(seteq)))" -"(define-values(deserialize-tamper)(lambda(t_17)(begin(if(eq? t_17 'armed)(current-arm-inspectors) t_17))))" +"(define-values(deserialize-tamper)(lambda(t_16)(begin(if(eq? t_16 'armed)(current-arm-inspectors) t_16))))" "(define-values" "(struct:syntax" " syntax1.1" @@ -5854,7 +5445,7 @@ static const char *startup_source = " syntax-inspector" " set-syntax-content!" " set-syntax-scope-propagations+tamper!)" -"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)" +"(let-values(((struct:_4 make-_4 ?_4 -ref_4 -set!_4)" "(let-values()" "(let-values()" "(make-struct-type" @@ -5868,10 +5459,10 @@ static const char *startup_source = "(cons" " prop:reach-scopes" "(lambda(s_45 reach_0)" -"(let-values(((prop_1)(syntax-scope-propagations+tamper s_45)))" +"(let-values(((prop_0)(syntax-scope-propagations+tamper s_45)))" "(begin" "(reach_0" -"(if(propagation?$1 prop_1)((propagation-ref prop_1) s_45)(syntax-content s_45)))" +"(if(propagation?$1 prop_0)((propagation-ref prop_0) s_45)(syntax-content s_45)))" "(reach_0(syntax-scopes s_45))" "(reach_0(syntax-shifted-multi-scopes s_45))" "(let-values(((ht_17)(syntax-props s_45)))" @@ -5884,13 +5475,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_47" -"(let-values(((k_14 v_74)" +"(let-values(((k_14 v_63)" "(unsafe-immutable-hash-iterate-key+value" " ht_17" " i_47)))" "(let-values((()" "(let-values()" -"(if(preserved-property-value? v_74)" +"(if(preserved-property-value? v_63)" "(let-values()" "(let-values((()" "(let-values()" @@ -5898,7 +5489,7 @@ static const char *startup_source = "(let-values()" "(reach_0" "(plain-property-value" -" v_74)))" +" v_63)))" "(values)))))" "(values)))" "(values)))))" @@ -5914,10 +5505,10 @@ static const char *startup_source = "(cons" " prop:serialize" "(lambda(s_46 ser-push!_1 state_10)" -"(let-values(((prop_2)(syntax-scope-propagations+tamper s_46)))" +"(let-values(((prop_1)(syntax-scope-propagations+tamper s_46)))" "(let-values(((content_0)" -"(if(propagation?$1 prop_2)" -"((propagation-ref prop_2) s_46)" +"(if(propagation?$1 prop_1)" +"((propagation-ref prop_1) s_46)" "(syntax-content s_46))))" "(let-values(((properties_0)" "(intern-properties" @@ -5933,7 +5524,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_48" -"(let-values(((k_15 v_75)" +"(let-values(((k_15 v_64)" "(hash-iterate-key+value" " ht_28" " i_48)))" @@ -5941,7 +5532,7 @@ static const char *startup_source = "(let-values(((table_27)" " table_25))" "(if(preserved-property-value?" -" v_75)" +" v_64)" "(let-values(((table_28)" " table_27))" "(let-values(((table_29)" @@ -5953,7 +5544,7 @@ static const char *startup_source = " k_15" "(check-value-to-preserve" "(plain-property-value" -" v_75)" +" v_64)" " syntax?$1)))))" "(hash-set" " table_28" @@ -6064,36 +5655,36 @@ static const char *startup_source = "(void))))))))))))))" "(cons" " prop:custom-write" -"(lambda(s_47 port_5 mode_5)" -" (let-values ((() (begin (write-string \"#string srcloc_0)))" -" (if srcloc-str_0 (let-values () (fprintf port_5 \":~a\" srcloc-str_0)) (void))))" +" (if srcloc-str_0 (let-values () (fprintf port_2 \":~a\" srcloc-str_0)) (void))))" "(void))" -" (fprintf port_5 \" ~.s\" (syntax->datum$1 s_47))" -" (write-string \">\" port_5)))))))" +" (fprintf port_2 \" ~.s\" (syntax->datum$1 s_47))" +" (write-string \">\" port_2)))))))" "(current-inspector)" " #f" " '(1 2 4 5 6 7)" " #f" " 'syntax)))))" "(values" -" struct:_14" -" make-_14" -" ?_14" -"(make-struct-field-accessor -ref_14 0 'content)" -"(make-struct-field-accessor -ref_14 1 'scopes)" -"(make-struct-field-accessor -ref_14 2 'shifted-multi-scopes)" -"(make-struct-field-accessor -ref_14 3 'scope-propagations+tamper)" -"(make-struct-field-accessor -ref_14 4 'mpi-shifts)" -"(make-struct-field-accessor -ref_14 5 'srcloc)" -"(make-struct-field-accessor -ref_14 6 'props)" -"(make-struct-field-accessor -ref_14 7 'inspector)" -"(make-struct-field-mutator -set!_14 0 'content)" -"(make-struct-field-mutator -set!_14 3 'scope-propagations+tamper))))" +" struct:_4" +" make-_4" +" ?_4" +"(make-struct-field-accessor -ref_4 0 'content)" +"(make-struct-field-accessor -ref_4 1 'scopes)" +"(make-struct-field-accessor -ref_4 2 'shifted-multi-scopes)" +"(make-struct-field-accessor -ref_4 3 'scope-propagations+tamper)" +"(make-struct-field-accessor -ref_4 4 'mpi-shifts)" +"(make-struct-field-accessor -ref_4 5 'srcloc)" +"(make-struct-field-accessor -ref_4 6 'props)" +"(make-struct-field-accessor -ref_4 7 'inspector)" +"(make-struct-field-mutator -set!_4 0 'content)" +"(make-struct-field-mutator -set!_4 3 'scope-propagations+tamper))))" "(define-values(prop:propagation propagation?$1 propagation-ref)(make-struct-type-property 'propagation))" "(define-values" "(prop:propagation-tamper propagation-tamper? propagation-tamper-ref)" @@ -6105,8 +5696,8 @@ static const char *startup_source = "(syntax-tamper)" "(lambda(s_32)" "(begin" -"(let-values(((v_76)(syntax-scope-propagations+tamper s_32)))" -"(if(tamper? v_76) v_76((propagation-tamper-ref v_76) v_76))))))" +"(let-values(((v_65)(syntax-scope-propagations+tamper s_32)))" +"(if(tamper? v_65) v_65((propagation-tamper-ref v_65) v_65))))))" "(define-values(empty-scopes)(seteq))" "(define-values(empty-shifted-multi-scopes)(seteq))" "(define-values(empty-mpi-shifts) null)" @@ -6122,7 +5713,7 @@ static const char *startup_source = "(begin" " 'syntax->datum" "(let-values(((s_51) s_50)" -"((f_23)(lambda(tail?_6 x_25)(begin 'f x_25)))" +"((f_23)(lambda(tail?_6 x_24)(begin 'f x_24)))" "((d->s_0)(lambda(s_52 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" @@ -6133,14 +5724,14 @@ static const char *startup_source = "(let-values(((s_54) s_53)" "((f_24) f_23)" "((gf_1)" -"(lambda(tail?_7 v_77)" +"(lambda(tail?_7 v_66)" "(begin" " 'gf" -"(if(syntax?$1 v_77)" -"(let-values()(d->s_0 v_77(loop_59(s-e_0 v_77))))" -"(let-values()(f_23 tail?_7 v_77))))))" +"(if(syntax?$1 v_66)" +"(let-values()(d->s_0 v_66(loop_59(s-e_0 v_66))))" +"(let-values()(f_23 tail?_7 v_66))))))" "((seen_4) seen_3))" -"((letrec-values(((loop_67)" +"((letrec-values(((loop_65)" "(lambda(tail?_8 s_55 prev-depth_1)" "(begin" " 'loop" @@ -6159,8 +5750,8 @@ static const char *startup_source = "(f_24" " tail?_8" "(cons" -"(loop_67 #f(car s_55) depth_1)" -"(loop_67 #t(cdr s_55) depth_1))))" +"(loop_65 #f(car s_55) depth_1)" +"(loop_65 #t(cdr s_55) depth_1))))" "(if(symbol? s_55)" "(let-values()(f_24 #f s_55))" "(if(boolean? s_55)" @@ -6185,7 +5776,7 @@ static const char *startup_source = "(lambda(tail?_10 s_57)(gf_1 tail?_10 s_57))" " seen_4))" "(let-values()(gf_1 #f s_55))))))))))))))" -" loop_67)" +" loop_65)" " #f" " s_54" " 0))))))" @@ -6227,21 +5818,21 @@ static const char *startup_source = "(let-values(((result-s_0)" "(let-values(((s_59) s_58)" "((f_25)" -"(lambda(tail?_11 x_26)" -"(begin 'f(if tail?_11 x_26(wrap_0 x_26)))))" +"(lambda(tail?_11 x_25)" +"(begin 'f(if tail?_11 x_25(wrap_0 x_25)))))" "((s->_0)(lambda(s_60)(begin 's-> s_60)))" "((seen_5) disallow-cycles))" "(let-values(((s_61) s_59)" "((f_26) f_25)" "((gf_2)" -"(lambda(tail?_12 v_78)" +"(lambda(tail?_12 v_67)" "(begin" " 'gf" -"(if(syntax?$1 v_78)" -"(let-values()(s->_0 v_78))" -"(let-values()(f_25 tail?_12 v_78))))))" +"(if(syntax?$1 v_67)" +"(let-values()(s->_0 v_67))" +"(let-values()(f_25 tail?_12 v_67))))))" "((seen_6) seen_5))" -"((letrec-values(((loop_68)" +"((letrec-values(((loop_66)" "(lambda(tail?_13 s_62 prev-depth_2)" "(begin" " 'loop" @@ -6262,8 +5853,8 @@ static const char *startup_source = "(f_26" " tail?_13" "(cons" -"(loop_68 #f(car s_62) depth_2)" -"(loop_68" +"(loop_66 #f(car s_62) depth_2)" +"(loop_66" " #t" "(cdr s_62)" " depth_2))))" @@ -6301,7 +5892,7 @@ static const char *startup_source = "(gf_2" " #f" " s_62))))))))))))))" -" loop_68)" +" loop_66)" " #f" " s_61" " 0)))))" @@ -6337,34 +5928,34 @@ static const char *startup_source = " syntax-state-context-triple" " syntax-state-srcloc" " set-syntax-state-all-sharing?!)" -"(let-values(((struct:_15 make-_15 ?_15 -ref_15 -set!_15)" +"(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type 'syntax-state #f 3 0 #f null(current-inspector) #f '(1 2) #f 'syntax-state)))))" "(values" -" struct:_15" -" make-_15" -" ?_15" -"(make-struct-field-accessor -ref_15 0 'all-sharing?)" -"(make-struct-field-accessor -ref_15 1 'context-triple)" -"(make-struct-field-accessor -ref_15 2 'srcloc)" -"(make-struct-field-mutator -set!_15 0 'all-sharing?))))" +" struct:_5" +" make-_5" +" ?_5" +"(make-struct-field-accessor -ref_5 0 'all-sharing?)" +"(make-struct-field-accessor -ref_5 1 'context-triple)" +"(make-struct-field-accessor -ref_5 2 'srcloc)" +"(make-struct-field-mutator -set!_5 0 'all-sharing?))))" "(define-values" "(no-pair-syntax-in-cdr?)" "(lambda(content_2)" "(begin" "(if(pair? content_2)" "(let-values()" -"((letrec-values(((loop_69)" +"((letrec-values(((loop_67)" "(lambda(content_3)" "(begin" " 'loop" "(if(if(syntax?$1 content_3)(pair?(syntax-content content_3)) #f)" "(let-values() #f)" "(if(pair? content_3)" -"(let-values()(loop_69(cdr content_3)))" +"(let-values()(loop_67(cdr content_3)))" "(let-values() #t)))))))" -" loop_69)" +" loop_67)" "(cdr content_2)))" "(let-values() #t)))))" "(define-values" @@ -6389,7 +5980,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_49" -"(let-values(((k_16 v_79)(unsafe-immutable-hash-iterate-key+value ht_29 i_49)))" +"(let-values(((k_16 v_68)(unsafe-immutable-hash-iterate-key+value ht_29 i_49)))" "(let-values(((table_31)" "(let-values(((table_32) table_30))" "(let-values(((table_33)" @@ -6399,7 +5990,7 @@ static const char *startup_source = "(values" " k_16" "(preserved-property-value1.1" -" v_79)))))" +" v_68)))))" "(hash-set table_32 key_17 val_8)))))" "(values table_33)))))" "(if(not #f)" @@ -6602,7 +6193,7 @@ static const char *startup_source = " full-module-binding-nominal-require-phase" " full-module-binding-extra-inspector" " full-module-binding-extra-nominal-bindings)" -"(let-values(((struct:_16 make-_16 ?_16 -ref_16 -set!_16)" +"(let-values(((struct:_6 make-_6 ?_6 -ref_6 -set!_6)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6656,18 +6247,18 @@ static const char *startup_source = " #f" " 'full-module-binding)))))" "(values" -" struct:_16" -" make-_16" -" ?_16" -"(make-struct-field-accessor -ref_16 0 'module)" -"(make-struct-field-accessor -ref_16 1 'phase)" -"(make-struct-field-accessor -ref_16 2 'sym)" -"(make-struct-field-accessor -ref_16 3 'nominal-module)" -"(make-struct-field-accessor -ref_16 4 'nominal-phase)" -"(make-struct-field-accessor -ref_16 5 'nominal-sym)" -"(make-struct-field-accessor -ref_16 6 'nominal-require-phase)" -"(make-struct-field-accessor -ref_16 7 'extra-inspector)" -"(make-struct-field-accessor -ref_16 8 'extra-nominal-bindings))))" +" struct:_6" +" make-_6" +" ?_6" +"(make-struct-field-accessor -ref_6 0 'module)" +"(make-struct-field-accessor -ref_6 1 'phase)" +"(make-struct-field-accessor -ref_6 2 'sym)" +"(make-struct-field-accessor -ref_6 3 'nominal-module)" +"(make-struct-field-accessor -ref_6 4 'nominal-phase)" +"(make-struct-field-accessor -ref_6 5 'nominal-sym)" +"(make-struct-field-accessor -ref_6 6 'nominal-require-phase)" +"(make-struct-field-accessor -ref_6 7 'extra-inspector)" +"(make-struct-field-accessor -ref_6 8 'extra-nominal-bindings))))" "(define-values" "(struct:simple-module-binding" " simple-module-binding52.1" @@ -6676,7 +6267,7 @@ static const char *startup_source = " simple-module-binding-phase" " simple-module-binding-sym" " simple-module-binding-nominal-module)" -"(let-values(((struct:_17 make-_17 ?_17 -ref_17 -set!_17)" +"(let-values(((struct:_7 make-_7 ?_7 -ref_7 -set!_7)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6702,13 +6293,13 @@ static const char *startup_source = " #f" " 'simple-module-binding)))))" "(values" -" struct:_17" -" make-_17" -" ?_17" -"(make-struct-field-accessor -ref_17 0 'module)" -"(make-struct-field-accessor -ref_17 1 'phase)" -"(make-struct-field-accessor -ref_17 2 'sym)" -"(make-struct-field-accessor -ref_17 3 'nominal-module))))" +" struct:_7" +" make-_7" +" ?_7" +"(make-struct-field-accessor -ref_7 0 'module)" +"(make-struct-field-accessor -ref_7 1 'phase)" +"(make-struct-field-accessor -ref_7 2 'sym)" +"(make-struct-field-accessor -ref_7 3 'nominal-module))))" "(define-values" "(deserialize-full-module-binding)" "(lambda(module_2" @@ -6794,7 +6385,7 @@ static const char *startup_source = " table-with-bulk-bindings-syms" " table-with-bulk-bindings-syms/serialize" " table-with-bulk-bindings-bulk-bindings)" -"(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" +"(let-values(((struct:_8 make-_8 ?_8 -ref_8 -set!_8)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6818,18 +6409,18 @@ static const char *startup_source = " #f" " 'table-with-bulk-bindings)))))" "(values" -" struct:_18" -" make-_18" -" ?_18" -"(make-struct-field-accessor -ref_18 0 'syms)" -"(make-struct-field-accessor -ref_18 1 'syms/serialize)" -"(make-struct-field-accessor -ref_18 2 'bulk-bindings))))" +" struct:_8" +" make-_8" +" ?_8" +"(make-struct-field-accessor -ref_8 0 'syms)" +"(make-struct-field-accessor -ref_8 1 'syms/serialize)" +"(make-struct-field-accessor -ref_8 2 'bulk-bindings))))" "(define-values" "(deserialize-table-with-bulk-bindings)" "(lambda(syms_1 bulk-bindings_0)(begin(table-with-bulk-bindings1.1 syms_1 syms_1 bulk-bindings_0))))" "(define-values" "(struct:bulk-binding-at bulk-binding-at2.1 bulk-binding-at? bulk-binding-at-scopes bulk-binding-at-bulk)" -"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" +"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6854,11 +6445,11 @@ static const char *startup_source = " #f" " 'bulk-binding-at)))))" "(values" -" struct:_19" -" make-_19" -" ?_19" -"(make-struct-field-accessor -ref_19 0 'scopes)" -"(make-struct-field-accessor -ref_19 1 'bulk))))" +" struct:_9" +" make-_9" +" ?_9" +"(make-struct-field-accessor -ref_9 0 'scopes)" +"(make-struct-field-accessor -ref_9 1 'bulk))))" "(define-values(deserialize-bulk-binding-at)(lambda(scopes_0 bulk_0)(begin(bulk-binding-at2.1 scopes_0 bulk_0))))" "(define-values(prop:bulk-binding bulk-binding?$1 bulk-binding-ref)(make-struct-type-property 'bulk-binding))" "(define-values" @@ -6867,7 +6458,7 @@ static const char *startup_source = " bulk-binding-class?" " bulk-binding-class-get-symbols" " bulk-binding-class-create)" -"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" +"(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6883,11 +6474,11 @@ static const char *startup_source = " #f" " 'bulk-binding-class)))))" "(values" -" struct:_20" -" make-_20" -" ?_20" -"(make-struct-field-accessor -ref_20 0 'get-symbols)" -"(make-struct-field-accessor -ref_20 1 'create))))" +" struct:_10" +" make-_10" +" ?_10" +"(make-struct-field-accessor -ref_10 0 'get-symbols)" +"(make-struct-field-accessor -ref_10 1 'create))))" "(define-values" "(bulk-binding-symbols)" "(lambda(b_36 s_70 extra-shifts_0)" @@ -7139,7 +6730,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_35)))" "((letrec-values(((for-loop_35)" -"(lambda(result_28 i_53)" +"(lambda(result_29 i_53)" "(begin" " 'for-loop" "(if i_53" @@ -7147,29 +6738,29 @@ static const char *startup_source = "(hash-iterate-key" " ht_35" " i_53)))" -"(let-values(((result_29)" -"(let-values()" "(let-values(((result_30)" "(let-values()" +"(let-values(((result_31)" +"(let-values()" "(let-values()" "(subset?" " an-scs_0" " scs_2)))))" "(values" -" result_30)))))" +" result_31)))))" "(if(if(not" -"((lambda x_27" -" result_29)" +"((lambda x_26" +" result_30)" " an-scs_0))" "(not #f)" " #f)" "(for-loop_35" -" result_29" +" result_30" "(hash-iterate-next" " ht_35" " i_53))" -" result_29)))" -" result_28)))))" +" result_30)))" +" result_29)))))" " for-loop_35)" " #f" "(hash-iterate-first ht_35))))" @@ -7476,7 +7067,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((v_80)" +"(let-values(((v_69)" "(if(binding-reach-scopes?" " binding_2)" "((binding-reach-scopes-ref" @@ -7485,7 +7076,7 @@ static const char *startup_source = " #f)))" "(scopes-register-reachable" " scopes_6" -" v_80" +" v_69" " get-reachable-scopes_0" " reach_2" " register-trigger_0)))" @@ -7543,11 +7134,11 @@ static const char *startup_source = "(void))))))" "(define-values" "(scopes-register-reachable)" -"(lambda(scopes_7 v_81 get-reachable-scopes_1 reach_3 register-trigger_1)" +"(lambda(scopes_7 v_70 get-reachable-scopes_1 reach_3 register-trigger_1)" "(begin" "(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))" "(if(subset? scopes_7 reachable-scopes_2)" -"(let-values()(reach_3 v_81))" +"(let-values()(reach_3 v_70))" "(let-values()" "(let-values(((pending-scopes_0)" "(let-values(((ht_41) scopes_7))" @@ -7603,7 +7194,7 @@ static const char *startup_source = "(if(zero?(hash-count pending-scopes_0))" "(let-values()" "(begin" -"(reach_4 v_81)" +"(reach_4 v_70)" "(let-values(((ht_42) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -7694,7 +7285,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))" "(values))))" -"(let-values(((v_71)(hash-ref(syntax-props s_72) key_23 #f)))(plain-property-value v_71)))))" +"(let-values(((v_60)(hash-ref(syntax-props s_72) key_23 #f)))(plain-property-value v_60)))))" "((s_73 key_24 val_14)" "(let-values((()" "(begin" @@ -7840,7 +7431,7 @@ static const char *startup_source = "(lambda(d_2)" "(begin" "(let-values(((s_74) d_2)" -"((f_27)(lambda(tail?_16 x_28)(begin 'f x_28)))" +"((f_27)(lambda(tail?_16 x_27)(begin 'f x_27)))" "((s->_1)" "(lambda(sub-s_0)" "(begin" @@ -7852,12 +7443,12 @@ static const char *startup_source = "(let-values(((the-struct_6) stx_0))" "(if(syntax?$1 the-struct_6)" "(let-values(((scope-propagations+tamper5_0)" -"(let-values(((t_18)" +"(let-values(((t_17)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" -"((p_20)(syntax-scope-propagations+tamper stx_0)))" -"(if(tamper? p_20)" -" t_18" -"((propagation-set-tamper-ref p_20) p_20 t_18)))))" +"((p_11)(syntax-scope-propagations+tamper stx_0)))" +"(if(tamper? p_11)" +" t_17" +"((propagation-set-tamper-ref p_11) p_11 t_17)))))" "(syntax1.1" "(syntax-content the-struct_6)" "(syntax-scopes the-struct_6)" @@ -7877,7 +7468,7 @@ static const char *startup_source = " 'gf" "(if(syntax?$1 v_33)(let-values()(s->_1 v_33))(let-values()(f_27 tail?_17 v_33))))))" "((seen_8) seen_7))" -"((letrec-values(((loop_70)" +"((letrec-values(((loop_68)" "(lambda(tail?_18 s_78 prev-depth_3)" "(begin" " 'loop" @@ -7895,7 +7486,7 @@ static const char *startup_source = "(let-values()" "(f_28" " tail?_18" -"(cons(loop_70 #f(car s_78) depth_3)(loop_70 #t(cdr s_78) depth_3))))" +"(cons(loop_68 #f(car s_78) depth_3)(loop_68 #t(cdr s_78) depth_3))))" "(if(symbol? s_78)" "(let-values()(f_28 #f s_78))" "(if(boolean? s_78)" @@ -7917,7 +7508,7 @@ static const char *startup_source = "(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))" " seen_8))" "(let-values()(gf_3 #f s_78))))))))))))))" -" loop_70)" +" loop_68)" " #f" " s_77" " 0))))))" @@ -7928,40 +7519,40 @@ static const char *startup_source = "(lambda(s_6 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_19)(syntax-tamper s_6)))" -"(if(tamper-tainted? t_19)" +"(let-values(((t_18)(syntax-tamper s_6)))" +"(if(tamper-tainted? t_18)" "(let-values() s_6)" -"(if(if t_19" -"(let-values(((or-part_96)(set-member? t_19 insp_0)))" +"(if(if t_18" +"(let-values(((or-part_96)(set-member? t_18 insp_0)))" "(if or-part_96" " or-part_96" -"(let-values(((ht_45) t_19))" +"(let-values(((ht_45) t_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_45)))" "((letrec-values(((for-loop_49)" -"(lambda(result_31 i_62)" +"(lambda(result_32 i_62)" "(begin" " 'for-loop" "(if i_62" "(let-values(((already-insp_0)" "(unsafe-immutable-hash-iterate-key ht_45 i_62)))" -"(let-values(((result_32)" -"(let-values()" "(let-values(((result_33)" "(let-values()" +"(let-values(((result_34)" +"(let-values()" "(let-values()" "(inspector-superior-or-same?" " already-insp_0" " insp_0)))))" -"(values result_33)))))" -"(if(if(not((lambda x_29 result_32) already-insp_0))(not #f) #f)" +"(values result_34)))))" +"(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)" "(for-loop_49" -" result_32" +" result_33" "(unsafe-immutable-hash-iterate-next ht_45 i_62))" -" result_32)))" -" result_31)))))" +" result_33)))" +" result_32)))))" " for-loop_49)" " #f" "(unsafe-immutable-hash-iterate-first ht_45))))))" @@ -7972,9 +7563,9 @@ static const char *startup_source = "(let-values(((the-struct_7) stx_1))" "(if(syntax?$1 the-struct_7)" "(let-values(((scope-propagations+tamper6_0)" -"(let-values(((t_20)(set-add(if t_19(remove-inferior t_19 insp_0)(seteq)) insp_0))" -"((p_21)(syntax-scope-propagations+tamper stx_1)))" -"(if(tamper? p_21) t_20((propagation-set-tamper-ref p_21) p_21 t_20)))))" +"(let-values(((t_19)(set-add(if t_18(remove-inferior t_18 insp_0)(seteq)) insp_0))" +"((p_12)(syntax-scope-propagations+tamper stx_1)))" +"(if(tamper? p_12) t_19((propagation-set-tamper-ref p_12) p_12 t_19)))))" "(syntax1.1" "(syntax-content the-struct_7)" "(syntax-scopes the-struct_7)" @@ -7987,9 +7578,9 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_7)))))))))))" "(define-values" "(remove-inferior)" -"(lambda(t_21 insp_1)" +"(lambda(t_20 insp_1)" "(begin" -"(let-values(((ht_46) t_21))" +"(let-values(((ht_46) t_20))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -8030,8 +7621,8 @@ static const char *startup_source = "(let-values(((s_81) s2_5))" "(let-values(((insp_2) insp1_0))" "(let-values()" -"(let-values(((t_22)(syntax-tamper s_81)))" -"(if(not(tamper-armed? t_22))" +"(let-values(((t_21)(syntax-tamper s_81)))" +"(if(not(tamper-armed? t_21))" "(let-values() s_81)" "(if(not insp_2)" "(let-values()" @@ -8039,11 +7630,11 @@ static const char *startup_source = "(let-values(((the-struct_8) stx_2))" "(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper7_0)" -"(let-values(((t_23) #f)" -"((p_22)(syntax-scope-propagations+tamper stx_2)))" -"(if(tamper? p_22)" -" t_23" -"((propagation-set-tamper-ref p_22) p_22 t_23)))))" +"(let-values(((t_22) #f)" +"((p_13)(syntax-scope-propagations+tamper stx_2)))" +"(if(tamper? p_13)" +" t_22" +"((propagation-set-tamper-ref p_13) p_13 t_22)))))" "(syntax1.1" "(syntax-content the-struct_8)" "(syntax-scopes the-struct_8)" @@ -8055,16 +7646,16 @@ static const char *startup_source = "(syntax-inspector the-struct_8)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_8)))))" "(let-values()" -"(let-values(((new-t_1)(remove-inferior t_22 insp_2)))" +"(let-values(((new-t_1)(remove-inferior t_21 insp_2)))" "(let-values(((stx_3) s_81))" "(let-values(((the-struct_9) stx_3))" "(if(syntax?$1 the-struct_9)" "(let-values(((scope-propagations+tamper8_0)" -"(let-values(((t_24)(if(not(set-empty? new-t_1)) new-t_1 #f))" -"((p_23)(syntax-scope-propagations+tamper stx_3)))" -"(if(tamper? p_23)" -" t_24" -"((propagation-set-tamper-ref p_23) p_23 t_24)))))" +"(let-values(((t_23)(if(not(set-empty? new-t_1)) new-t_1 #f))" +"((p_14)(syntax-scope-propagations+tamper stx_3)))" +"(if(tamper? p_14)" +" t_23" +"((propagation-set-tamper-ref p_14) p_14 t_23)))))" "(syntax1.1" "(syntax-content the-struct_9)" "(syntax-scopes the-struct_9)" @@ -8083,8 +7674,8 @@ static const char *startup_source = "(lambda(s_17 from-s_0)" "(begin" " 'syntax-rearm" -"(let-values(((t_25)(syntax-tamper s_17)))" -"(if(tamper-tainted? t_25)" +"(let-values(((t_24)(syntax-tamper s_17)))" +"(if(tamper-tainted? t_24)" "(let-values() s_17)" "(let-values()" "(let-values(((from-t_0)(syntax-tamper from-s_0)))" @@ -8096,9 +7687,9 @@ static const char *startup_source = "(let-values(((the-struct_10) stx_4))" "(if(syntax?$1 the-struct_10)" "(let-values(((scope-propagations+tamper9_0)" -"(let-values(((t_26)(tamper-tainted-for-content(syntax-content s_17)))" -"((p_24)(syntax-scope-propagations+tamper stx_4)))" -"(if(tamper? p_24) t_26((propagation-set-tamper-ref p_24) p_24 t_26)))))" +"(let-values(((t_25)(tamper-tainted-for-content(syntax-content s_17)))" +"((p_15)(syntax-scope-propagations+tamper stx_4)))" +"(if(tamper? p_15) t_25((propagation-set-tamper-ref p_15) p_15 t_25)))))" "(syntax1.1" "(syntax-content the-struct_10)" "(syntax-scopes the-struct_10)" @@ -8109,15 +7700,15 @@ static const char *startup_source = "(syntax-props the-struct_10)" "(syntax-inspector the-struct_10)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_10)))))" -"(if(tamper-clean? t_25)" +"(if(tamper-clean? t_24)" "(let-values()" "(let-values(((stx_5) s_17))" "(let-values(((the-struct_11) stx_5))" "(if(syntax?$1 the-struct_11)" "(let-values(((scope-propagations+tamper10_0)" -"(let-values(((t_27) from-t_0)" -"((p_25)(syntax-scope-propagations+tamper stx_5)))" -"(if(tamper? p_25) t_27((propagation-set-tamper-ref p_25) p_25 t_27)))))" +"(let-values(((t_26) from-t_0)" +"((p_16)(syntax-scope-propagations+tamper stx_5)))" +"(if(tamper? p_16) t_26((propagation-set-tamper-ref p_16) p_16 t_26)))))" "(syntax1.1" "(syntax-content the-struct_11)" "(syntax-scopes the-struct_11)" @@ -8133,14 +7724,14 @@ static const char *startup_source = "(let-values(((the-struct_12) stx_6))" "(if(syntax?$1 the-struct_12)" "(let-values(((scope-propagations+tamper11_0)" -"(let-values(((t_28)" +"(let-values(((t_27)" "(let-values(((ht_16) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_16)))" "((letrec-values(((for-loop_2)" -"(lambda(t_29 i_21)" +"(lambda(t_28 i_21)" "(begin" " 'for-loop" "(if i_21" @@ -8148,42 +7739,42 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-key" " ht_16" " i_21)))" +"(let-values(((t_29)" "(let-values(((t_30)" +" t_28))" "(let-values(((t_31)" -" t_29))" -"(let-values(((t_32)" "(let-values()" "(if(set-member?" -" t_31" +" t_30" " from-i_0)" "(let-values()" -" t_31)" +" t_30)" "(if(any-superior?" -" t_31" +" t_30" " from-i_0)" "(let-values()" -" t_31)" +" t_30)" "(let-values()" "(set-add" "(remove-inferior" -" t_31" +" t_30" " from-i_0)" " from-i_0)))))))" "(values" -" t_32)))))" +" t_31)))))" "(if(not #f)" "(for-loop_2" -" t_30" +" t_29" "(unsafe-immutable-hash-iterate-next" " ht_16" " i_21))" -" t_30)))" -" t_29)))))" +" t_29)))" +" t_28)))))" " for-loop_2)" -" t_25" +" t_24" "(unsafe-immutable-hash-iterate-first ht_16)))))" -"((p_19)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_19) t_28((propagation-set-tamper-ref p_19) p_19 t_28)))))" +"((p_10)(syntax-scope-propagations+tamper stx_6)))" +"(if(tamper? p_10) t_27((propagation-set-tamper-ref p_10) p_10 t_27)))))" "(syntax1.1" "(syntax-content the-struct_12)" "(syntax-scopes the-struct_12)" @@ -8205,9 +7796,9 @@ static const char *startup_source = "(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_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)))))" +"(let-values(((t_32)(tamper-tainted-for-content(syntax-content s_84)))" +"((p_17)(syntax-scope-propagations+tamper stx_7)))" +"(if(tamper? p_17) t_32((propagation-set-tamper-ref p_17) p_17 t_32)))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -8228,22 +7819,22 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_47)))" "((letrec-values(((for-loop_51)" -"(lambda(result_34 i_64)" +"(lambda(result_35 i_64)" "(begin" " 'for-loop" "(if 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)" "(let-values()" +"(let-values(((result_37)" +"(let-values()" "(let-values()" "(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_47 i_64))" -" result_35)))" -" result_34)))))" +"(values result_37)))))" +"(if(if(not((lambda x_29 result_36) i_65))(not #f) #f)" +"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_47 i_64))" +" result_36)))" +" result_35)))))" " for-loop_51)" " #f" "(unsafe-immutable-hash-iterate-first ht_47)))))))" @@ -8329,7 +7920,7 @@ static const char *startup_source = "(begin(if c_14(let-values()(hash-clear! c_14))(void))(set-box*! shifted-cache #f))))))" "(define-values" "(struct:entry entry1.1 entry? entry-scs entry-smss entry-phase entry-binding)" -"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8345,23 +7936,23 @@ static const char *startup_source = " #f" " 'entry)))))" "(values" -" struct:_21" -" make-_21" -" ?_21" -"(make-struct-field-accessor -ref_21 0 'scs)" -"(make-struct-field-accessor -ref_21 1 'smss)" -"(make-struct-field-accessor -ref_21 2 'phase)" -"(make-struct-field-accessor -ref_21 3 'binding))))" +" struct:_11" +" make-_11" +" ?_11" +"(make-struct-field-accessor -ref_11 0 'scs)" +"(make-struct-field-accessor -ref_11 1 'smss)" +"(make-struct-field-accessor -ref_11 2 'phase)" +"(make-struct-field-accessor -ref_11 3 'binding))))" "(define-values" "(resolve-cache-get)" "(lambda(sym_13 phase_4 scs_3 smss_7)" "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_82)(hash-ref c_15 sym_13 #f)))" -"(if v_82" -"(if(eqv? phase_4(entry-phase v_82))" -"(if(set=? scs_3(entry-scs v_82))(if(set=? smss_7(entry-smss v_82))(entry-binding v_82) #f) #f)" +"(let-values(((v_71)(hash-ref c_15 sym_13 #f)))" +"(if v_71" +"(if(eqv? phase_4(entry-phase v_71))" +"(if(set=? scs_3(entry-scs v_71))(if(set=? smss_7(entry-smss v_71))(entry-binding v_71) #f) #f)" " #f)" " #f))" " #f)))))" @@ -8382,7 +7973,7 @@ static const char *startup_source = "(define-values(shifted-cache-pos) 0)" "(define-values" "(struct:shifted-entry shifted-entry2.1 shifted-entry? shifted-entry-s shifted-entry-phase shifted-entry-binding)" -"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" +"(let-values(((struct:_12 make-_12 ?_12 -ref_12 -set!_12)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8398,20 +7989,20 @@ static const char *startup_source = " #f" " 'shifted-entry)))))" "(values" -" struct:_22" -" make-_22" -" ?_22" -"(make-struct-field-accessor -ref_22 0 's)" -"(make-struct-field-accessor -ref_22 1 'phase)" -"(make-struct-field-accessor -ref_22 2 'binding))))" +" struct:_12" +" make-_12" +" ?_12" +"(make-struct-field-accessor -ref_12 0 's)" +"(make-struct-field-accessor -ref_12 1 'phase)" +"(make-struct-field-accessor -ref_12 2 'binding))))" "(define-values" "(shifted-cache-vector)" "(lambda()" "(begin" "(let-values(((wb_1)(unbox* shifted-cache)))" -"(let-values(((c1_21)(if wb_1(weak-box-value wb_1) #f)))" -"(if c1_21" -"((lambda(vec_16) vec_16) c1_21)" +"(let-values(((c1_20)(if wb_1(weak-box-value wb_1) #f)))" +"(if c1_20" +"((lambda(vec_16) vec_16) c1_20)" "(let-values()" "(let-values(((vec_17)(make-vector SHIFTED-CACHE-SIZE #f)))" "(begin(set-box*! shifted-cache(make-weak-box vec_17)) vec_17)))))))))" @@ -8430,25 +8021,25 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_7 len_9)" -"(let-values(((e_14)(unsafe-vector-ref vec_13 pos_7)))" -"(let-values(((result_37)" -"(let-values()" +"(let-values(((e_12)(unsafe-vector-ref vec_13 pos_7)))" "(let-values(((result_38)" "(let-values()" +"(let-values(((result_39)" "(let-values()" -"(if e_14" -"(if(eq? s_23(shifted-entry-s e_14))" +"(let-values()" +"(if e_12" +"(if(eq? s_23(shifted-entry-s e_12))" "(if(eqv?" " phase_6" -"(shifted-entry-phase e_14))" -"(shifted-entry-binding e_14)" +"(shifted-entry-phase e_12))" +"(shifted-entry-binding e_12)" " #f)" " #f)" " #f)))))" -"(values result_38)))))" -"(if(if(not((lambda x_31 result_37) e_14))(not #f) #f)" -"(for-loop_53 result_37(unsafe-fx+ 1 pos_7))" -" result_37)))" +"(values result_39)))))" +"(if(if(not((lambda x_30 result_38) e_12))(not #f) #f)" +"(for-loop_53 result_38(unsafe-fx+ 1 pos_7))" +" result_38)))" " result_23)))))" " for-loop_53)" " #f" @@ -8458,10 +8049,10 @@ static const char *startup_source = "(lambda(s_85 phase_7 b_19)" "(begin" "(let-values(((vec_20)(shifted-cache-vector)))" -"(let-values(((p_27) shifted-cache-pos))" +"(let-values(((p_18) shifted-cache-pos))" "(begin" -"(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)))))))))" +"(vector*-set! vec_20 p_18(shifted-entry2.1 s_85 phase_7 b_19))" +"(set! shifted-cache-pos(fxand(fx+ 1 p_18)(fx- SHIFTED-CACHE-SIZE 1)))))))))" "(define-values(NUM-CACHE-SLOTS) 8)" "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))" "(define-values(cached-sets-pos) 0)" @@ -8484,24 +8075,24 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_54)" -"(lambda(result_39 pos_8)" +"(lambda(result_40 pos_8)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_8 len_10)" "(let-values(((s2_6)(unsafe-vector-ref vec_23 pos_8)))" -"(let-values(((result_40)" +"(let-values(((result_41)" "(let-values()" -"(let-values(((result_35)" +"(let-values(((result_36)" "(let-values()" "(let-values()" "(if s2_6" "(if(set=? s_45 s2_6) s2_6 #f)" " #f)))))" -"(values result_35)))))" -"(if(if(not((lambda x_32 result_40) s2_6))(not #f) #f)" -"(for-loop_54 result_40(unsafe-fx+ 1 pos_8))" -" result_40)))" -" result_39)))))" +"(values result_36)))))" +"(if(if(not((lambda x_31 result_41) s2_6))(not #f) #f)" +"(for-loop_54 result_41(unsafe-fx+ 1 pos_8))" +" result_41)))" +" result_40)))))" " for-loop_54)" " #f" " 0)))))" @@ -8533,18 +8124,18 @@ static const char *startup_source = " 'for-loop" "(if(unsafe-fx< pos_9 len_11)" "(let-values(((s2_7)(unsafe-vector-ref vec_27 pos_9)))" -"(let-values(((result_41)" -"(let-values()" "(let-values(((result_42)" "(let-values()" +"(let-values(((result_43)" +"(let-values()" "(let-values()" "(if s2_7" "(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)" -"(for-loop_55 result_41(unsafe-fx+ 1 pos_9))" -" result_41)))" +"(values result_43)))))" +"(if(if(not((lambda x_16 result_42) s2_7))(not #f) #f)" +"(for-loop_55 result_42(unsafe-fx+ 1 pos_9))" +" result_42)))" " result_8)))))" " for-loop_55)" " #f" @@ -8557,7 +8148,7 @@ static const char *startup_source = " 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)" +"(let-values(((struct:_13 make-_13 ?_13 -ref_13 -set!_13)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8599,26 +8190,26 @@ static const char *startup_source = "(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)" +"(lambda(sc_3 port_3 mode_6)" "(begin" -" (write-string \"#\" port_6)))))" +" (write-string \"#\" port_3)))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'scope)))))" "(values" -" struct:_23" -" make-_23" -" ?_23" -"(make-struct-field-accessor -ref_23 0 'id)" -"(make-struct-field-accessor -ref_23 1 'kind)" -"(make-struct-field-accessor -ref_23 2 'binding-table)" -"(make-struct-field-mutator -set!_23 2 'binding-table))))" +" struct:_13" +" make-_13" +" ?_13" +"(make-struct-field-accessor -ref_13 0 'id)" +"(make-struct-field-accessor -ref_13 1 'kind)" +"(make-struct-field-accessor -ref_13 2 'binding-table)" +"(make-struct-field-mutator -set!_13 2 'binding-table))))" "(define-values" "(deserialize-scope)" "(case-lambda" @@ -8627,7 +8218,7 @@ static const char *startup_source = "(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)" +"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8649,21 +8240,21 @@ static const char *startup_source = "(ser-push!_8(interned-scope-key s_92)))))" "(cons" " prop:custom-write" -"(lambda(sc_4 port_7 mode_7)" +"(lambda(sc_4 port_4 mode_7)" "(begin" -" (write-string \"#\" port_7)))))" +" (write-string \"#\" port_4)))))" "(current-inspector)" " #f" " '(0)" " #f" " 'interned-scope)))))" -"(values struct:_24 make-_24 ?_24(make-struct-field-accessor -ref_24 0 'key))))" +"(values struct:_14 make-_14 ?_14(make-struct-field-accessor -ref_14 0 'key))))" "(define-values" "(struct:multi-scope" " multi-scope3.1" @@ -8673,7 +8264,7 @@ static const char *startup_source = " multi-scope-scopes" " multi-scope-shifted" " multi-scope-label-shifted)" -"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" +"(let-values(((struct:_15 make-_15 ?_15 -ref_15 -set!_15)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8779,18 +8370,18 @@ static const char *startup_source = " #f" " 'multi-scope)))))" "(values" -" struct:_25" -" make-_25" -" ?_25" -"(make-struct-field-accessor -ref_25 0 'id)" -"(make-struct-field-accessor -ref_25 1 'name)" -"(make-struct-field-accessor -ref_25 2 'scopes)" -"(make-struct-field-accessor -ref_25 3 'shifted)" -"(make-struct-field-accessor -ref_25 4 'label-shifted))))" +" struct:_15" +" make-_15" +" ?_15" +"(make-struct-field-accessor -ref_15 0 'id)" +"(make-struct-field-accessor -ref_15 1 'name)" +"(make-struct-field-accessor -ref_15 2 'scopes)" +"(make-struct-field-accessor -ref_15 3 'shifted)" +"(make-struct-field-accessor -ref_15 4 'label-shifted))))" "(define-values" "(deserialize-multi-scope)" -"(lambda(name_15 scopes_8)" -"(begin(multi-scope3.1(new-deserialize-scope-id!) name_15 scopes_8(box(hasheqv))(box(hash))))))" +"(lambda(name_14 scopes_8)" +"(begin(multi-scope3.1(new-deserialize-scope-id!) name_14 scopes_8(box(hasheqv))(box(hash))))))" "(define-values" "(struct:representative-scope" " representative-scope4.1" @@ -8799,7 +8390,7 @@ static const char *startup_source = " representative-scope-phase" " set-representative-scope-owner!" " set-representative-scope-phase!)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_16 make-_16 ?_16 -ref_16 -set!_16)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8828,36 +8419,36 @@ static const char *startup_source = "(ser-push!_11(representative-scope-phase s_95)))))" "(cons" " prop:custom-write" -"(lambda(sc_7 port_8 mode_8)" +"(lambda(sc_7 port_5 mode_8)" "(begin" -" (write-string \"#\" port_8)))))" +" (write-string \"@\" port_5)" +"(display(representative-scope-phase sc_7) port_5)" +" (write-string \">\" port_5)))))" "(current-inspector)" " #f" " '()" " #f" " 'representative-scope)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'owner)" -"(make-struct-field-accessor -ref_26 1 'phase)" -"(make-struct-field-mutator -set!_26 0 'owner)" -"(make-struct-field-mutator -set!_26 1 'phase))))" +" struct:_16" +" make-_16" +" ?_16" +"(make-struct-field-accessor -ref_16 0 'owner)" +"(make-struct-field-accessor -ref_16 1 'phase)" +"(make-struct-field-mutator -set!_16 0 'owner)" +"(make-struct-field-mutator -set!_16 1 'phase))))" "(define-values" "(deserialize-representative-scope)" "(lambda(kind_1 phase_9)" -"(begin(let-values(((v_83)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_83))))" +"(begin(let-values(((v_72)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_72))))" "(define-values" "(deserialize-representative-scope-fill!)" "(lambda(s_96 bt_6 owner_0)" @@ -8868,7 +8459,7 @@ static const char *startup_source = " shifted-multi-scope?" " shifted-multi-scope-phase" " shifted-multi-scope-multi-scope)" -"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" +"(let-values(((struct:_17 make-_17 ?_17 -ref_17 -set!_17)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8891,24 +8482,24 @@ static const char *startup_source = "(ser-push!_12(shifted-multi-scope-multi-scope sms_4)))))" "(cons" " prop:custom-write" -"(lambda(sms_5 port_9 mode_9)" +"(lambda(sms_5 port_6 mode_9)" "(begin" -" (write-string \"#\" port_9)))))" +" (write-string \"#\" port_6)))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'shifted-multi-scope)))))" "(values" -" struct:_27" -" make-_27" -" ?_27" -"(make-struct-field-accessor -ref_27 0 'phase)" -"(make-struct-field-accessor -ref_27 1 'multi-scope))))" +" struct:_17" +" make-_17" +" ?_17" +"(make-struct-field-accessor -ref_17 0 'phase)" +"(make-struct-field-accessor -ref_17 1 'multi-scope))))" "(define-values" "(deserialize-shifted-multi-scope)" "(lambda(phase_10 multi-scope_0)(begin(intern-shifted-multi-scope phase_10 multi-scope_0))))" @@ -8948,7 +8539,7 @@ static const char *startup_source = "(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1)))))))))))" "(define-values" "(struct:shifted-to-label-phase shifted-to-label-phase6.1 shifted-to-label-phase? shifted-to-label-phase-from)" -"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" +"(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8963,7 +8554,7 @@ static const char *startup_source = " '(0)" " #f" " 'shifted-to-label-phase)))))" -"(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'from))))" +"(values struct:_18 make-_18 ?_18(make-struct-field-accessor -ref_18 0 'from))))" "(define-values(id-counter) 0)" "(define-values(new-scope-id!)(lambda()(begin(begin(set! id-counter(add1 id-counter)) id-counter))))" "(define-values(new-deserialize-scope-id!)(lambda()(begin(-(new-scope-id!)))))" @@ -8995,11 +8586,11 @@ static const char *startup_source = "(lambda(name7_0)" "(begin" " 'new-multi-scope8" -"(let-values(((name_16) name7_0))" +"(let-values(((name_15) name7_0))" "(let-values()" "(intern-shifted-multi-scope" " 0" -"(multi-scope3.1(new-scope-id!) name_16(make-hasheqv)(box(hasheqv))(box(hash))))))))))" +"(multi-scope3.1(new-scope-id!) name_15(make-hasheqv)(box(hasheqv))(box(hash))))))))))" "(case-lambda(()(begin(new-multi-scope8_0 #f)))((name7_1)(new-multi-scope8_0 name7_1)))))" "(define-values" "(multi-scope-to-scope-at-phase)" @@ -9037,39 +8628,39 @@ static const char *startup_source = "(syntax-e/no-taint)" "(lambda(s_98)" "(begin" -"(let-values(((prop_3)(syntax-scope-propagations+tamper s_98)))" -"(if(let-values(((or-part_107)(propagation? prop_3)))" -"(if or-part_107 or-part_107(tamper-needs-propagate? prop_3)))" +"(let-values(((prop_2)(syntax-scope-propagations+tamper s_98)))" +"(if(let-values(((or-part_107)(propagation? prop_2)))" +"(if or-part_107 or-part_107(tamper-needs-propagate? prop_2)))" "(let-values(((new-content_0)" "(let-values(((s_99)(syntax-content s_98))" -"((f_30)(lambda(tail?_20 x_33)(begin 'f x_33)))" +"((f_30)(lambda(tail?_20 x_32)(begin 'f x_32)))" "((s->_2)" "(lambda(sub-s_1)" "(begin" " 's->" -"(if(propagation? prop_3)" +"(if(propagation? prop_2)" "(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_98))" +"(propagation-apply prop_2(syntax-scopes sub-s_1) s_98))" "((shifted-multi-scopes50_0)" "(propagation-apply-shifted" -" prop_3" +" prop_2" "(syntax-shifted-multi-scopes sub-s_1)" " s_98))" "((mpi-shifts51_0)" "(propagation-apply-mpi-shifts" -" prop_3" +" prop_2" "(syntax-mpi-shifts sub-s_1)" " s_98))" "((inspector52_0)" "(propagation-apply-inspector" -" prop_3" +" prop_2" "(syntax-inspector sub-s_1)))" "((scope-propagations+tamper53_0)" "(propagation-merge" "(syntax-content sub-s_1)" -" prop_3" +" prop_2" "(syntax-scope-propagations+tamper sub-s_1)" "(syntax-scopes sub-s_1)" "(syntax-shifted-multi-scopes sub-s_1)" @@ -9088,14 +8679,14 @@ static const char *startup_source = "(let-values(((the-struct_15) stx_8))" "(if(syntax?$1 the-struct_15)" "(let-values(((scope-propagations+tamper54_0)" -"(let-values(((t_34)" +"(let-values(((t_33)" "(tamper-tainted-for-content" "(syntax-content sub-s_1)))" -"((p_28)" +"((p_19)" "(syntax-scope-propagations+tamper stx_8)))" -"(if(tamper? p_28)" -" t_34" -"((propagation-set-tamper-ref p_28) p_28 t_34)))))" +"(if(tamper? p_19)" +" t_33" +"((propagation-set-tamper-ref p_19) p_19 t_33)))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -9110,14 +8701,14 @@ static const char *startup_source = "(let-values(((s_100) s_99)" "((f_31) f_30)" "((gf_4)" -"(lambda(tail?_21 v_84)" +"(lambda(tail?_21 v_73)" "(begin" " 'gf" -"(if(syntax?$1 v_84)" -"(let-values()(s->_2 v_84))" -"(let-values()(f_30 tail?_21 v_84))))))" +"(if(syntax?$1 v_73)" +"(let-values()(s->_2 v_73))" +"(let-values()(f_30 tail?_21 v_73))))))" "((seen_10) seen_9))" -"((letrec-values(((loop_71)" +"((letrec-values(((loop_69)" "(lambda(tail?_22 s_101 prev-depth_4)" "(begin" " 'loop" @@ -9136,8 +8727,8 @@ static const char *startup_source = "(f_31" " tail?_22" "(cons" -"(loop_71 #f(car s_101) depth_4)" -"(loop_71 #t(cdr s_101) depth_4))))" +"(loop_69 #f(car s_101) depth_4)" +"(loop_69 #t(cdr s_101) depth_4))))" "(if(symbol? s_101)" "(let-values()(f_31 #f s_101))" "(if(boolean? s_101)" @@ -9162,7 +8753,7 @@ static const char *startup_source = "(lambda(tail?_24 s_103)(gf_4 tail?_24 s_103))" " seen_10))" "(let-values()(gf_4 #f s_101))))))))))))))" -" loop_71)" +" loop_69)" " #f" " s_100" " 0)))))" @@ -9170,7 +8761,7 @@ static const char *startup_source = "(set-syntax-content! s_98 new-content_0)" "(set-syntax-scope-propagations+tamper!" " s_98" -"(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" +"(tamper-propagated(if(propagation? prop_2)(propagation-tamper prop_2) prop_2)))" " new-content_0))" "(syntax-content s_98))))))" "(define-values" @@ -9178,9 +8769,9 @@ static const char *startup_source = "(lambda(s_104)" "(begin" " 'syntax-e" -"(let-values(((e_15)(syntax-content s_104)))" -"(if(symbol? e_15)" -"(let-values() e_15)" +"(let-values(((e_13)(syntax-content s_104)))" +"(if(symbol? e_13)" +"(let-values() e_13)" "(let-values()" "(let-values(((content_6)(syntax-e/no-taint s_104)))" "(if(not(tamper-armed?(syntax-scope-propagations+tamper s_104)))" @@ -9350,7 +8941,7 @@ static const char *startup_source = " lst_44))))))" "(define-values" "(set-flip)" -"(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)))))" +"(lambda(s_119 e_14)(begin(if(set-member? s_119 e_14)(set-remove s_119 e_14)(set-add s_119 e_14)))))" "(define-values" "(flip-scope)" "(lambda(s_120 sc_15)" @@ -9439,7 +9030,7 @@ static const char *startup_source = "(if(eq? smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)" "(let-values() prev-result_0)" "(let-values()" -"(let-values(((r_23)" +"(let-values(((r_20)" "(let-values()" "(let-values(((smss_12)(fallback-first smss/maybe-fallbacks_0)))" "(if(set-empty? smss_12)" @@ -9452,10 +9043,10 @@ static const char *startup_source = " smss/maybe-fallbacks_0))))))))" "(begin" "(set! smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)" -"(set! prev-result_0 r_23)" -" r_23))))))))" +"(set! prev-result_0 r_20)" +" r_20))))))))" "(let-values(((s_128) s_127)" -"((f_32)(lambda(tail?_25 x_34)(begin 'f x_34)))" +"((f_32)(lambda(tail?_25 x_33)(begin 'f x_33)))" "((d->s_1)" "(lambda(s_129 d_3)" "(begin" @@ -9477,21 +9068,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_22))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" -"((letrec-values(((loop_72)" +"((letrec-values(((loop_70)" "(lambda(s_130)" "(begin" " 'loop" "(let-values(((s_131) s_130)" "((f_33) f_32)" "((gf_5)" -"(lambda(tail?_26 v_85)" +"(lambda(tail?_26 v_74)" "(begin" " 'gf" -"(if(syntax?$1 v_85)" -"(let-values()(d->s_1 v_85(loop_72(s-e_1 v_85))))" -"(let-values()(f_32 tail?_26 v_85))))))" +"(if(syntax?$1 v_74)" +"(let-values()(d->s_1 v_74(loop_70(s-e_1 v_74))))" +"(let-values()(f_32 tail?_26 v_74))))))" "((seen_12) seen_11))" -"((letrec-values(((loop_73)" +"((letrec-values(((loop_71)" "(lambda(tail?_27 s_132 prev-depth_5)" "(begin" " 'loop" @@ -9510,8 +9101,8 @@ static const char *startup_source = "(f_33" " tail?_27" "(cons" -"(loop_73 #f(car s_132) depth_5)" -"(loop_73 #t(cdr s_132) depth_5))))" +"(loop_71 #f(car s_132) depth_5)" +"(loop_71 #t(cdr s_132) depth_5))))" "(if(symbol? s_132)" "(let-values()(f_33 #f s_132))" "(if(boolean? s_132)" @@ -9540,11 +9131,11 @@ static const char *startup_source = "(gf_5 tail?_29 s_134))" " seen_12))" "(let-values()(gf_5 #f s_132))))))))))))))" -" loop_73)" +" loop_71)" " #f" " s_131" " 0))))))" -" loop_72)" +" loop_70)" " s_128))))))))" "(define-values" "(struct:propagation" @@ -9557,7 +9148,7 @@ static const char *startup_source = " propagation-add-mpi-shifts" " propagation-inspector" " propagation-tamper)" -"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" +"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" "(let-values()" "(let-values()" "(make-struct-type" @@ -9568,8 +9159,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_29 v_86)(propagation-set-tamper p_29 v_86)))" -"(cons prop:propagation-tamper(lambda(p_30)(propagation-tamper p_30)))" +"(cons prop:propagation-set-tamper(lambda(p_20 v_75)(propagation-set-tamper p_20 v_75)))" +"(cons prop:propagation-tamper(lambda(p_21)(propagation-tamper p_21)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -9577,24 +9168,24 @@ static const char *startup_source = " #f" " 'propagation)))))" "(values" -" struct:_29" -" make-_29" -" ?_29" -"(make-struct-field-accessor -ref_29 0 'prev-scs)" -"(make-struct-field-accessor -ref_29 1 'prev-smss)" -"(make-struct-field-accessor -ref_29 2 'scope-ops)" -"(make-struct-field-accessor -ref_29 3 'prev-mss)" -"(make-struct-field-accessor -ref_29 4 'add-mpi-shifts)" -"(make-struct-field-accessor -ref_29 5 'inspector)" -"(make-struct-field-accessor -ref_29 6 'tamper))))" +" struct:_19" +" make-_19" +" ?_19" +"(make-struct-field-accessor -ref_19 0 'prev-scs)" +"(make-struct-field-accessor -ref_19 1 'prev-smss)" +"(make-struct-field-accessor -ref_19 2 'scope-ops)" +"(make-struct-field-accessor -ref_19 3 'prev-mss)" +"(make-struct-field-accessor -ref_19 4 'add-mpi-shifts)" +"(make-struct-field-accessor -ref_19 5 'inspector)" +"(make-struct-field-accessor -ref_19 6 'tamper))))" "(define-values" "(propagation-add)" -"(lambda(prop_4 sc_18 prev-scs_0 prev-smss_0 prev-mss_0)" +"(lambda(prop_3 sc_18 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" -"(if(propagation? prop_4)" -"(let-values(((the-struct_23) prop_4))" +"(if(propagation? prop_3)" +"(let-values(((the-struct_23) prop_3))" "(if(propagation? the-struct_23)" -"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_4) sc_18 'add)))" +"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_3) sc_18 'add)))" "(propagation14.1" "(propagation-prev-scs the-struct_23)" "(propagation-prev-smss the-struct_23)" @@ -9604,15 +9195,15 @@ static const char *startup_source = "(propagation-inspector the-struct_23)" "(propagation-tamper the-struct_23)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_23)))" -"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_18 'add) prev-mss_0 #f #f prop_4)))))" +"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_18 'add) prev-mss_0 #f #f prop_3)))))" "(define-values" "(propagation-remove)" -"(lambda(prop_5 sc_19 prev-scs_1 prev-smss_1 prev-mss_1)" +"(lambda(prop_4 sc_19 prev-scs_1 prev-smss_1 prev-mss_1)" "(begin" -"(if(propagation? prop_5)" -"(let-values(((the-struct_24) prop_5))" +"(if(propagation? prop_4)" +"(let-values(((the-struct_24) prop_4))" "(if(propagation? the-struct_24)" -"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_5) sc_19 'remove)))" +"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_4) sc_19 'remove)))" "(propagation14.1" "(propagation-prev-scs the-struct_24)" "(propagation-prev-smss the-struct_24)" @@ -9622,22 +9213,22 @@ static const char *startup_source = "(propagation-inspector the-struct_24)" "(propagation-tamper the-struct_24)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))" -"(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_19 'remove) prev-mss_1 #f #f prop_5)))))" +"(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_19 'remove) prev-mss_1 #f #f prop_4)))))" "(define-values" "(propagation-flip)" -"(lambda(prop_6 sc_20 prev-scs_2 prev-smss_2 prev-mss_2)" +"(lambda(prop_5 sc_20 prev-scs_2 prev-smss_2 prev-mss_2)" "(begin" -"(if(propagation? prop_6)" -"(let-values(((ops_0)(propagation-scope-ops prop_6)))" +"(if(propagation? prop_5)" +"(let-values(((ops_0)(propagation-scope-ops prop_5)))" "(let-values(((current-op_0)(hash-ref ops_0 sc_20 #f)))" "(if(if(eq? current-op_0 'flip)" "(if(= 1(hash-count ops_0))" -"(if(not(propagation-inspector prop_6))(not(propagation-add-mpi-shifts prop_6)) #f)" +"(if(not(propagation-inspector prop_5))(not(propagation-add-mpi-shifts prop_5)) #f)" " #f)" " #f)" "(let-values() #f)" "(let-values()" -"(let-values(((the-struct_25) prop_6))" +"(let-values(((the-struct_25) prop_5))" "(if(propagation? the-struct_25)" "(let-values(((scope-ops73_0)" "(if(eq? current-op_0 'flip)" @@ -9658,21 +9249,21 @@ static const char *startup_source = "(propagation-inspector the-struct_25)" "(propagation-tamper the-struct_25)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_25)))))))" -"(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_20 'flip) prev-mss_2 #f #f prop_6)))))" +"(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_20 'flip) prev-mss_2 #f #f prop_5)))))" "(define-values" "(propagation-mpi-shift)" -"(lambda(prop_7 add_0 inspector_2 prev-scs_3 prev-smss_3 prev-mss_3)" +"(lambda(prop_6 add_0 inspector_2 prev-scs_3 prev-smss_3 prev-mss_3)" "(begin" -"(if(propagation? prop_7)" -"(let-values(((the-struct_26) prop_7))" +"(if(propagation? prop_6)" +"(let-values(((the-struct_26) prop_6))" "(if(propagation? the-struct_26)" "(let-values(((add-mpi-shifts74_0)" -"(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" +"(let-values(((base-add_0)(propagation-add-mpi-shifts prop_6)))" "(if(if add_0 base-add_0 #f)" "(lambda(mss_0)(begin 'add-mpi-shifts74(add_0(base-add_0 mss_0))))" "(let-values(((or-part_114) add_0))(if or-part_114 or-part_114 base-add_0)))))" "((inspector75_0)" -"(let-values(((or-part_115)(propagation-inspector prop_7)))" +"(let-values(((or-part_115)(propagation-inspector prop_6)))" "(if or-part_115 or-part_115 inspector_2))))" "(propagation14.1" "(propagation-prev-scs the-struct_26)" @@ -9683,16 +9274,16 @@ static const char *startup_source = " inspector75_0" "(propagation-tamper the-struct_26)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_26)))" -"(propagation14.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_7)))))" +"(propagation14.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_6)))))" "(define-values" "(propagation-apply)" -"(lambda(prop_8 scs_8 parent-s_0)" +"(lambda(prop_7 scs_8 parent-s_0)" "(begin" -"(if(eq?(propagation-prev-scs prop_8) scs_8)" +"(if(eq?(propagation-prev-scs prop_7) scs_8)" "(let-values()(syntax-scopes parent-s_0))" "(let-values()" "(let-values(((new-scs_0)" -"(let-values(((ht_51)(propagation-scope-ops prop_8)))" +"(let-values(((ht_51)(propagation-scope-ops prop_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -9741,13 +9332,13 @@ static const char *startup_source = "(cache-or-reuse-set new-scs_0))))))))" "(define-values" "(propagation-apply-shifted)" -"(lambda(prop_9 smss_13 parent-s_1)" +"(lambda(prop_8 smss_13 parent-s_1)" "(begin" -"(if(eq?(propagation-prev-smss prop_9) smss_13)" +"(if(eq?(propagation-prev-smss prop_8) smss_13)" "(let-values()(syntax-shifted-multi-scopes parent-s_1))" "(let-values()" "(let-values(((new-smss_0)" -"(let-values(((ht_52)(propagation-scope-ops prop_9)))" +"(let-values(((ht_52)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -9803,23 +9394,23 @@ static const char *startup_source = "(cache-or-reuse-hash new-smss_0)))))))))" "(define-values" "(propagation-apply-mpi-shifts)" -"(lambda(prop_10 mss_1 parent-s_2)" +"(lambda(prop_9 mss_1 parent-s_2)" "(begin" -"(if(eq?(propagation-prev-mss prop_10) mss_1)" +"(if(eq?(propagation-prev-mss prop_9) mss_1)" "(let-values()(syntax-mpi-shifts parent-s_2))" -"(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))" +"(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_9)))(if add_1(add_1 mss_1) mss_1)))))))" "(define-values" "(propagation-apply-inspector)" -"(lambda(prop_11 i_71)" -"(begin(let-values(((or-part_116) i_71))(if or-part_116 or-part_116(propagation-inspector prop_11))))))" +"(lambda(prop_10 i_71)" +"(begin(let-values(((or-part_116) i_71))(if or-part_116 or-part_116(propagation-inspector prop_10))))))" "(define-values" "(propagation-set-tamper)" -"(lambda(prop_12 t_35)" +"(lambda(prop_11 t_34)" "(begin" -"(if(propagation? prop_12)" -"(let-values(((the-struct_27) prop_12))" +"(if(propagation? prop_11)" +"(let-values(((the-struct_27) prop_11))" "(if(propagation? the-struct_27)" -"(let-values(((tamper76_0) t_35))" +"(let-values(((tamper76_0) t_34))" "(propagation14.1" "(propagation-prev-scs the-struct_27)" "(propagation-prev-smss the-struct_27)" @@ -9829,35 +9420,35 @@ static const char *startup_source = "(propagation-inspector the-struct_27)" " tamper76_0))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_27)))" -" t_35))))" +" t_34))))" "(define-values" "(propagation-merge)" -"(lambda(content_7 prop_13 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)" +"(lambda(content_7 prop_12 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)" "(begin" "(if(not(datum-has-elements? content_7))" -"(let-values()(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted base-prop_0))" +"(let-values()(if(tamper-tainted?(propagation-tamper prop_12)) 'tainted base-prop_0))" "(if(not(propagation? base-prop_0))" "(let-values()" -"(if(if(eq?(propagation-prev-scs prop_13) prev-scs_4)" -"(if(eq?(propagation-prev-smss prop_13) prev-smss_4)" -"(if(eq?(propagation-prev-mss prop_13) prev-mss_4)" -"(eq?(propagation-tamper prop_13) base-prop_0)" +"(if(if(eq?(propagation-prev-scs prop_12) prev-scs_4)" +"(if(eq?(propagation-prev-smss prop_12) prev-smss_4)" +"(if(eq?(propagation-prev-mss prop_12) prev-mss_4)" +"(eq?(propagation-tamper prop_12) base-prop_0)" " #f)" " #f)" " #f)" -"(let-values() prop_13)" +"(let-values() prop_12)" "(let-values()" "(propagation14.1" " prev-scs_4" " prev-smss_4" -"(propagation-scope-ops prop_13)" +"(propagation-scope-ops prop_12)" " prev-mss_4" -"(propagation-add-mpi-shifts prop_13)" -"(propagation-inspector prop_13)" -"(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" +"(propagation-add-mpi-shifts prop_12)" +"(propagation-inspector prop_12)" +"(if(tamper-tainted?(propagation-tamper prop_12)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_53)(propagation-scope-ops prop_13)))" +"(let-values(((ht_53)(propagation-scope-ops prop_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -9934,17 +9525,17 @@ static const char *startup_source = " for-loop_62)" "(propagation-scope-ops base-prop_0)" "(unsafe-immutable-hash-iterate-first ht_53))))))" -"(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" +"(let-values(((add_2)(propagation-add-mpi-shifts prop_12)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" -"(if(let-values(((or-part_117)(tamper-tainted?(propagation-tamper prop_13))))" +"(if(let-values(((or-part_117)(tamper-tainted?(propagation-tamper prop_12))))" "(if or-part_117 or-part_117(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" "(if(not add_2)" "(if(not base-add_1)" -"(if(not(propagation-inspector prop_13))(not(propagation-inspector base-prop_0)) #f)" +"(if(not(propagation-inspector prop_12))(not(propagation-inspector base-prop_0)) #f)" " #f)" " #f)" " #f)" @@ -9958,7 +9549,7 @@ static const char *startup_source = "(let-values(((or-part_118) add_2))(if or-part_118 or-part_118 base-add_1))))" "((inspector79_0)" "(let-values(((or-part_119)(propagation-inspector base-prop_0)))" -"(if or-part_119 or-part_119(propagation-inspector prop_13))))" +"(if or-part_119 or-part_119(propagation-inspector prop_12))))" "((tamper80_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_28)" @@ -10006,7 +9597,7 @@ static const char *startup_source = "(if(eq? smss81_0 smss_20)" "(let-values() prev-result_1)" "(let-values()" -"(let-values(((r_24)" +"(let-values(((r_21)" "(let-values()" "(fallback-map" " smss_20" @@ -10073,7 +9664,7 @@ static const char *startup_source = " for-loop_63)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_54)))))))))" -"(begin(set! smss81_0 smss_20)(set! prev-result_1 r_24) r_24))))))))" +"(begin(set! smss81_0 smss_20)(set! prev-result_1 r_21) r_21))))))))" "(let-values(((s_136) s_135)" "((f_34)(lambda(tail?_30 d_4)(begin 'f d_4)))" "((d->s_2)" @@ -10097,21 +9688,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_72)" "(lambda(s_138)" "(begin" " 'loop" "(let-values(((s_139) s_138)" "((f_35) f_34)" "((gf_6)" -"(lambda(tail?_31 v_87)" +"(lambda(tail?_31 v_76)" "(begin" " 'gf" -"(if(syntax?$1 v_87)" -"(let-values()(d->s_2 v_87(loop_74(s-e_2 v_87))))" -"(let-values()(f_34 tail?_31 v_87))))))" +"(if(syntax?$1 v_76)" +"(let-values()(d->s_2 v_76(loop_72(s-e_2 v_76))))" +"(let-values()(f_34 tail?_31 v_76))))))" "((seen_14) seen_13))" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_73)" "(lambda(tail?_32 s_140 prev-depth_6)" "(begin" " 'loop" @@ -10130,8 +9721,8 @@ static const char *startup_source = "(f_35" " tail?_32" "(cons" -"(loop_75 #f(car s_140) depth_6)" -"(loop_75 #t(cdr s_140) depth_6))))" +"(loop_73 #f(car s_140) depth_6)" +"(loop_73 #t(cdr s_140) depth_6))))" "(if(symbol? s_140)" "(let-values()(f_35 #f s_140))" "(if(boolean? s_140)" @@ -10161,11 +9752,11 @@ static const char *startup_source = " seen_14))" "(let-values()" "(gf_6 #f s_140))))))))))))))" -" loop_75)" +" loop_73)" " #f" " s_139" " 0))))))" -" loop_74)" +" loop_72)" " s_136))))))))))" "(define-values" "(syntax-swap-scopes)" @@ -10266,12 +9857,12 @@ static const char *startup_source = "(if(eq? scs84_0 scs_14)" "(let-values() prev-result_2)" "(let-values()" -"(let-values(((r_25)" +"(let-values(((r_22)" "(let-values()" "(if(subset? src-scs_0 scs_14)" "(set-union(set-subtract scs_14 src-scs_0) dest-scs_0)" " scs_14))))" -"(begin(set! scs84_0 scs_14)(set! prev-result_2 r_25) r_25))))))))" +"(begin(set! scs84_0 scs_14)(set! prev-result_2 r_22) r_22))))))))" "(let-values(((smss85_0) #f))" "(let-values(((prev-result_3) #f))" "(let-values(((swap-smss_0)" @@ -10281,7 +9872,7 @@ static const char *startup_source = "(if(eq? smss85_0 smss_22)" "(let-values() prev-result_3)" "(let-values()" -"(let-values(((r_26)" +"(let-values(((r_23)" "(let-values()" "(fallback-update-first" " smss_22" @@ -10289,7 +9880,7 @@ static const char *startup_source = "(if(subset? src-smss_0 smss_23)" "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" -"(begin(set! smss85_0 smss_22)(set! prev-result_3 r_26) r_26))))))))" +"(begin(set! smss85_0 smss_22)(set! prev-result_3 r_23) r_23))))))))" "(let-values(((s_144) s_143)" "((f_36)(lambda(tail?_35 d_6)(begin 'f d_6)))" "((d->s_3)" @@ -10314,21 +9905,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_30))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_74)" "(lambda(s_146)" "(begin" " 'loop" "(let-values(((s_147) s_146)" "((f_37) f_36)" "((gf_7)" -"(lambda(tail?_36 v_88)" +"(lambda(tail?_36 v_77)" "(begin" " 'gf" -"(if(syntax?$1 v_88)" -"(let-values()(d->s_3 v_88(loop_76(s-e_3 v_88))))" -"(let-values()(f_36 tail?_36 v_88))))))" +"(if(syntax?$1 v_77)" +"(let-values()(d->s_3 v_77(loop_74(s-e_3 v_77))))" +"(let-values()(f_36 tail?_36 v_77))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_75)" "(lambda(tail?_37 s_148 prev-depth_7)" "(begin" " 'loop" @@ -10348,8 +9939,8 @@ static const char *startup_source = "(f_37" " tail?_37" "(cons" -"(loop_77 #f(car s_148) depth_7)" -"(loop_77 #t(cdr s_148) depth_7))))" +"(loop_75 #f(car s_148) depth_7)" +"(loop_75 #t(cdr s_148) depth_7))))" "(if(symbol? s_148)" "(let-values()(f_37 #f s_148))" "(if(boolean? s_148)" @@ -10379,11 +9970,11 @@ static const char *startup_source = " seen_16))" "(let-values()" "(gf_7 #f s_148))))))))))))))" -" loop_77)" +" loop_75)" " #f" " s_147" " 0))))))" -" loop_76)" +" loop_74)" " s_144)))))))))))))" "(define-values" "(syntax-scope-set)" @@ -10510,21 +10101,21 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_59)))" "((letrec-values(((for-loop_69)" -"(lambda(result_43 i_78)" +"(lambda(result_44 i_78)" "(begin" " 'for-loop" "(if 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)" "(let-values()" +"(let-values(((result_46)" +"(let-values()" "(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_69 result_44(unsafe-immutable-hash-iterate-next ht_59 i_78))" -" result_44)))" -" result_43)))))" +"(values result_46)))))" +"(if(if(not((lambda x_34 result_45) sc_26))(not #f) #f)" +"(for-loop_69 result_45(unsafe-immutable-hash-iterate-next ht_59 i_78))" +" result_45)))" +" result_44)))))" " for-loop_69)" " #f" "(unsafe-immutable-hash-iterate-first ht_59)))))))" @@ -10545,7 +10136,7 @@ static const char *startup_source = "(lambda(smss_25)" "(begin" " 'fallback-loop" -"(let-values(((c1_22)" +"(let-values(((c1_21)" "(if(not exactly?_0)" "(if(not get-scopes?_0)" "(resolve-cache-get" @@ -10555,7 +10146,7 @@ static const char *startup_source = "(fallback-first smss_25))" " #f)" " #f)))" -"(if c1_22" +"(if c1_21" "((lambda(b_40)" "(if(eq? b_40 '#:none)" "(let-values()" @@ -10563,7 +10154,7 @@ static const char *startup_source = "(fallback-loop_0(fallback-rest smss_25))" " #f))" "(let-values() b_40)))" -" c1_22)" +" c1_21)" "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" @@ -10701,7 +10292,7 @@ static const char *startup_source = "(check-list" " lst_48)))" "((letrec-values(((for-loop_72)" -"(lambda(result_46" +"(lambda(result_47" " lst_49)" "(begin" " 'for-loop" @@ -10713,29 +10304,29 @@ static const char *startup_source = "((rest_21)" "(unsafe-cdr" " lst_49)))" -"(let-values(((result_47)" -"(let-values()" "(let-values(((result_48)" "(let-values()" +"(let-values(((result_49)" +"(let-values()" "(let-values()" "(subset?" " amb-scopes_0" " b-scopes_0)))))" "(values" -" result_48)))))" +" result_49)))))" "(if(if(not" -"((lambda x_36" +"((lambda x_35" "(not" -" result_47))" +" result_48))" " amb-scopes_0))" "(not" " #f)" " #f)" "(for-loop_72" -" result_47" +" result_48" " rest_21)" -" result_47)))" -" result_46)))))" +" result_48)))" +" result_47)))))" " for-loop_72)" " #t" " lst_48)))" @@ -10880,7 +10471,7 @@ static const char *startup_source = "(begin(let-values(((or-part_0)(full-local-binding? b_42)))(if or-part_0 or-part_0(symbol? b_42))))))" "(define-values" "(struct:full-local-binding full-local-binding1.1 full-local-binding? full-local-binding-key)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10903,7 +10494,7 @@ static const char *startup_source = " '(0)" " #f" " 'full-local-binding)))))" -"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'key))))" +"(values struct:_20 make-_20 ?_20(make-struct-field-accessor -ref_20 0 'key))))" "(define-values" "(deserialize-full-local-binding)" "(lambda(key_33 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_33))))" @@ -10938,7 +10529,7 @@ static const char *startup_source = "(1/prop:rename-transformer 1/rename-transformer? rename-transformer-value)" "(make-struct-type-property" " 'rename-transformer" -"(lambda(v_29 info_1)" +"(lambda(v_29 info_0)" "(let-values((()" "(begin" "(if(let-values(((or-part_11)(exact-nonnegative-integer? v_29)))" @@ -10961,7 +10552,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? v_29)" "(let-values()" "(begin" -"(if(<= v_29(list-ref info_1 1))" +"(if(<= v_29(list-ref info_0 1))" "(void)" "(let-values()" "(raise-arguments-error" @@ -10970,8 +10561,8 @@ static const char *startup_source = " \"field index\"" " v_29" " \"initialized-field count\"" -"(list-ref info_1 1))))" -"(if(member v_29(list-ref info_1 5))" +"(list-ref info_0 1))))" +"(if(member v_29(list-ref info_0 5))" "(void)" "(let-values()" "(raise-arguments-error" @@ -10981,17 +10572,17 @@ static const char *startup_source = " v_29)))))" "(void))" "(values))))" -"(let-values(((ref_0)(list-ref info_1 3)))" +"(let-values(((ref_0)(list-ref info_0 3)))" "(if(identifier? v_29)" -"(let-values()(lambda(t_36) v_29))" +"(let-values()(lambda(t_35) v_29))" "(if(integer? v_29)" "(let-values()" -"(lambda(t_37)" -"(let-values(((val_21)(ref_0 t_37 v_29)))" +"(lambda(t_36)" +"(let-values(((val_21)(ref_0 t_36 v_29)))" "(if(identifier? val_21) val_21(datum->syntax$1 #f '?)))))" "(let-values()" -"(lambda(t_15)" -"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_29 t_15)))))" +"(lambda(t_14)" +"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_29 t_14)))))" "(begin" "(if(identifier? id_0)" "(void)" @@ -11004,7 +10595,7 @@ static const char *startup_source = " id_0))))))))))))" "(define-values" "(struct:id-rename-transformer id-rename-transformer1.1 id-rename-transformer? id-rename-transformer-id)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11019,7 +10610,7 @@ static const char *startup_source = " '(0)" " #f" " 'id-rename-transformer)))))" -"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'id))))" +"(values struct:_21 make-_21 ?_21(make-struct-field-accessor -ref_21 0 'id))))" "(define-values" "(1/make-rename-transformer)" "(lambda(id_1)" @@ -11032,7 +10623,7 @@ static const char *startup_source = "(id-rename-transformer1.1 id_1)))))" "(define-values" "(1/rename-transformer-target)" -"(lambda(t_38)(begin 'rename-transformer-target((rename-transformer-value t_38) t_38))))" +"(lambda(t_37)(begin 'rename-transformer-target((rename-transformer-value t_37) t_37))))" "(define-values" "(free-identifier=?$1)" "(lambda(a_34 b_46 a-phase_0 b-phase_0)" @@ -11172,16 +10763,16 @@ static const char *startup_source = " (let-values () (error \"bad binding for free=id:\" b_50)))))))" "(define-values" "(struct:non-source-shift non-source-shift6.1 non-source-shift? non-source-shift-from non-source-shift-to)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" "(let-values()" "(let-values()" "(make-struct-type 'non-source-shift #f 2 0 #f null 'prefab #f '(0 1) #f 'non-source-shift)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'from)" -"(make-struct-field-accessor -ref_32 1 'to))))" +" struct:_22" +" make-_22" +" ?_22" +"(make-struct-field-accessor -ref_22 0 'from)" +"(make-struct-field-accessor -ref_22 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_156)(begin(if(pair? s_156)(cdr s_156)(non-source-shift-to s_156)))))" "(define-values" @@ -11250,10 +10841,10 @@ 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_158 phase_23) #f)))" -"(if c1_23" +"(let-values(((c1_22)(if can-cache?_0(resolve+shift-cache-get s_158 phase_23) #f)))" +"(if c1_22" "((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_158) #f) b_51))" -" c1_23)" +" c1_22)" "(let-values()" "(let-values(((immediate-b_0)" "(let-values(((s77_0) s_158)" @@ -11600,18 +11191,18 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_56)))" "((letrec-values(((for-loop_76)" -"(lambda(result_49 lst_57)" +"(lambda(result_50 lst_57)" "(begin" " 'for-loop" "(if(pair? lst_57)" "(let-values(((shift_5)(unsafe-car lst_57))" "((rest_25)(unsafe-cdr lst_57)))" -"(let-values(((result_50)" -"(let-values(((result_51) result_49))" +"(let-values(((result_51)" +"(let-values(((result_52) result_50))" "(if(non-source-shift? shift_5)" -" result_51" +" result_52" "(let-values()" -"(let-values(((result_52)" +"(let-values(((result_53)" "(let-values()" "(let-values()" "(let-values(((from-mpi_3)" @@ -11637,11 +11228,11 @@ static const char *startup_source = " mpi_13))" " #f)" " #f)))))))" -"(values result_52)))))))" -"(if(if(not((lambda x_37 result_50) shift_5))(not #f) #f)" -"(for-loop_76 result_50 rest_25)" -" result_50)))" -" result_49)))))" +"(values result_53)))))))" +"(if(if(not((lambda x_36 result_51) shift_5))(not #f) #f)" +"(for-loop_76 result_51 rest_25)" +" result_51)))" +" result_50)))))" " for-loop_76)" " #f" " lst_56)))))))))))" @@ -11685,12 +11276,12 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(p_31 ser-push!_14 state_24)" +"(lambda(p_22 ser-push!_14 state_24)" "(begin" "(ser-push!_14 'tag '#:provided)" -"(ser-push!_14(provided-binding p_31))" -"(ser-push!_14(provided-protected? p_31))" -"(ser-push!_14(provided-syntax? p_31))))))" +"(ser-push!_14(provided-binding p_22))" +"(ser-push!_14(provided-protected? p_22))" +"(ser-push!_14(provided-syntax? p_22))))))" " #f" " #f" " '(0 1 2)" @@ -11703,9 +11294,9 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 0 'binding)" "(make-struct-field-accessor -ref_0 1 'protected?)" "(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_89)(begin(if(provided? v_89)(provided-binding v_89) v_89))))" +"(define-values(provided-as-binding)(lambda(v_78)(begin(if(provided? v_78)(provided-binding v_78) v_78))))" "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_90)(begin(if(provided? v_90)(provided-syntax? v_90) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_79)(begin(if(provided? v_79)(provided-syntax? v_79) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" @@ -11762,7 +11353,7 @@ static const char *startup_source = " bulk-binding-bulk-binding-registry" " set-bulk-binding-provides!" " set-bulk-binding-self!)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11865,19 +11456,19 @@ static const char *startup_source = " #f" " 'bulk-binding)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'provides)" -"(make-struct-field-accessor -ref_33 1 'prefix)" -"(make-struct-field-accessor -ref_33 2 'excepts)" -"(make-struct-field-accessor -ref_33 3 'self)" -"(make-struct-field-accessor -ref_33 4 'mpi)" -"(make-struct-field-accessor -ref_33 5 'provide-phase-level)" -"(make-struct-field-accessor -ref_33 6 'phase-shift)" -"(make-struct-field-accessor -ref_33 7 'bulk-binding-registry)" -"(make-struct-field-mutator -set!_33 0 'provides)" -"(make-struct-field-mutator -set!_33 3 'self))))" +" struct:_23" +" make-_23" +" ?_23" +"(make-struct-field-accessor -ref_23 0 'provides)" +"(make-struct-field-accessor -ref_23 1 'prefix)" +"(make-struct-field-accessor -ref_23 2 'excepts)" +"(make-struct-field-accessor -ref_23 3 'self)" +"(make-struct-field-accessor -ref_23 4 'mpi)" +"(make-struct-field-accessor -ref_23 5 'provide-phase-level)" +"(make-struct-field-accessor -ref_23 6 'phase-shift)" +"(make-struct-field-accessor -ref_23 7 'bulk-binding-registry)" +"(make-struct-field-mutator -set!_23 0 'provides)" +"(make-struct-field-mutator -set!_23 3 'self))))" "(define-values" "(deserialize-bulk-binding)" "(lambda(prefix_1 excepts_1 mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" @@ -11926,19 +11517,19 @@ static const char *startup_source = "(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)" +"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" "(let-values()" "(let-values()" "(make-struct-type 'bulk-provide #f 2 0 #f null(current-inspector) #f '(0 1) #f 'bulk-provide)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'self)" -"(make-struct-field-accessor -ref_34 1 'provides))))" +" struct:_24" +" make-_24" +" ?_24" +"(make-struct-field-accessor -ref_24 0 'self)" +"(make-struct-field-accessor -ref_24 1 'provides))))" "(define-values" "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)" -"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" +"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11953,7 +11544,7 @@ static const char *startup_source = " '(0)" " #f" " 'bulk-binding-registry)))))" -"(values struct:_35 make-_35 ?_35(make-struct-field-accessor -ref_35 0 'table))))" +"(values struct:_25 make-_25 ?_25(make-struct-field-accessor -ref_25 0 'table))))" "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))" "(define-values" "(register-bulk-provide!)" @@ -11976,7 +11567,7 @@ static const char *startup_source = " root-expand-context/outer-post-expansion" " root-expand-context/outer-use-site-scopes" " root-expand-context/outer-frame-id)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11992,13 +11583,13 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'inner)" -"(make-struct-field-accessor -ref_36 1 'post-expansion)" -"(make-struct-field-accessor -ref_36 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_36 3 'frame-id))))" +" struct:_26" +" make-_26" +" ?_26" +"(make-struct-field-accessor -ref_26 0 'inner)" +"(make-struct-field-accessor -ref_26 1 'post-expansion)" +"(make-struct-field-accessor -ref_26 2 'use-site-scopes)" +"(make-struct-field-accessor -ref_26 3 'frame-id))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -12010,7 +11601,7 @@ static const char *startup_source = " root-expand-context/inner-defined-syms" " root-expand-context/inner-counter" " root-expand-context/inner-lift-key)" -"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" +"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12026,16 +11617,16 @@ static const char *startup_source = " #f" " 'root-expand-context/inner)))))" "(values" -" struct:_9" -" make-_9" -" ?_9" -"(make-struct-field-accessor -ref_9 0 'self-mpi)" -"(make-struct-field-accessor -ref_9 1 'module-scopes)" -"(make-struct-field-accessor -ref_9 2 'top-level-bind-scope)" -"(make-struct-field-accessor -ref_9 3 'all-scopes-stx)" -"(make-struct-field-accessor -ref_9 4 'defined-syms)" -"(make-struct-field-accessor -ref_9 5 'counter)" -"(make-struct-field-accessor -ref_9 6 'lift-key))))" +" struct:_27" +" make-_27" +" ?_27" +"(make-struct-field-accessor -ref_27 0 'self-mpi)" +"(make-struct-field-accessor -ref_27 1 'module-scopes)" +"(make-struct-field-accessor -ref_27 2 'top-level-bind-scope)" +"(make-struct-field-accessor -ref_27 3 'all-scopes-stx)" +"(make-struct-field-accessor -ref_27 4 'defined-syms)" +"(make-struct-field-accessor -ref_27 5 'counter)" +"(make-struct-field-accessor -ref_27 6 'lift-key))))" "(define-values" "(root-expand-context/make)" "(lambda(self-mpi_0" @@ -12063,32 +11654,32 @@ static const char *startup_source = " frame-id_4))))" "(define-values" "(root-expand-context-post-expansion)" -"(lambda(v_91)(begin(root-expand-context/outer-post-expansion v_91))))" +"(lambda(v_80)(begin(root-expand-context/outer-post-expansion v_80))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_92)(begin(root-expand-context/outer-use-site-scopes v_92))))" -"(define-values(root-expand-context-frame-id)(lambda(v_48)(begin(root-expand-context/outer-frame-id v_48))))" +"(lambda(v_81)(begin(root-expand-context/outer-use-site-scopes v_81))))" +"(define-values(root-expand-context-frame-id)(lambda(v_82)(begin(root-expand-context/outer-frame-id v_82))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_66)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_66)))))" +"(lambda(v_55)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_55)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_49)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_49)))))" +"(lambda(v_83)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_83)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_93)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_93)))))" +"(lambda(v_84)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_84)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_50)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_50)))))" +"(lambda(v_49)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_49)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_94)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_94)))))" +"(lambda(v_85)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_85)))))" "(define-values" "(root-expand-context-counter)" "(lambda(v_43)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_43)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_95)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_95)))))" +"(lambda(v_86)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_86)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0 initial-scopes4_0 outside-scope5_0 post-expansion-scope6_0 self-mpi3_0)" @@ -12216,21 +11807,21 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_96)" +"(lambda(v_87)" "(begin" -"(let-values(((ht_65) v_96))" +"(let-values(((ht_65) v_87))" "(begin" "(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)" +"(lambda(result_54 i_84)" "(begin" " 'for-loop" "(if i_84" "(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_84)))" -"(let-values(((result_54)" -"(let-values()" "(let-values(((result_55)" "(let-values()" +"(let-values(((result_56)" +"(let-values()" "(let-values()" "(if(phase? phase_25)" "(if(hash?(syntax-e$1 ht-s_0))" @@ -12241,7 +11832,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_66)))" "((letrec-values(((for-loop_80)" -"(lambda(result_56 i_85)" +"(lambda(result_57 i_85)" "(begin" " 'for-loop" "(if i_85" @@ -12250,10 +11841,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_66" " i_85)))" -"(let-values(((result_57)" -"(let-values()" "(let-values(((result_58)" "(let-values()" +"(let-values(((result_59)" +"(let-values()" "(let-values()" "(if(symbol?" " sym_21)" @@ -12261,32 +11852,32 @@ static const char *startup_source = " id_8)" " #f)))))" "(values" -" result_58)))))" +" result_59)))))" "(if(if(not" -"((lambda x_38" +"((lambda x_37" "(not" -" result_57))" +" result_58))" " sym_21" " id_8))" "(not #f)" " #f)" "(for-loop_80" -" result_57" +" result_58" "(hash-iterate-next" " ht_66" " i_85))" -" result_57)))" -" result_56)))))" +" result_58)))" +" result_57)))))" " for-loop_80)" " #t" "(hash-iterate-first ht_66))))" " #f)" " #f)))))" -"(values result_55)))))" -"(if(if(not((lambda x_39(not result_54)) phase_25 ht-s_0))(not #f) #f)" -"(for-loop_79 result_54(hash-iterate-next ht_65 i_84))" -" result_54)))" -" result_53)))))" +"(values result_56)))))" +"(if(if(not((lambda x_38(not result_55)) phase_25 ht-s_0))(not #f) #f)" +"(for-loop_79 result_55(hash-iterate-next ht_65 i_84))" +" result_55)))" +" result_54)))))" " for-loop_79)" " #t" "(hash-iterate-first ht_65)))))))" @@ -12302,10 +11893,10 @@ static const char *startup_source = "(define-values(extract-shifts)(lambda(stx_12)(begin(syntax-mpi-shifts stx_12))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_97)" +"(lambda(v_88)" "(begin" "(hash-copy" -"(let-values(((ht_67)(syntax-e$1 v_97)))" +"(let-values(((ht_67)(syntax-e$1 v_88)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_81)" @@ -12443,7 +12034,7 @@ static const char *startup_source = "(lambda(r_5 proc_2)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_5)))" -"((letrec-values(((loop_70)" +"((letrec-values(((loop_68)" "(lambda()" "(begin" " 'loop" @@ -12458,12 +12049,12 @@ static const char *startup_source = "(lambda()" "(if(box-cas! lock-box_0 v_34 lock_0)" "(let-values()(begin(proc_2) void))" -"(let-values()(lambda()(loop_70)))))" +"(let-values()(lambda()(loop_68)))))" "(lambda()(semaphore-post sema_0)))))))" "(if(eq?(current-thread)(cdr v_34))" "(let-values()(proc_2))" -"(let-values()(begin(sync(car v_34)(cdr v_34))(loop_70))))))))))" -" loop_70))))))" +"(let-values()(begin(sync(car v_34)(cdr v_34))(loop_68))))))))))" +" loop_68))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12497,13 +12088,13 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:custom-write" -"(lambda(ns_0 port_10 mode_10)" -" (let-values ((() (begin (write-string \"#name ns_0)))" +"(if n_19" +" (let-values () (fprintf port_7 \":~a\" (namespace->name ns_0)))" "(void))" "(values))))" "(let-values(((0-phase_0)(namespace-0-phase ns_0)))" @@ -12511,12 +12102,12 @@ static const char *startup_source = "(begin" "(if(zero-phase? phase-level_0)" "(void)" -" (let-values () (fprintf port_10 \":~s\" phase-level_0)))" +" (let-values () (fprintf port_7 \":~s\" phase-level_0)))" "(if(zero-phase? 0-phase_0)" "(void)" "(let-values()" -" (fprintf port_10 \"~a~s\" (if (positive? 0-phase_0) \"+\" \"\") 0-phase_0)))" -" (write-string \">\" port_10))))))))))" +" (fprintf port_7 \"~a~s\" (if (positive? 0-phase_0) \"+\" \"\") 0-phase_0)))" +" (write-string \">\" port_7))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4 5 6 7 8 9 10 11 13 14)" @@ -12544,7 +12135,7 @@ static const char *startup_source = "(make-struct-field-mutator -set!_0 12 'inspector))))" "(define-values" "(struct:definitions definitions2.1 definitions? definitions-variables definitions-transformers)" -"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12560,11 +12151,11 @@ static const char *startup_source = " #f" " 'definitions)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'variables)" -"(make-struct-field-accessor -ref_37 1 'transformers))))" +" struct:_28" +" make-_28" +" ?_28" +"(make-struct-field-accessor -ref_28 0 'variables)" +"(make-struct-field-accessor -ref_28 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace8.1 #t unsafe-undefined #f)))))" "(define-values" "(new-namespace8.1)" @@ -12618,10 +12209,10 @@ static const char *startup_source = "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_98)" +"(lambda(v_89)" "(begin" -" (if (1/namespace? v_98) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_98)))" -" v_98))))" +" (if (1/namespace? v_89) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_89)))" +" v_89))))" "(define-values" "(namespace-get-root-expand-ctx)" "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" @@ -12633,12 +12224,12 @@ static const char *startup_source = "(lambda(ns_4)(begin(root-expand-context-self-mpi(namespace-get-root-expand-ctx ns_4)))))" "(define-values" "(namespace->module)" -"(lambda(ns_5 name_17)" +"(lambda(ns_5 name_16)" "(begin" -"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_16 #f)))" "(if or-part_138" " or-part_138" -"(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" +"(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_16 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_24)" @@ -12672,15 +12263,15 @@ static const char *startup_source = "(namespace->name)" "(lambda(ns_7)" "(begin" -"(let-values(((n_21)(namespace-source-name ns_7)))" +"(let-values(((n_20)(namespace-source-name ns_7)))" "(let-values(((s_166)" -"(if(not n_21)" +"(if(not n_20)" "(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_166 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_166)))))))" +"(if(symbol? n_20)" +" (let-values () (format \"'~s\" n_20))" +" (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" +"(let-values(((r_24)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" +" (if (pair? r_24) (string-append \"(submod \" s_166 \" \" (substring (format \"~s\" (cdr r_24)) 1)) s_166)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12702,56 +12293,56 @@ static const char *startup_source = " 'namespace-set-variable!16" "(let-values(((ns_9) ns12_0))" "(let-values(((phase-level_2) phase-level13_0))" -"(let-values(((name_18) name14_1))" +"(let-values(((name_17) name14_1))" "(let-values(((val_28) val15_0))" "(let-values(((as-constant?_0) as-constant?11_0))" "(let-values()" "(let-values(((d_10)(namespace->definitions ns_9 phase-level_2)))" "(1/instance-set-variable-value!" "(definitions-variables d_10)" -" name_18" +" name_17" " val_28" "(if as-constant?_0 'constant #f)))))))))))))" "(case-lambda" -"((ns_10 phase-level_3 name_19 val_29)(begin(namespace-set-variable!16_0 ns_10 phase-level_3 name_19 val_29 #f)))" -"((ns_11 phase-level_4 name_20 val_30 as-constant?11_1)" -"(namespace-set-variable!16_0 ns_11 phase-level_4 name_20 val_30 as-constant?11_1)))))" +"((ns_10 phase-level_3 name_18 val_29)(begin(namespace-set-variable!16_0 ns_10 phase-level_3 name_18 val_29 #f)))" +"((ns_11 phase-level_4 name_19 val_30 as-constant?11_1)" +"(namespace-set-variable!16_0 ns_11 phase-level_4 name_19 val_30 as-constant?11_1)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_12 phase-level_5 name_21 val_31)" +"(lambda(ns_12 phase-level_5 name_20 val_31)" "(begin" "(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_31 'consistent)))))" +"(1/instance-set-variable-value!(definitions-variables d_11) name_20 val_31 'consistent)))))" "(define-values" "(namespace-unset-variable!)" -"(lambda(ns_13 phase-level_6 name_22)" +"(lambda(ns_13 phase-level_6 name_21)" "(begin" "(let-values(((d_12)(namespace->definitions ns_13 phase-level_6)))" -"(1/instance-unset-variable!(definitions-variables d_12) name_22)))))" +"(1/instance-unset-variable!(definitions-variables d_12) name_21)))))" "(define-values" "(namespace-set-transformer!)" -"(lambda(ns_14 phase-level_7 name_23 val_32)" +"(lambda(ns_14 phase-level_7 name_22 val_32)" "(begin" "(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_23 val_32)))))" +"(hash-set!(definitions-transformers d_13) name_22 val_32)))))" "(define-values" "(namespace-unset-transformer!)" -"(lambda(ns_15 phase-level_8 name_24)" +"(lambda(ns_15 phase-level_8 name_23)" "(begin" "(let-values(((d_14)(namespace->definitions ns_15(add1 phase-level_8))))" -"(hash-remove!(definitions-transformers d_14) name_24)))))" +"(hash-remove!(definitions-transformers d_14) name_23)))))" "(define-values" "(namespace-get-variable)" -"(lambda(ns_16 phase-level_9 name_25 fail-k_0)" +"(lambda(ns_16 phase-level_9 name_24 fail-k_0)" "(begin" "(let-values(((d_15)(namespace->definitions ns_16 phase-level_9)))" -"(1/instance-variable-value(definitions-variables d_15) name_25 fail-k_0)))))" +"(1/instance-variable-value(definitions-variables d_15) name_24 fail-k_0)))))" "(define-values" "(namespace-get-transformer)" -"(lambda(ns_17 phase-level_10 name_26 fail-k_1)" +"(lambda(ns_17 phase-level_10 name_25 fail-k_1)" "(begin" "(let-values(((d_16)(namespace->definitions ns_17(add1 phase-level_10))))" -"(hash-ref(definitions-transformers d_16) name_26 fail-k_1)))))" +"(hash-ref(definitions-transformers d_16) name_25 fail-k_1)))))" "(define-values" "(namespace->instance)" "(lambda(ns_18 phase-shift_2)(begin(definitions-variables(namespace->definitions ns_18 phase-shift_2)))))" @@ -12769,16 +12360,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_76)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_78(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_76(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_78(syntax-e$1 s_1)))" +"(let-values()(loop_76(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_78)" +" loop_76)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12920,7 +12511,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_0" -"(let-values(((k_19 v_89)" +"(let-values(((k_19 v_78)" "(unsafe-immutable-hash-iterate-key+value" " ht_70" " i_0)))" @@ -12940,9 +12531,9 @@ static const char *startup_source = "(if(eq?" " old-v_0" " missing$1)" -" v_89" +" v_78" "(cons/preserve" -" v_89" +" v_78" " old-v_0)))))))" "(values" " old-props_4)))))" @@ -13010,7 +12601,7 @@ static const char *startup_source = " lst_58))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13022,21 +12613,21 @@ static const char *startup_source = "(list" "(cons" " prop:exn:srclocs" -"(lambda(e_17)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_17))))))" +"(lambda(e_15)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_15))))))" " #f" " #f" " '(0)" -"(lambda(str_1 cm_0 exprs_0 info_2)" +"(lambda(str_1 cm_0 exprs_0 info_1)" "(begin" "(if(if(list? exprs_0)(andmap2 syntax?$1 exprs_0) #f)" "(void)" " (let-values () (raise-argument-error 'exn:fail:syntax \"(listof syntax?)\" exprs_0)))" "(values str_1 cm_0 exprs_0)))" " 'exn:fail:syntax)))))" -"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'exprs))))" +"(values struct:_20 make-_20 ?_20(make-struct-field-accessor -ref_20 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13051,7 +12642,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_38 make-_38 ?_38)))" +"(values struct:_29 make-_29 ?_29)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error7_0)" @@ -13125,8 +12716,8 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(if((lambda(x_40)" -"(let-values(((or-part_99)(not x_40)))(if or-part_99 or-part_99(symbol? x_40))))" +"(if((lambda(x_39)" +"(let-values(((or-part_99)(not x_39)))(if or-part_99 or-part_99(symbol? x_39))))" " given-name_12)" "(void)" " (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" @@ -13149,7 +12740,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_8 \"string?\" message-suffix_2)))" "(values))))" -"(let-values(((name_27)" +"(let-values(((name_26)" "(format" " \"~a\"" "(let-values(((or-part_136) given-name_12))" @@ -13182,7 +12773,7 @@ static const char *startup_source = " (if or-part_143 or-part_143 \"\"))))" "(raise" "(exn:fail:syntax_0" -" (string-append src-loc-str_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" +" (string-append src-loc-str_0 name_26 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" "(current-continuation-marks)" "(map2" " syntax-taint$1" @@ -13199,11 +12790,11 @@ static const char *startup_source = "(begin" "(if(syntax?$1 s_70)" "(let-values()" -"(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)" -"(let-values()(syntax-e$1(car e_18)))" +"(let-values(((e_16)(syntax-e$1 s_70)))" +"(if(symbol? e_16)" +"(let-values() e_16)" +"(if(if(pair? e_16)(identifier?(car e_16)) #f)" +"(let-values()(syntax-e$1(car e_16)))" "(let-values() #f)))))" "(let-values() #f)))))" "(define-values" @@ -13338,7 +12929,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13354,15 +12945,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" 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))))" +" struct:_30" +" make-_30" +" ?_30" +"(make-struct-field-accessor -ref_30 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_30 1 'module-uses)" +"(make-struct-field-accessor -ref_30 2 'self)" +"(make-struct-field-accessor -ref_30 3 'inspector)" +"(make-struct-field-accessor -ref_30 4 'extra-inspector)" +"(make-struct-field-accessor -ref_30 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13455,7 +13046,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13471,19 +13062,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" 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?))))" +" struct:_31" +" make-_31" +" ?_31" +"(make-struct-field-accessor -ref_31 0 'namespace)" +"(make-struct-field-accessor -ref_31 1 'module)" +"(make-struct-field-accessor -ref_31 2 'shifted-requires)" +"(make-struct-field-accessor -ref_31 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_31 4 'made-available?)" +"(make-struct-field-accessor -ref_31 5 'attached?)" +"(make-struct-field-accessor -ref_31 6 'data-box)" +"(make-struct-field-mutator -set!_31 2 'shifted-requires)" +"(make-struct-field-mutator -set!_31 4 'made-available?)" +"(make-struct-field-mutator -set!_31 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)))))" @@ -13498,7 +13089,7 @@ static const char *startup_source = "(let-values(((for-submodule?_0) for-submodule?45_0))" "(let-values()" "(let-values(((phase_28) 0))" -"(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" +"(let-values(((name_27)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" "(let-values(((the-struct_38)" "(let-values(((ns158_0) ns_20)" @@ -13507,7 +13098,7 @@ static const char *startup_source = "(new-namespace8.1 temp160_0 root-expand-ctx159_0 ns158_0))))" "(if(1/namespace? the-struct_38)" "(let-values(((mpi150_0) name-mpi_0)" -"((source-name151_0)(resolved-module-path-root-name name_28))" +"((source-name151_0)(resolved-module-path-root-name name_27))" "((phase152_0) phase_28)" "((0-phase153_0) phase_28)" "((submodule-declarations154_0)" @@ -13541,7 +13132,7 @@ static const char *startup_source = "(let-values(((at-phase_0)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances m-ns_1) phase_28 at-phase_0)" -"(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))" +"(hash-set! at-phase_0 name_27(make-module-instance m-ns_1 #f))" " m-ns_1))))))))))))))" "(define-values" "(declare-module!58.1)" @@ -13654,9 +13245,9 @@ static const char *startup_source = " (lambda (who_9 mod-name_6) (begin (raise-arguments-error who_9 \"unknown module\" \"module name\" mod-name_6))))" "(define-values" "(namespace->module-linklet-info)" -"(lambda(ns_22 name_29 phase-level_12)" +"(lambda(ns_22 name_28 phase-level_12)" "(begin" -"(let-values(((m_3)(namespace->module ns_22 name_29)))" +"(let-values(((m_3)(namespace->module ns_22 name_28)))" "(if m_3((module-phase-level-linklet-info-callback m_3) phase-level_12 ns_22(module-inspector m_3)) #f)))))" "(define-values" "(namespace->module-instance70.1)" @@ -13669,7 +13260,7 @@ static const char *startup_source = "(begin" " 'namespace->module-instance70" "(let-values(((ns_23) ns67_0))" -"(let-values(((name_30) name68_0))" +"(let-values(((name_29) name68_0))" "(let-values(((0-phase_1) 0-phase69_0))" "(let-values(((complain-on-failure?_0) complain-on-failure?61_0))" "(let-values(((check-available-at-phase-level_0) check-available-at-phase-level62_0))" @@ -13680,7 +13271,7 @@ static const char *startup_source = "(let-values(((or-part_147)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" -" name_30" +" name_29" " #f)))" "(if or-part_147" " or-part_147" @@ -13689,18 +13280,18 @@ static const char *startup_source = "(let-values(((or-part_149)" "(namespace-root-namespace ns_23)))" "(if or-part_149 or-part_149 ns_23))))" -"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" +"(hash-ref(namespace-module-instances c-ns_0) name_29 #f))))" "(if or-part_148" " or-part_148" "(if complain-on-failure?_0" -" (error \"no module instance found:\" name_30 0-phase_1)" +" (error \"no module instance found:\" name_29 0-phase_1)" " #f)))))))" "(if(if mi_0 check-available-at-phase-level_0 #f)" "(check-availablilty mi_0 check-available-at-phase-level_0 unavailable-callback_0)" " mi_0))))))))))))" "(define-values" "(namespace-install-module-namespace!)" -"(lambda(ns_24 name_31 0-phase_2 m_4 existing-m-ns_0)" +"(lambda(ns_24 name_30 0-phase_2 m_4 existing-m-ns_0)" "(begin" "(let-values(((m-ns_3)" "(let-values(((the-struct_39) ns_24))" @@ -13751,7 +13342,7 @@ static const char *startup_source = "(hash-set!" "(namespace-module-instances" "(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))" -" name_31" +" name_30" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" "(let-values()" @@ -13777,10 +13368,10 @@ static const char *startup_source = "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" " at-phase_3))))))" -"(hash-set! at-phase_2 name_31 mi_1))))))))))))" +"(hash-set! at-phase_2 name_30 mi_1))))))))))))" "(define-values" "(namespace-create-module-instance!)" -"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_15)" +"(lambda(ns_25 name_31 0-phase_3 m_5 mpi_15)" "(begin" "(let-values(((m-ns_4)" "(let-values(((the-struct_40) ns_25))" @@ -13819,7 +13410,7 @@ static const char *startup_source = "(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))" "(begin" "(if(module-cross-phase-persistent? m_5)" -"(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" +"(hash-set!(namespace-module-instances ns_25) name_31 mi_2)" "(let-values(((at-phase_4)" "(let-values(((or-part_153)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" "(if or-part_153" @@ -13828,7 +13419,7 @@ static const char *startup_source = "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" " at-phase_5))))))" -"(hash-set! at-phase_4 name_32 mi_2)))" +"(hash-set! at-phase_4 name_31 mi_2)))" " mi_2)))))))" "(define-values" "(check-availablilty)" @@ -13857,7 +13448,7 @@ static const char *startup_source = "(begin" " 'namespace->module-namespace82" "(let-values(((ns_26) ns79_0))" -"(let-values(((name_33) name80_0))" +"(let-values(((name_32) name80_0))" "(let-values(((0-phase_4) 0-phase81_0))" "(let-values(((complain-on-failure?_1) complain-on-failure?73_0))" "(let-values(((check-available-at-phase-level_2) check-available-at-phase-level74_0))" @@ -13866,7 +13457,7 @@ static const char *startup_source = "(let-values()" "(let-values(((mi_4)" "(let-values(((ns188_0) ns_26)" -"((name189_0) name_33)" +"((name189_0) name_32)" "((0-phase190_0) 0-phase_4)" "((complain-on-failure?191_0) complain-on-failure?_1)" "((check-available-at-phase-level192_0) check-available-at-phase-level_2)" @@ -13910,13 +13501,13 @@ static const char *startup_source = "(void)" " (let-values () (error \"not a module path index:\" mpi_16)))" "(values))))" -"(let-values(((name_34)(1/module-path-index-resolve mpi_16 #t)))" -"(let-values(((m_8)(namespace->module ns_29 name_34)))" +"(let-values(((name_33)(1/module-path-index-resolve mpi_16 #t)))" +"(let-values(((m_8)(namespace->module ns_29 name_33)))" "(let-values((()" "(begin" "(if m_8" "(void)" -"(let-values()(raise-unknown-module-error 'instantiate name_34)))" +"(let-values()(raise-unknown-module-error 'instantiate name_33)))" "(values))))" "(let-values(((instantiate!_0)" "(lambda(instance-phase_1 run-phase_1 ns_30)" @@ -13925,7 +13516,7 @@ static const char *startup_source = "(let-values(((mi_6)" "(let-values(((or-part_154)" "(let-values(((ns203_0) ns_30)" -"((name204_0) name_34)" +"((name204_0) name_33)" "((instance-phase205_0)" " instance-phase_1))" "(namespace->module-instance70.1" @@ -13939,7 +13530,7 @@ static const char *startup_source = " or-part_154" "(namespace-create-module-instance!" " ns_30" -" name_34" +" name_33" " instance-phase_1" " m_8" " mpi_16)))))" @@ -14414,7 +14005,7 @@ static const char *startup_source = "(registry-call-with-lock" "(namespace-module-registry$1 ns_37)" "(lambda()" -"((letrec-values(((loop_79)" +"((letrec-values(((loop_77)" "(lambda()" "(begin" " 'loop" @@ -14480,16 +14071,16 @@ static const char *startup_source = " for-loop_91)" " lst_67)))" "(void)" -"(loop_79)))))))))" -" loop_79)))))))))))))" +"(loop_77)))))))))" +" loop_77)))))))))))))" "(case-lambda" "((ns_38)(begin(namespace-run-available-modules!134_0 ns_38 unsafe-undefined)))" "((ns_39 run-phase132_1)(namespace-run-available-modules!134_0 ns_39 run-phase132_1)))))" "(define-values" "(namespace-primitive-module-visit!)" -"(lambda(ns_40 name_35)" +"(lambda(ns_40 name_34)" "(begin" -"(let-values(((mi_9)(hash-ref(namespace-module-instances ns_40)(1/make-resolved-module-path name_35))))" +"(let-values(((mi_9)(hash-ref(namespace-module-instances ns_40)(1/make-resolved-module-path name_34))))" "(let-values(((mi227_0) mi_9)((ns228_0) ns_40)((temp229_0) 1)((temp230_0) #f)((temp231_0) #t))" "(run-module-instance!125.1 temp231_0 temp229_0 unsafe-undefined temp230_0 mi227_0 ns228_0))))))" "(define-values" @@ -14806,15 +14397,15 @@ static const char *startup_source = "(resolve+shift/extra-inspector)" "(lambda(id_13 phase_34 ns_43)" "(begin" -"((letrec-values(((loop_80)" +"((letrec-values(((loop_78)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" "(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_59)))" -"(if c1_24" +"(let-values(((c1_23)(binding-free=id b_59)))" +"(if c1_23" "((lambda(next-id_0)" "(let-values((()" "(begin" @@ -14833,7 +14424,7 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_80" +"(loop_78" " next-id_0" "(let-values(((or-part_75) in-s_1))" "(if or-part_75 or-part_75 id_14)))))" @@ -14860,16 +14451,16 @@ static const char *startup_source = " unsafe-undefined" " next-b4_0)))" "(let-values() next-b_0))))))" -" c1_24)" +" c1_23)" "(let-values() b_59))))))))" -" loop_80)" +" loop_78)" " id_13" " #f))))" "(define-values" "(1/prop:set!-transformer 1/set!-transformer? set!-transformer-value)" "(make-struct-type-property" " 'set!-transformer" -"(lambda(v_29 info_1)" +"(lambda(v_29 info_0)" "(let-values((()" "(begin" "(if(let-values(((or-part_11)" @@ -14893,7 +14484,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? v_29)" "(let-values()" "(begin" -"(if(<= v_29(list-ref info_1 1))" +"(if(<= v_29(list-ref info_0 1))" "(void)" "(let-values()" "(raise-arguments-error" @@ -14902,8 +14493,8 @@ static const char *startup_source = " \"field index\"" " v_29" " \"initialized-field count\"" -"(list-ref info_1 1))))" -"(if(member v_29(list-ref info_1 5))" +"(list-ref info_0 1))))" +"(if(member v_29(list-ref info_0 5))" "(void)" "(let-values()" "(raise-arguments-error" @@ -14913,20 +14504,20 @@ static const char *startup_source = " v_29)))))" "(void))" "(values))))" -"(let-values(((ref_0)(list-ref info_1 3)))" +"(let-values(((ref_0)(list-ref info_0 3)))" "(if(integer? v_29)" "(let-values()" -"(lambda(t_36)" -"(let-values(((p_32)(ref_0 t_36 v_29)))" -"(if(if(procedure? p_32)(procedure-arity-includes? p_32 1) #f)" -" p_32" +"(lambda(t_35)" +"(let-values(((p_23)(ref_0 t_35 v_29)))" +"(if(if(procedure? p_23)(procedure-arity-includes? p_23 1) #f)" +" p_23" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" -"(let-values()(lambda(t_15) v_29)))))))))" +"(let-values()(lambda(t_14) v_29)))))))))" "(define-values" "(1/make-set!-transformer)" "(let-values()" "(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14941,7 +14532,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'proc)))))" +"(values struct:_32 make-_32 ?_32(make-struct-field-accessor -ref_32 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14952,21 +14543,21 @@ static const char *startup_source = "(set!-transformer1_0 proc_3)))))))" "(define-values" "(1/set!-transformer-procedure)" -"(lambda(t_39)" +"(lambda(t_38)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_99)((set!-transformer-value t_39) t_39)))" -"(if(procedure-arity-includes? v_99 1) v_99(lambda(s_167)(v_99 t_39 s_167)))))))" +"(let-values(((v_90)((set!-transformer-value t_38) t_38)))" +"(if(procedure-arity-includes? v_90 1) v_90(lambda(s_167)(v_90 t_38 s_167)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" -"(lambda(t_15)" -"(begin(let-values(((or-part_10)(eq? t_15 variable)))(if or-part_10 or-part_10(local-variable? t_15))))))" +"(lambda(t_14)" +"(begin(let-values(((or-part_10)(eq? t_14 variable)))(if or-part_10 or-part_10(local-variable? t_14))))))" "(define-values" "(struct:local-variable local-variable1.1 local-variable? local-variable-id)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14981,40 +14572,40 @@ static const char *startup_source = " '(0)" " #f" " 'local-variable)))))" -"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'id))))" +"(values struct:_21 make-_21 ?_21(make-struct-field-accessor -ref_21 0 'id))))" "(define-values" "(substitute-variable6.1)" "(lambda(no-stops?2_0 id4_0 t5_0)" "(begin" " 'substitute-variable6" "(let-values(((id_5) id4_0))" -"(let-values(((t_40) t5_0))" +"(let-values(((t_39) t5_0))" "(let-values(((no-stops?_0) no-stops?2_0))" "(let-values()" -"(if(if no-stops?_0(local-variable? t_40) #f)" -"(let-values(((bind-id_0)(local-variable-id t_40)))" +"(if(if no-stops?_0(local-variable? t_39) #f)" +"(let-values(((bind-id_0)(local-variable-id t_39)))" "(syntax-rearm$1(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_5 id_5) id_5))" " id_5))))))))" "(define-values(missing)(gensym 'missing))" "(define-values" "(transformer?)" -"(lambda(t_41)" +"(lambda(t_40)" "(begin" -"(let-values(((or-part_32)(procedure? t_41)))" +"(let-values(((or-part_32)(procedure? t_40)))" "(if or-part_32" " or-part_32" -"(let-values(((or-part_159)(1/set!-transformer? t_41)))" -"(if or-part_159 or-part_159(1/rename-transformer? t_41))))))))" +"(let-values(((or-part_159)(1/set!-transformer? t_40)))" +"(if or-part_159 or-part_159(1/rename-transformer? t_40))))))))" "(define-values" "(transformer->procedure)" -"(lambda(t_42)" +"(lambda(t_41)" "(begin" -"(if(1/set!-transformer? t_42)" -"(let-values()(1/set!-transformer-procedure t_42))" -"(if(1/rename-transformer? t_42)(let-values()(lambda(s_168) s_168))(let-values() t_42))))))" +"(if(1/set!-transformer? t_41)" +"(let-values()(1/set!-transformer-procedure t_41))" +"(if(1/rename-transformer? t_41)(let-values()(lambda(s_168) s_168))(let-values() t_41))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" -"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" +"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15030,11 +14621,11 @@ static const char *startup_source = " #f" " 'core-form)))))" "(values" -" struct:_24" -" make-_24" -" ?_24" -"(make-struct-field-accessor -ref_24 0 'expander)" -"(make-struct-field-accessor -ref_24 1 'name))))" +" struct:_14" +" make-_14" +" ?_14" +"(make-struct-field-accessor -ref_14 0 'expander)" +"(make-struct-field-accessor -ref_14 1 'name))))" "(define-values" "(add-binding!17.1)" "(lambda(in10_0 just-for-nominal?11_0 id14_0 binding15_0 phase16_0)" @@ -15130,7 +14721,7 @@ static const char *startup_source = " ns_44" "(if mi_15(module-instance-namespace mi_15) #f))))" "(let-values((()(begin(check-taint id_18)(values))))" -"(let-values(((t_43)" +"(let-values(((t_42)" "(namespace-get-transformer" " m-ns_7" "(module-binding-phase b_60)" @@ -15143,7 +14734,7 @@ static const char *startup_source = " mi_15" " id_18" " in-s_6" -" (if (variable? t_43) \"variable\" \"transformer\"))" +" (if (variable? t_42) \"variable\" \"transformer\"))" " #f)))" "(let-values(((insp_6)" "(if mi_15" @@ -15151,11 +14742,11 @@ static const char *startup_source = "(module-inspector(module-instance-module mi_15))" " #f)" " #f)))" -"(values t_43 primitive?_1 insp_6 protected?_1)))))))))))" +"(values t_42 primitive?_1 insp_6 protected?_1)))))))))))" "(if(local-binding? b_60)" "(let-values()" -"(let-values(((t_44)(hash-ref env_1(local-binding-key b_60) missing)))" -"(if(eq? t_44 missing)" +"(let-values(((t_43)(hash-ref env_1(local-binding-key b_60) missing)))" +"(if(eq? t_43 missing)" "(let-values()" "(values" "(let-values(((or-part_103)" @@ -15165,7 +14756,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_73)))" "((letrec-values(((for-loop_96)" -"(lambda(result_59 lst_74)" +"(lambda(result_60 lst_74)" "(begin" " 'for-loop" "(if(pair? lst_74)" @@ -15173,10 +14764,10 @@ static const char *startup_source = "(unsafe-car lst_74))" "((rest_34)" "(unsafe-cdr lst_74)))" -"(let-values(((result_60)" -"(let-values()" "(let-values(((result_61)" "(let-values()" +"(let-values(((result_62)" +"(let-values()" "(let-values()" "(hash-ref" "(unbox" @@ -15185,15 +14776,15 @@ static const char *startup_source = " b_60)" " #f)))))" "(values" -" result_61)))))" +" result_62)))))" "(if(if(not" -"((lambda x_41 result_60)" +"((lambda x_40 result_61)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_96 result_60 rest_34)" -" result_60)))" -" result_59)))))" +"(for-loop_96 result_61 rest_34)" +" result_61)))" +" result_60)))))" " for-loop_96)" " #f" " lst_73)))))" @@ -15205,7 +14796,7 @@ static const char *startup_source = " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_18)(values t_44 #f #f #f))))))" +"(let-values()(begin(check-taint id_18)(values t_43 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_60))))))))))))))))" "(define-values" "(check-taint)" @@ -15223,7 +14814,7 @@ static const char *startup_source = "(if(list? s_169)" "(let-values() s_169)" "(if(pair? s_169)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_169))))(if r_28(cons(car s_169) r_28) #f)))" +"(let-values()(let-values(((r_25)(to-syntax-list.1(cdr s_169))))(if r_25(cons(car s_169) r_25) #f)))" "(if(syntax?$1 s_169)(let-values()(to-syntax-list.1(syntax-e$1 s_169)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" @@ -15604,20 +15195,20 @@ static const char *startup_source = "(if(not(null? lst_82))" "(let-values(((id_2)(if(pair? lst_82)(car lst_82) lst_82))" "((rest_38)(if(pair? lst_82)(cdr lst_82) null)))" -"(let-values(((result_62)" -"(let-values()" "(let-values(((result_63)" "(let-values()" +"(let-values(((result_64)" +"(let-values()" "(let-values()" "(free-identifier=?$1" " id_2" " given-id_0" " phase_42" " phase_42)))))" -"(values result_63)))))" -"(if(if(not((lambda x_42 result_62) id_2))(not #f) #f)" -"(for-loop_102 result_62 rest_38)" -" result_62)))" +"(values result_64)))))" +"(if(if(not((lambda x_41 result_63) id_2))(not #f) #f)" +"(for-loop_102 result_63 rest_38)" +" result_63)))" " result_3)))))" " for-loop_102)" " #f" @@ -15650,7 +15241,7 @@ static const char *startup_source = " expand-context/outer-current-introduction-scopes" " expand-context/outer-current-use-scopes" " expand-context/outer-name)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15666,20 +15257,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'context)" -"(make-struct-field-accessor -ref_36 1 'env)" -"(make-struct-field-accessor -ref_36 2 'scopes)" -"(make-struct-field-accessor -ref_36 3 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_36 4 'binding-layer)" -"(make-struct-field-accessor -ref_36 5 'reference-records)" -"(make-struct-field-accessor -ref_36 6 'only-immediate?)" -"(make-struct-field-accessor -ref_36 7 'need-eventually-defined)" -"(make-struct-field-accessor -ref_36 8 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_36 9 'current-use-scopes)" -"(make-struct-field-accessor -ref_36 10 'name))))" +" struct:_26" +" make-_26" +" ?_26" +"(make-struct-field-accessor -ref_26 0 'context)" +"(make-struct-field-accessor -ref_26 1 'env)" +"(make-struct-field-accessor -ref_26 2 'scopes)" +"(make-struct-field-accessor -ref_26 3 'def-ctx-scopes)" +"(make-struct-field-accessor -ref_26 4 'binding-layer)" +"(make-struct-field-accessor -ref_26 5 'reference-records)" +"(make-struct-field-accessor -ref_26 6 'only-immediate?)" +"(make-struct-field-accessor -ref_26 7 'need-eventually-defined)" +"(make-struct-field-accessor -ref_26 8 'current-introduction-scopes)" +"(make-struct-field-accessor -ref_26 9 'current-use-scopes)" +"(make-struct-field-accessor -ref_26 10 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15703,7 +15294,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:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15719,28 +15310,28 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" 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?))))" +" struct:_33" +" make-_33" +" ?_33" +"(make-struct-field-accessor -ref_33 0 'to-parsed?)" +"(make-struct-field-accessor -ref_33 1 'phase)" +"(make-struct-field-accessor -ref_33 2 'namespace)" +"(make-struct-field-accessor -ref_33 3 'just-once?)" +"(make-struct-field-accessor -ref_33 4 'module-begin-k)" +"(make-struct-field-accessor -ref_33 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_33 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_33 7 'keep-#%expression?)" +"(make-struct-field-accessor -ref_33 8 'stops)" +"(make-struct-field-accessor -ref_33 9 'declared-submodule-names)" +"(make-struct-field-accessor -ref_33 10 'lifts)" +"(make-struct-field-accessor -ref_33 11 'lift-envs)" +"(make-struct-field-accessor -ref_33 12 'module-lifts)" +"(make-struct-field-accessor -ref_33 13 'require-lifts)" +"(make-struct-field-accessor -ref_33 14 'to-module-lifts)" +"(make-struct-field-accessor -ref_33 15 'requires+provides)" +"(make-struct-field-accessor -ref_33 16 'observer)" +"(make-struct-field-accessor -ref_33 17 'for-serializable?)" +"(make-struct-field-accessor -ref_33 18 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" @@ -15779,7 +15370,7 @@ static const char *startup_source = " require-lifts_0" " to-module-lifts_0" " requires+provides_0" -" name_36" +" name_35" " observer_0" " for-serializable?_0" " should-not-encounter-macros?_0)" @@ -15825,83 +15416,83 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " current-use-scopes_0" -" name_36))))" -"(define-values(expand-context-context)(lambda(v_100)(begin(expand-context/outer-context v_100))))" -"(define-values(expand-context-env)(lambda(v_101)(begin(expand-context/outer-env v_101))))" -"(define-values(expand-context-scopes)(lambda(v_102)(begin(expand-context/outer-scopes v_102))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_103)(begin(expand-context/outer-def-ctx-scopes v_103))))" -"(define-values(expand-context-binding-layer)(lambda(v_104)(begin(expand-context/outer-binding-layer v_104))))" +" name_35))))" +"(define-values(expand-context-context)(lambda(v_91)(begin(expand-context/outer-context v_91))))" +"(define-values(expand-context-env)(lambda(v_92)(begin(expand-context/outer-env v_92))))" +"(define-values(expand-context-scopes)(lambda(v_93)(begin(expand-context/outer-scopes v_93))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_94)(begin(expand-context/outer-def-ctx-scopes v_94))))" +"(define-values(expand-context-binding-layer)(lambda(v_95)(begin(expand-context/outer-binding-layer v_95))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_105)(begin(expand-context/outer-reference-records v_105))))" -"(define-values(expand-context-only-immediate?)(lambda(v_106)(begin(expand-context/outer-only-immediate? v_106))))" +"(lambda(v_96)(begin(expand-context/outer-reference-records v_96))))" +"(define-values(expand-context-only-immediate?)(lambda(v_97)(begin(expand-context/outer-only-immediate? v_97))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_107)(begin(expand-context/outer-need-eventually-defined v_107))))" +"(lambda(v_98)(begin(expand-context/outer-need-eventually-defined v_98))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_108)(begin(expand-context/outer-current-introduction-scopes v_108))))" +"(lambda(v_99)(begin(expand-context/outer-current-introduction-scopes v_99))))" "(define-values" "(expand-context-current-use-scopes)" -"(lambda(v_109)(begin(expand-context/outer-current-use-scopes v_109))))" -"(define-values(expand-context-name)(lambda(v_110)(begin(expand-context/outer-name v_110))))" +"(lambda(v_100)(begin(expand-context/outer-current-use-scopes v_100))))" +"(define-values(expand-context-name)(lambda(v_101)(begin(expand-context/outer-name v_101))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_111)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_102)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_102)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_112)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_112)))))" +"(lambda(v_103)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_103)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_113)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_113)))))" +"(lambda(v_104)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_104)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_114)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_114)))))" +"(lambda(v_105)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_105)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_115)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_115)))))" +"(lambda(v_106)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_106)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_116)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_116)))))" +"(lambda(v_107)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_107)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_117)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_117)))))" +"(lambda(v_108)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_108)))))" "(define-values" "(expand-context-keep-#%expression?)" -"(lambda(v_118)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_118)))))" +"(lambda(v_109)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_109)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_119)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_119)))))" +"(lambda(v_110)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_110)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_120)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_120)))))" +"(lambda(v_111)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_121)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_121)))))" +"(lambda(v_112)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_122)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_122)))))" +"(lambda(v_113)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_123)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_123)))))" +"(lambda(v_114)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_124)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_124)))))" +"(lambda(v_115)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_125)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_125)))))" +"(lambda(v_116)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_126)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_126)))))" +"(lambda(v_117)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_127)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_127)))))" +"(lambda(v_118)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_128)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_128)))))" +"(lambda(v_119)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_129)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_129)))))" +"(lambda(v_120)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_120)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 observer5_0 to-parsed?3_0 ns9_0)" @@ -15958,15 +15549,15 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_130) ctx_1))" -"(let-values(((the-struct_14) v_130))" +"(let-values(((v_121) ctx_1))" +"(let-values(((the-struct_14) v_121))" "(if(expand-context/outer? the-struct_14)" "(let-values(((post-expansion27_0)(root-expand-context-post-expansion root-ctx_2))" "((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" "((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" "((inner31_0)" -"(let-values(((the-struct_41)(root-expand-context/outer-inner v_130)))" +"(let-values(((the-struct_41)(root-expand-context/outer-inner v_121)))" "(if(expand-context/inner? the-struct_41)" "(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" @@ -16038,14 +15629,14 @@ static const char *startup_source = "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_131)" +"(lambda(v_122)" "(begin" -"(if(let-values(((or-part_162)(not v_131)))" -"(if or-part_162 or-part_162(if(procedure? v_131)(procedure-arity-includes? v_131 2) #f)))" +"(if(let-values(((or-part_162)(not v_122)))" +"(if or-part_162 or-part_162(if(procedure? v_122)(procedure-arity-includes? v_122 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_131)))" -" v_131))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_122)))" +" v_122))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -16053,13 +15644,13 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_132) ctx_2))" -"(let-values(((the-struct_16) v_132))" +"(let-values(((v_123) ctx_2))" +"(let-values(((the-struct_16) v_123))" "(if(expand-context/outer? the-struct_16)" "(let-values(((context39_0) 'expression)" "((name40_0) #f)" "((post-expansion41_0) #f)" -"((inner42_0)(root-expand-context/outer-inner v_132)))" +"((inner42_0)(root-expand-context/outer-inner v_123)))" "(expand-context/outer1.1" " inner42_0" " post-expansion41_0" @@ -16084,10 +15675,10 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_133) ctx_3))" -"(let-values(((the-struct_42) v_133))" +"(let-values(((v_124) ctx_3))" +"(let-values(((the-struct_42) v_124))" "(if(expand-context/outer? the-struct_42)" -"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_133)))" +"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_124)))" "(expand-context/outer1.1" " inner44_0" "(root-expand-context/outer-post-expansion the-struct_42)" @@ -16115,11 +15706,11 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_134) ctx_4))" -"(let-values(((the-struct_43) v_134))" +"(let-values(((v_125) ctx_4))" +"(let-values(((the-struct_43) v_125))" "(if(expand-context/outer? the-struct_43)" "(let-values(((name45_0)(expand-context-name wrt-ctx_0))" -"((inner46_0)(root-expand-context/outer-inner v_134)))" +"((inner46_0)(root-expand-context/outer-inner v_125)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion the-struct_43)" @@ -16144,10 +15735,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_135) ctx_5))" -"(let-values(((the-struct_44) v_135))" +"(let-values(((v_126) ctx_5))" +"(let-values(((the-struct_44) v_126))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_135)))" +"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_126)))" "(expand-context/outer1.1" " inner48_0" "(root-expand-context/outer-post-expansion the-struct_44)" @@ -16170,11 +15761,11 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_136) ctx_6))" -"(let-values(((the-struct_45) v_136))" +"(let-values(((v_127) ctx_6))" +"(let-values(((the-struct_45) v_127))" "(if(expand-context/outer? the-struct_45)" "(let-values(((inner49_0)" -"(let-values(((the-struct_46)(root-expand-context/outer-inner v_136)))" +"(let-values(((the-struct_46)(root-expand-context/outer-inner v_127)))" "(if(expand-context/inner? the-struct_46)" "(let-values(((to-parsed?50_0) #t)" "((observer51_0) #f)" @@ -16228,7 +15819,7 @@ static const char *startup_source = "(taint-dispatch)" "(lambda(s_0 proc_6 phase_33)" "(begin" -"((letrec-values(((loop_81)" +"((letrec-values(((loop_79)" "(lambda(s_73 mode_11)" "(begin" " 'loop" @@ -16248,7 +15839,7 @@ static const char *startup_source = "(lambda(s_178)" "(begin" " 's->" -"(loop_81" +"(loop_79" " s_178" "(syntax-taint-mode-property s_178)))))" "((seen_19) #f))" @@ -16262,7 +15853,7 @@ static const char *startup_source = "(let-values()(s->_3 v_32))" "(let-values()(f_1 tail?_41 v_32))))))" "((seen_20) seen_19))" -"((letrec-values(((loop_82)" +"((letrec-values(((loop_80)" "(lambda(tail?_42 s_4 prev-depth_8)" "(begin" " 'loop" @@ -16283,8 +15874,8 @@ static const char *startup_source = "(f_2" " tail?_42" "(cons" -"(loop_82 #f(car s_4) depth_8)" -"(loop_82" +"(loop_80 #f(car s_4) depth_8)" +"(loop_80" " #t" "(cdr s_4)" " depth_8))))" @@ -16325,7 +15916,7 @@ static const char *startup_source = "(gf_8" " #f" " s_4))))))))))))))" -" loop_82)" +" loop_80)" " #f" " s_179" " 0)))))" @@ -16351,9 +15942,9 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(cons" -"(loop_81(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_79(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" -"(loop_81(car d_19) 'transparent)" +"(loop_79(car d_19) 'transparent)" "(let-values(((s_5)" "(let-values(((or-part_163)" "(syntax->list$1(cdr d_19))))" @@ -16363,7 +15954,7 @@ static const char *startup_source = "(lambda(s_182)" "(begin" " 's->" -"(loop_81" +"(loop_79" " s_182" "(syntax-taint-mode-property s_182)))))" "((seen_0) #f))" @@ -16377,7 +15968,7 @@ static const char *startup_source = "(let-values()(s->_4 v_42))" "(let-values()(f_38 tail?_45 v_42))))))" "((seen_21) seen_0))" -"((letrec-values(((loop_83)" +"((letrec-values(((loop_81)" "(lambda(tail?_46 s_183 prev-depth_9)" "(begin" " 'loop" @@ -16401,11 +15992,11 @@ static const char *startup_source = "(f_39" " tail?_46" "(cons" -"(loop_83" +"(loop_81" " #f" "(car s_183)" " depth_9)" -"(loop_83" +"(loop_81" " #t" "(cdr s_183)" " depth_9))))" @@ -16449,7 +16040,7 @@ static const char *startup_source = "(gf_9" " #f" " s_183))))))))))))))" -" loop_83)" +" loop_81)" " #f" " s_42" " 0)))))" @@ -16457,8 +16048,8 @@ static const char *startup_source = "(if(syntax-any-macro-scopes? s_73)" "(1/syntax-property-remove s_73 original-property-sym)" " s_73))))" -"(let-values()(loop_81 s_73 'transparent)))))" -"(let-values()(loop_81 s_73 'transparent)))))" +"(let-values()(loop_79 s_73 'transparent)))))" +"(let-values()(loop_79 s_73 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_73)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_33)))" @@ -16467,13 +16058,13 @@ static const char *startup_source = "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_81 s_73 'transparent))" +"(let-values()(loop_79 s_73 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_81 s_73 'transparent-binding))" -"(let-values()(loop_81 s_73 'opaque))))))))))))))))" -" loop_81)" +"(let-values()(loop_79 s_73 'transparent-binding))" +"(let-values()(loop_79 s_73 'opaque))))))))))))))))" +" loop_79)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" @@ -16887,7 +16478,7 @@ static const char *startup_source = " fold-var_65)))))" " for-loop_105)" " fold-var_63" -"((letrec-values(((loop_84)" +"((letrec-values(((loop_82)" "(lambda(sym-i_1)" "(begin" " 'loop" @@ -16898,7 +16489,7 @@ static const char *startup_source = " '(#f" " ." " #f))))))" -" loop_84)" +" loop_82)" "(hash-iterate-first" " sym-ht_1)))))))" "(if(not" @@ -16985,7 +16576,7 @@ static const char *startup_source = " null" "(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_137)(vector-ref v_137 0))))" +"((temp3_2)(lambda(v_128)(vector-ref v_128 0))))" "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -17002,18 +16593,18 @@ static const char *startup_source = "(syntax-debug-info-string)" "(lambda(s_189 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #f)))" +"(let-values(((info_2)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #f)))" "(if(not" -"(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" +"(let-values(((or-part_26)(pair?(hash-ref info_2 'bindings null))))" "(if or-part_26" " or-part_26" -"(let-values(((lst_84)(hash-ref info_3 'fallbacks null)))" +"(let-values(((lst_84)(hash-ref info_2 'fallbacks null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" "((letrec-values(((for-loop_107)" -"(lambda(result_64 lst_85)" +"(lambda(result_65 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" @@ -17021,7 +16612,7 @@ static const char *startup_source = "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" -"(let-values(((result_65)" +"(let-values(((result_66)" "(let-values()" "(let-values()" "(pair?" @@ -17029,27 +16620,27 @@ static const char *startup_source = " fb-info_0" " 'bindings" " null))))))" -"(values result_65)))))" -"(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" +"(values result_66)))))" +"(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)" "(for-loop_107 result_1 rest_40)" " result_1)))" -" result_64)))))" +" result_65)))))" " for-loop_107)" " #f" " lst_84))))))" " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_80)" -"(lambda(info_4 layer_0)" +"((letrec-values(((loop_78)" +"(lambda(info_3 layer_0)" "(begin" " 'loop" "(apply" " append" "(cons" -"(hash-ref info_4 'context)" +"(hash-ref info_3 'context)" "(reverse$1" -"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_86)(hash-ref info_3 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17082,7 +16673,7 @@ static const char *startup_source = " for-loop_108)" " null" " lst_86)))))" -"(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" +"(let-values(((fallbacks_0)(hash-ref info_3 'fallbacks null)))" "(reverse$1" "(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" @@ -17109,7 +16700,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_80" +"(loop_78" " fallback_0" " layer_1))" " fold-var_72))))" @@ -17126,8 +16717,8 @@ static const char *startup_source = " null" " lst_88" " start_14))))))))))" -" loop_80)" -" info_3" +" loop_78)" +" info_2" " 0)))" "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" @@ -17158,20 +16749,20 @@ static const char *startup_source = "(list->set(car relevant-scope-sets_0))" " lst_90))))))" "(string-append" -"((letrec-values(((loop_83)" -"(lambda(info_5 layer_2)" +"((letrec-values(((loop_81)" +"(lambda(info_4 layer_2)" "(begin" " 'loop" "(string-append" " \"\\n context\"" "(layer->string layer_2)" " \"...:\"" -"(describe-context(hash-ref info_5 'context) common-scopes_0)" +"(describe-context(hash-ref info_4 'context) common-scopes_0)" "(apply" " string-append" "(reverse$1" "(let-values(((lst_92)" -"(let-values(((temp1_2)(hash-ref info_5 'bindings null))" +"(let-values(((temp1_2)(hash-ref info_4 'bindings null))" "((temp2_2)" "(lambda(a_41 b_67)" "(begin" @@ -17236,7 +16827,7 @@ static const char *startup_source = " for-loop_111)" " null" " lst_92)))))" -"(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" +"(let-values(((fallbacks_1)(hash-ref info_4 'fallbacks null)))" "(apply" " string-append" "(reverse$1" @@ -17263,7 +16854,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_83" +"(loop_81" " fallback_1" " layer_3))" " fold-var_78))))" @@ -17279,8 +16870,8 @@ static const char *startup_source = " null" " lst_94" " start_15)))))))))))" -" loop_83)" -" info_3" +" loop_81)" +" info_2" " 0)" "(if(set-empty? common-scopes_0)" " \"\"" @@ -17288,7 +16879,7 @@ static const char *startup_source = " \"\\n common scopes...:\"" "(describe-context" "(reverse$1" -"(let-values(((lst_96)(hash-ref info_3 'context)))" +"(let-values(((lst_96)(hash-ref info_2 'context)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17459,12 +17050,12 @@ static const char *startup_source = " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" "((letrec-values(((loop_6)" -"(lambda(v_138 ht_84)" +"(lambda(v_129 ht_84)" "(begin" " 'loop" -"(if(identifier? v_138)" +"(if(identifier? v_129)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_138) null)))" +"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_129) null)))" "(begin" "(let-values(((lst_102) l_49))" "(begin" @@ -17487,7 +17078,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_21" -" v_138" +" v_129" " phase_47)" "(let-values()" "(raise-syntax-error$1" @@ -17496,7 +17087,7 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_3" -" v_138))" +" v_129))" "(void)))" "(values)))))" "(values)))))" @@ -17507,9 +17098,9 @@ static const char *startup_source = " for-loop_116)" " lst_102)))" "(void)" -"(hash-set ht_84(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_84)))" +"(hash-set ht_84(syntax-e$1 v_129)(cons v_129 l_49)))))" +"(if(pair? v_129)" +"(let-values()(loop_6(cdr v_129)(loop_6(car v_129) ht_84)))" "(let-values() ht_84)))))))" " loop_6)" " ids_2" @@ -17641,22 +17232,22 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_45 mpi_20)" +"(lambda(t_44 mpi_20)" "(begin" -"(let-values(((or-part_72)(hash-ref(mpi-intern-table-fast t_45) mpi_20 #f)))" +"(let-values(((or-part_72)(hash-ref(mpi-intern-table-fast t_44) mpi_20 #f)))" "(if or-part_72" " or-part_72" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" "(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 mpi_20) mpi_20))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_44) mpi_20 mpi_20) mpi_20))" "(let-values()" -"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_45 base_15) #f)))" +"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_44 base_15) #f)))" "(let-values(((at-name_0)" -"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_45) name_2 #f)))" +"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_44) name_2 #f)))" "(if or-part_29" " or-part_29" "(let-values(((at-name_1)(make-hasheq)))" -"(begin(hash-set!(mpi-intern-table-normal t_45) name_2 at-name_1) at-name_1))))))" +"(begin(hash-set!(mpi-intern-table-normal t_44) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" "(let-values(((or-part_79)(hash-ref at-name_0 interned-base_0 #f)))" "(if or-part_79" @@ -17677,7 +17268,7 @@ static const char *startup_source = " \"module-path-index?\"" " the-struct_47))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" -"(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set!(mpi-intern-table-fast t_44) mpi_20 i-mpi_0) i-mpi_0))))))))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" "(define-values(built-in-symbol?)(lambda(s_72)(begin(hash-ref built-in-symbols s_72 #f))))" @@ -17796,12 +17387,12 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_139)" +"(lambda(v_130)" "(begin" " 'unique-list" -"(if(pair? v_139)" +"(if(pair? v_130)" "(reverse$1" -"(let-values(((lst_104) v_139))" +"(let-values(((lst_104) v_130))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17828,7 +17419,7 @@ static const char *startup_source = " for-loop_118)" " null" " lst_104))))" -" v_139)))))" +" v_130)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" @@ -17842,7 +17433,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_95" -"(let-values(((k_20 v_70)(hash-iterate-key+value ht_85 i_95)))" +"(let-values(((k_20 v_59)(hash-iterate-key+value ht_85 i_95)))" "(let-values(((table_121)" "(let-values(((table_115) table_120))" "(let-values(((table_122)" @@ -17850,7 +17441,7 @@ static const char *startup_source = "(let-values(((key_45 val_38)" "(let-values()" "(values" -" v_70" +" v_59" " k_20))))" "(hash-set" " table_115" @@ -17887,7 +17478,7 @@ static const char *startup_source = "(hash-ref" " rev-positions_0" " i_96)))" -"((letrec-values(((loop_85)" +"((letrec-values(((loop_83)" "(lambda(mpi_25)" "(begin" " 'loop" @@ -17897,14 +17488,14 @@ static const char *startup_source = " #f)" "(void)" "(let-values()" -"(let-values(((name_37" +"(let-values(((name_36" " base_16)" "(1/module-path-index-split" " mpi_25)))" "(begin" "(if base_16" "(let-values()" -"(loop_85" +"(loop_83" " base_16))" "(void))" "(hash-set!" @@ -17912,7 +17503,7 @@ static const char *startup_source = " mpi_25" "(hash-count" " gen-order_0))))))))))" -" loop_85)" +" loop_83)" " mpi_24)))" "(values)))))" "(values)))))" @@ -17964,7 +17555,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_131)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17988,7 +17579,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_140" +" v_131" " i_99" "(let-values()" "(let-values(((mpi_26)" @@ -18033,7 +17624,7 @@ static const char *startup_source = " i_99)))))" "(values i_29)))))" "(if(if(not" -"((lambda x_43" +"((lambda x_42" "(unsafe-fx= i_98 len_12))" " i_91))" "(not #f)" @@ -18044,7 +17635,7 @@ static const char *startup_source = " for-loop_28)" " 0" " start_17)))))" -" v_140))))))" +" v_131))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -18158,7 +17749,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_132)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -18173,20 +17764,20 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_21 len_4)" -"(let-values(((p_33)(unsafe-vector-ref vec_36 pos_21)))" +"(let-values(((p_24)(unsafe-vector-ref vec_36 pos_21)))" "(let-values(((i_48)" "(let-values(((i_106) i_105))" "(let-values(((i_107)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_141" +" v_132" " i_106" "(let-values()" -"(vector*-ref gen_0 p_33)))" +"(vector*-ref gen_0 p_24)))" "(unsafe-fx+ 1 i_106)))))" "(values i_107)))))" -"(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_33))" +"(if(if(not((lambda x_43(unsafe-fx= i_48 len_14)) p_24))" "(not #f)" " #f)" "(for-loop_122 i_48(unsafe-fx+ 1 pos_21))" @@ -18195,7 +17786,7 @@ static const char *startup_source = " for-loop_122)" " 0" " 0)))))" -" v_141)))))))))" +" v_132)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -18264,22 +17855,22 @@ static const char *startup_source = " lst_105)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_142)" +"(lambda(v_133)" "(begin" -"(let-values(((or-part_168)(null? v_142)))" +"(let-values(((or-part_168)(null? v_133)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)(boolean? v_142)))" +"(let-values(((or-part_169)(boolean? v_133)))" "(if or-part_169" " or-part_169" "(let-values(((or-part_140)" -"(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" +"(if(fixnum? v_133)(if(< v_133(sub1(expt 2 30)))(> v_133(-(expt 2 30))) #f) #f)))" "(if or-part_140" " or-part_140" -"(let-values(((or-part_170)(symbol? v_142)))" +"(let-values(((or-part_170)(symbol? v_133)))" "(if or-part_170" " or-part_170" -"(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_133)))(if or-part_46 or-part_46(keyword? v_133))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -18328,11 +17919,11 @@ 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_134) 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(((reachable-scopes_4)(find-reachable-scopes v_134)))" "(let-values(((state_26)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -18341,64 +17932,64 @@ 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))))" -"((kind_3 v_100)(add-frontier!_0 v_100)))))" +"((v_135)(begin 'add-frontier!(set! frontier_0(cons v_135 frontier_0))))" +"((kind_3 v_91)(add-frontier!_0 v_91)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_102)" +"(lambda(v_93)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_11)" -"(lambda(v_104)" +"(lambda(v_95)" "(begin" " 'loop" "(if(let-values(((or-part_171)" "(interned-literal?" -" v_104)))" +" v_95)))" "(if or-part_171" " or-part_171" "(1/module-path-index?" -" v_104)))" +" v_95)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_104" +" v_95" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_104" +" v_95" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_104" +" v_95" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_104)" +" v_95)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_95" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_104)" -" v_104" +" v_95)" +" v_95" " add-frontier!_0" " state_26)))" "(if(serialize?" -" v_104)" +" v_95)" "(let-values()" "((serialize-ref" -" v_104)" -" v_104" +" v_95)" +" v_95" "(case-lambda" "((sub-v_0)" "(loop_11" @@ -18408,32 +17999,31 @@ static const char *startup_source = "(loop_11" " sub-v_1)))" " state_26))" -"(if(pair?" -" v_104)" +"(if(pair? v_95)" "(let-values()" "(begin" "(loop_11" "(car" -" v_104))" +" v_95))" "(loop_11" "(cdr" -" v_104))))" +" v_95))))" "(if(vector?" -" v_104)" +" v_95)" "(let-values()" "(if(let-values(((or-part_172)" "(immutable?" -" v_104)))" +" v_95)))" "(if or-part_172" " or-part_172" "(zero?" "(vector-length" -" v_104))))" +" v_95))))" "(begin" "(let-values(((vec_38" " len_15)" "(let-values(((vec_39)" -" v_104))" +" v_95))" "(begin" "(check-vector" " vec_39)" @@ -18450,7 +18040,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_23" " len_15)" -"(let-values(((e_19)" +"(let-values(((e_17)" "(unsafe-vector-ref" " vec_38" " pos_23)))" @@ -18461,7 +18051,7 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_11" -" e_19))" +" e_17))" "(values)))))" "(values)))))" "(if(not" @@ -18478,14 +18068,14 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_95" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_40" " len_16)" "(let-values(((vec_41)" -" v_104))" +" v_95))" "(begin" "(check-vector" " vec_41)" @@ -18502,7 +18092,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_24" " len_16)" -"(let-values(((e_20)" +"(let-values(((e_18)" "(unsafe-vector-ref" " vec_40" " pos_24)))" @@ -18513,7 +18103,7 @@ static const char *startup_source = "(begin" "(let-values()" "(add-frontier!_0" -" e_20))" +" e_18))" "(values)))))" "(values)))))" "(if(not" @@ -18528,31 +18118,31 @@ static const char *startup_source = " 0)))" "(void)))))" "(if(box?" -" v_104)" +" v_95)" "(let-values()" "(if(immutable?" -" v_104)" +" v_95)" "(loop_11" "(unbox" -" v_104))" +" v_95))" "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_95" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_104)))))" +" v_95)))))" "(if(hash?" -" v_104)" +" v_95)" "(let-values()" "(if(immutable?" -" v_104)" +" v_95)" "(begin" "(let-values(((lst_107)" "(sorted-hash-keys" -" v_104)))" +" v_95)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18583,7 +18173,7 @@ static const char *startup_source = " k_22)" "(loop_11" "(hash-ref" -" v_104" +" v_95" " k_22))))" "(values)))))" "(values)))))" @@ -18599,13 +18189,13 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_95" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_109)" "(sorted-hash-keys" -" v_104)))" +" v_95)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18636,7 +18226,7 @@ static const char *startup_source = " k_23)" "(add-frontier!_0" "(hash-ref" -" v_104" +" v_95" " k_23))))" "(values)))))" "(values)))))" @@ -18650,24 +18240,24 @@ static const char *startup_source = " lst_109)))" "(void)))))" "(if(prefab-struct-key" -" v_104)" +" v_95)" "(let-values()" "(begin" -"(let-values(((v*_2" +"(let-values(((v*_1" " start*_1" " stop*_2" " step*_1)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_45)" +"(lambda(x_44)" "(vector?" -" x_45))" -"(lambda(x_46)" +" x_44))" +"(lambda(x_45)" "(unsafe-vector-length" -" x_46))" +" x_45))" "(struct->vector" -" v_104)" +" v_95)" " 1" " #f" " 1)))" @@ -18680,9 +18270,9 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_1" " stop*_2)" -"(let-values(((e_21)" +"(let-values(((e_19)" "(unsafe-vector-ref" -" v*_2" +" v*_1" " idx_1)))" "(let-values((()" "(let-values()" @@ -18691,7 +18281,7 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_11" -" e_21))" +" e_19))" "(values)))))" "(values)))))" "(if(not" @@ -18706,24 +18296,24 @@ static const char *startup_source = " start*_1)))" "(void)))" "(if(srcloc?" -" v_104)" +" v_95)" "(let-values()" "(begin" -"(let-values(((v*_3" +"(let-values(((v*_2" " start*_2" " stop*_3" " step*_2)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_47)" +"(lambda(x_46)" "(vector?" -" x_47))" -"(lambda(x_48)" +" x_46))" +"(lambda(x_47)" "(unsafe-vector-length" -" x_48))" +" x_47))" "(struct->vector" -" v_104)" +" v_95)" " 1" " #f" " 1)))" @@ -18736,9 +18326,9 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_2" " stop*_3)" -"(let-values(((e_22)" +"(let-values(((e_20)" "(unsafe-vector-ref" -" v*_3" +" v*_2" " idx_2)))" "(let-values((()" "(let-values()" @@ -18747,7 +18337,7 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_11" -" e_22))" +" e_20))" "(values)))))" "(values)))))" "(if(not" @@ -18765,13 +18355,13 @@ static const char *startup_source = "(void))))))))))" "(hash-set!" " objs_0" -" v_104" +" v_95" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_11)" -" v_102)" +" v_93)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -18791,7 +18381,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_112)" -"(let-values(((v_145)" +"(let-values(((v_136)" "(unsafe-car" " lst_112))" "((rest_56)" @@ -18804,7 +18394,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_145))" +" v_136))" "(values)))))" "(values)))))" "(if(not" @@ -18817,7 +18407,7 @@ static const char *startup_source = " lst_111)))" "(void))))))))))" " frontier-loop_0)" -" v_143)" +" v_134)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" @@ -18919,12 +18509,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_146)" +"(let-values(((v_137)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_173)(not(keyword? v_146))))" -"(if or-part_173 or-part_173(eq? '#:quote v_146))))))))" +"(let-values(((or-part_173)(not(keyword? v_137))))" +"(if or-part_173 or-part_173(eq? '#:quote v_137))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18943,70 +18533,70 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_147)" +"((v_138)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_147 #f)" +"(if(hash-ref shares_0 v_138 #f)" "(let-values()" -"(let-values(((n_22)" +"(let-values(((n_21)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_147))))" +"(hash-ref objs_0 v_138))))" "(begin" "(ser-push!_16 'tag '#:ref)" -"(ser-push!_16 'exact n_22))))" -"(let-values(((c1_25)" -"(hash-ref mutables_0 v_147 #f)))" -"(if c1_25" -"((lambda(n_23)" +"(ser-push!_16 'exact n_21))))" +"(let-values(((c1_24)" +"(hash-ref mutables_0 v_138 #f)))" +"(if c1_24" +"((lambda(n_22)" "(begin" "(ser-push!_16 'tag '#:ref)" -"(ser-push!_16 'exact n_23)))" -" c1_25)" +"(ser-push!_16 'exact n_22)))" +" c1_24)" "(let-values()" -"(ser-push-encoded!_0 v_147)))))))" -"((kind_5 v_148)" +"(ser-push-encoded!_0 v_138)))))))" +"((kind_5 v_139)" "(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_139 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_139))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_148 #f)" +"(if(hash-ref shares_0 v_139 #f)" "(let-values()" -"(let-values(((n_24)" +"(let-values(((n_23)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_148))))" -"(ser-push!_16 'exact n_24)))" +" v_139))))" +"(ser-push!_16 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_148" +" v_139" " #f)))" "(if c2_1" -"((lambda(n_25)" -"(ser-push!_16 'exact n_25))" +"((lambda(n_24)" +"(ser-push!_16 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_16 v_148))))))" -"(let-values()(ser-push!_16 v_148)))))))))" +"(ser-push!_16 v_139))))))" +"(let-values()(ser-push!_16 v_139)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_149)" +"(lambda(v_140)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_149)" +"(if(keyword? v_140)" "(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_140)))" +"(if(1/module-path-index? v_140)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -19014,16 +18604,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_149))))" -"(if(serialize? v_149)" +" v_140))))" +"(if(serialize? v_140)" "(let-values()" -"((serialize-ref v_149)" -" v_149" +"((serialize-ref v_140)" +" v_140" " ser-push!_16" " state_26))" -"(if(if(list? v_149)" -"(if(pair? v_149)" -"(pair?(cdr v_149))" +"(if(if(list? v_140)" +"(if(pair? v_140)" +"(pair?(cdr v_140))" " #f)" " #f)" "(let-values()" @@ -19039,11 +18629,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_149))" +"(length v_140))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_115)" -" v_149))" +" v_140))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19097,9 +18687,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_140)))" "(void)))))))" -"(if(pair? v_149)" +"(if(pair? v_140)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -19114,12 +18704,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_149))" +"(car v_140))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_149))" +"(ser-push!_16(cdr v_140))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -19130,9 +18720,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_140)))" "(void)))))))))" -"(if(box? v_149)" +"(if(box? v_140)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -19145,7 +18735,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_140))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -19154,9 +18744,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_140)))" "(void)))))))" -"(if(vector? v_149)" +"(if(vector? v_140)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -19171,13 +18761,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_149))" +" v_140))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_149))" +" v_140))" "(begin" "(check-vector" " vec_43)" @@ -19235,15 +18825,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_140)))" "(void)))))))" -"(if(hash? v_149)" +"(if(hash? v_140)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_149))" +" v_140))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19252,7 +18842,7 @@ static const char *startup_source = "(check-in-hash-values" " ht_89)))" "((letrec-values(((for-loop_134)" -"(lambda(result_66" +"(lambda(result_67" " i_111)" "(begin" " 'for-loop" @@ -19261,31 +18851,31 @@ static const char *startup_source = "(hash-iterate-value" " ht_89" " i_111)))" -"(let-values(((result_67)" -"(let-values()" "(let-values(((result_68)" "(let-values()" +"(let-values(((result_69)" +"(let-values()" "(let-values()" "(eq?" " val_41" " #t)))))" "(values" -" result_68)))))" +" result_69)))))" "(if(if(not" -"((lambda x_49" +"((lambda x_48" "(not" -" result_67))" +" result_68))" " val_41))" "(not" " #f)" " #f)" "(for-loop_134" -" result_67" +" result_68" "(hash-iterate-next" " ht_89" " i_111))" -" result_67)))" -" result_66)))))" +" result_68)))" +" result_67)))))" " for-loop_134)" " #t" "(hash-iterate-first" @@ -19296,21 +18886,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_149)" +" v_140)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_149)" +" v_140)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_149)" +" v_140)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_149)" +" v_140)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19321,11 +18911,11 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_149))" +" v_140))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_149)))" +" v_140)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_117)" " ks_0))" @@ -19369,7 +18959,7 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_149" +" v_140" " k_24))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -19402,16 +18992,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_140)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_149)))" +" v_140)))" "(if c3_0" "((lambda(k_25)" "(let-values(((vec_44)" "(struct->vector" -" v_149)))" +" v_140)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19435,19 +19025,19 @@ static const char *startup_source = " vec_44)))" "(values))))" "(let-values(((all-quoted?_15)" -"(let-values(((v*_4" +"(let-values(((v*_3" " start*_3" " stop*_4" " step*_3)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_50)" +"(lambda(x_49)" "(vector?" -" x_50))" -"(lambda(x_51)" +" x_49))" +"(lambda(x_50)" "(unsafe-vector-length" -" x_51))" +" x_50))" " vec_44" " 1" " #f" @@ -19464,7 +19054,7 @@ static const char *startup_source = " stop*_4)" "(let-values(((i_112)" "(unsafe-vector-ref" -" v*_4" +" v*_3" " idx_3)))" "(let-values(((all-quoted?_17)" "(let-values(((all-quoted?_18)" @@ -19502,91 +19092,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_140)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_149)" +"(if(srcloc? v_140)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_149))" +"(srcloc-source v_140))" "(ser-push!_16" -"(srcloc-line v_149))" +"(srcloc-line v_140))" "(ser-push!_16" -"(srcloc-column v_149))" +"(srcloc-column v_140))" "(ser-push!_16" -"(srcloc-position v_149))" +"(srcloc-position v_140))" "(ser-push!_16" -"(srcloc-span v_149))))" +"(srcloc-span v_140))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))))))))))))))))" +" v_140)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_150)" +"(lambda(v_141)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_150)" +"(if(serialize-fill!? v_141)" "(let-values()" -"((serialize-ref v_150)" -" v_150" +"((serialize-ref v_141)" +" v_141" " ser-push!_16" " state_26))" -"(if(box? v_150)" +"(if(box? v_141)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_150)" +"(if(vector? v_141)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_150))))" -"(if(hash? v_150)" +"(vector-length v_141))))" +"(if(hash? v_141)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_150)" +"(if(hash-eq? v_141)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_150)" +"(if(hash-eqv? v_141)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_150))))))))))" +" v_141))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_80)" +"(lambda(v_69)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_80)" +"(if(serialize-fill!? v_69)" "(let-values()" -"((serialize-fill!-ref v_80)" -" v_80" +"((serialize-fill!-ref v_69)" +" v_69" " ser-push!_16" " state_26))" -"(if(box? v_80)" +"(if(box? v_69)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:set-box!)" -"(ser-push!_16(unbox v_80))))" -"(if(vector? v_80)" +"(ser-push!_16(unbox v_69))))" +"(if(vector? v_69)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:set-vector!)" "(ser-push!_16" " 'exact" -"(vector-length v_80))" +"(vector-length v_69))" "(let-values(((vec_45 len_18)" "(let-values(((vec_46)" -" v_80))" +" v_69))" "(begin" "(check-vector vec_46)" "(values" @@ -19602,7 +19192,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_151)" +"(let-values(((v_142)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19613,7 +19203,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_151))" +" v_142))" "(values)))))" "(values)))))" "(if(not" @@ -19627,7 +19217,7 @@ static const char *startup_source = " for-loop_136)" " 0)))" "(void)))" -"(if(hash? v_80)" +"(if(hash? v_69)" "(let-values()" "(let-values((()" "(begin" @@ -19639,11 +19229,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(hash-count v_80))" +"(hash-count v_69))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_80)))" +" v_69)))" "(begin" "(let-values(((lst_119) ks_1))" "(begin" @@ -19675,7 +19265,7 @@ static const char *startup_source = " k_26)" "(ser-push!_16" "(hash-ref" -" v_80" +" v_69" " k_26))))" "(values)))))" "(values)))))" @@ -19692,7 +19282,7 @@ static const char *startup_source = "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_80))))))))))" +" v_69))))))))))" "(let-values(((rev-mutables_0)" "(let-values(((ht_90) mutables_0))" "(begin" @@ -19706,7 +19296,7 @@ static const char *startup_source = " 'for-loop" "(if i_113" "(let-values(((k_27" -" v_152)" +" v_143)" "(hash-iterate-key+value" " ht_90" " i_113)))" @@ -19719,7 +19309,7 @@ static const char *startup_source = " val_42)" "(let-values()" "(values" -" v_152" +" v_143" " k_27))))" "(hash-set" " table_61" @@ -19945,7 +19535,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_16 v_143)" +"(ser-push!_16 v_134)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -20080,13 +19670,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_153)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_144)(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_153" +" v_144" " mutable-fill-vec_0" " pos_48" " mpis_7" @@ -20106,9 +19696,9 @@ static const char *startup_source = " start_26" " 0)))" "(values))))" -"(let-values(((result_69 done-pos_0)" +"(let-values(((result_70 done-pos_0)" "(decode result-vec_0 0 mpis_7 inspector_6 bulk-binding-registry_5 shared_0)))" -" result_69))))))))" +" result_70))))))))" "(define-values" "(decode-shell)" "(lambda(vec_49 pos_50 mpis_8 inspector_7 bulk-binding-registry_6 shared_1)" @@ -20343,7 +19933,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_154 next-pos_18)" +"(let-values(((v_145 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" @@ -20351,7 +19941,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_154) next-pos_18))))" +"(values(box-immutable v_145) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_42 next-pos_19)" @@ -20374,7 +19964,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 13)" "(let-values()" "(let-values(((len_20)(vector*-ref vec_50(add1 pos_51))))" -"(let-values(((r_29)(make-vector len_20)))" +"(let-values(((r_26)(make-vector len_20)))" "(let-values(((next-pos_21)" "(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))" "(begin" @@ -20391,9 +19981,9 @@ static const char *startup_source = "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_155" +"(let-values(((v_146" " next-pos_22)" -"(let-values(((v_156" +"(let-values(((v_147" " next-pos_23)" "(decode" " vec_50" @@ -20403,13 +19993,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_156" +" v_147" " next-pos_23))))" "(begin" "(vector-set!" -" r_29" +" r_26" " i_124" -" v_155)" +" v_146)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" @@ -20421,8 +20011,8 @@ static const char *startup_source = " start_27)))))" "(values" "(if(eq?(vector*-ref vec_50 pos_51) '#:list)" -"(vector->list r_29)" -"(vector->immutable-vector r_29))" +"(vector->list r_26)" +"(vector->immutable-vector r_26))" " next-pos_21)))))" "(let-values()" "(let-values(((ht_55)" @@ -20460,7 +20050,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_157" +"(let-values(((v_148" " next-pos_25)" "(decode" " vec_50" @@ -20473,7 +20063,7 @@ static const char *startup_source = "(hash-set" " ht_95" " k_28" -" v_157)" +" v_148)" " next-pos_25))))))" "(values ht_96 pos_61)))))" "(if(not #f)" @@ -20546,24 +20136,24 @@ static const char *startup_source = " shared_2)))" "(values k_30 next-pos_28))))" "(let-values(((len_23)(vector*-ref vec_50 next-pos_27)))" -"(let-values(((r_30 done-pos_1)" +"(let-values(((r_27 done-pos_1)" "(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" "((letrec-values(((for-loop_149)" -"(lambda(r_31 pos_67 pos_68)" +"(lambda(r_28 pos_67 pos_68)" "(begin" " 'for-loop" "(if(< pos_68 end_22)" "(let-values()" -"(let-values(((r_32 pos_69)" -"(let-values(((r_33) r_31)" +"(let-values(((r_29 pos_69)" +"(let-values(((r_30) r_28)" "((pos_70) pos_67))" -"(let-values(((r_34 pos_71)" +"(let-values(((r_31 pos_71)" "(let-values()" -"(let-values(((v_158" +"(let-values(((v_149" " next-pos_29)" "(decode" " vec_50" @@ -20574,19 +20164,19 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_158" -" r_33)" +" v_149" +" r_30)" " next-pos_29)))))" -"(values r_34 pos_71)))))" +"(values r_31 pos_71)))))" "(if(not #f)" -"(for-loop_149 r_32 pos_69(+ pos_68 inc_16))" -"(values r_32 pos_69))))" -"(values r_31 pos_67))))))" +"(for-loop_149 r_29 pos_69(+ pos_68 inc_16))" +"(values r_29 pos_69))))" +"(values r_28 pos_67))))))" " for-loop_149)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_50(reverse$1 r_30)) done-pos_1)))))" +"(values(apply make-prefab-struct key_50(reverse$1 r_27)) done-pos_1)))))" "(let-values()(values(deserialize-scope)(add1 pos_51)))))" "(if(unsafe-fx< index_0 18)" "(let-values()" @@ -20606,7 +20196,7 @@ static const char *startup_source = "(values(make-interned-scope id_23) next-pos_31)))" "(if(unsafe-fx< index_0 20)" "(let-values()" -"(let-values(((name_38 next-pos_32)" +"(let-values(((name_37 next-pos_32)" "(decode" " vec_50" "(add1 pos_51)" @@ -20622,7 +20212,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))" +"(values(deserialize-multi-scope name_37 scopes_21) next-pos_33))))" "(let-values()" "(let-values(((phase_49 next-pos_34)" "(decode" @@ -20926,7 +20516,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_159 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" +"(lambda(v_150 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" "(if(equal? tmp_23 #f)" @@ -20935,7 +20525,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_67)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_159 c_21) next-pos_67)))" +"(begin(set-box! v_150 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20963,7 +20553,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_159 i_78 c_22)" +"(vector-set! v_150 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" "(if(not #f)(for-loop_150 pos_75(+ pos_74 inc_17)) pos_75)))" @@ -21006,7 +20596,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_159 key_52 val_44)" +"(hash-set! v_150 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" "(if(not #f)(for-loop_151 pos_80(+ pos_79 inc_18)) pos_80)))" @@ -21018,41 +20608,41 @@ static const char *startup_source = "(let-values()" "(let-values(((c_23 next-pos_70)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_159 c_23) next-pos_70)))" +"(begin(deserialize-scope-fill! v_150 c_23) next-pos_70)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_43 next-pos_71)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_51 next-pos_71 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_159 a_43 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_150 a_43 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_160)" +"(lambda(v_151)" "(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_86)" -"(lambda(v_161)" +"((letrec-values(((loop_84)" +"(lambda(v_152)" "(begin" " 'loop" -"(if(interned-literal? v_161)" +"(if(interned-literal? v_152)" "(let-values()(void))" -"(if(hash-ref seen_22 v_161 #f)" +"(if(hash-ref seen_22 v_152 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_161 #t)" -"(if(scope-with-bindings? v_161)" +"(hash-set! seen_22 v_152 #t)" +"(if(scope-with-bindings? v_152)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_161))" -"((reach-scopes-ref v_161) v_161 loop_86)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_161 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_152))" +"((reach-scopes-ref v_152) v_152 loop_84)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_152 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -21073,7 +20663,7 @@ static const char *startup_source = "(begin" "(let-values()" "(proc_7" -" loop_86))" +" loop_84))" "(values)))))" "(values)))))" "(if(not #f)" @@ -21083,26 +20673,26 @@ static const char *startup_source = " for-loop_152)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_161)" -"((scope-with-bindings-ref v_161)" -" v_161" +"(hash-remove! scope-triggers_0 v_152)" +"((scope-with-bindings-ref v_152)" +" v_152" " get-reachable-scopes_4" -" loop_86" +" loop_84" "(lambda(sc-unreachable_0 b_68)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" "(lambda(l_51)(cons b_68 l_51))" " null)))))" -"(if(reach-scopes? v_161)" -"(let-values()((reach-scopes-ref v_161) v_161 loop_86))" -"(if(pair? v_161)" -"(let-values()(begin(loop_86(car v_161))(loop_86(cdr v_161))))" -"(if(vector? v_161)" +"(if(reach-scopes? v_152)" +"(let-values()((reach-scopes-ref v_152) v_152 loop_84))" +"(if(pair? v_152)" +"(let-values()(begin(loop_84(car v_152))(loop_84(cdr v_152))))" +"(if(vector? v_152)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_161))" +"(let-values(((vec_53) v_152))" "(begin" "(check-vector vec_53)" "(values" @@ -21115,7 +20705,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_83 len_26)" -"(let-values(((e_23)" +"(let-values(((e_21)" "(unsafe-vector-ref" " vec_52" " pos_83)))" @@ -21125,8 +20715,8 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_86" -" e_23))" +"(loop_84" +" e_21))" "(values)))))" "(values)))))" "(if(not #f)" @@ -21137,12 +20727,12 @@ static const char *startup_source = " for-loop_153)" " 0)))" "(void)))" -"(if(box? v_161)" -"(let-values()(loop_86(unbox v_161)))" -"(if(hash? v_161)" +"(if(box? v_152)" +"(let-values()(loop_84(unbox v_152)))" +"(if(hash? v_152)" "(let-values()" "(begin" -"(let-values(((ht_97) v_161))" +"(let-values(((ht_97) v_152))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -21153,7 +20743,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_125" -"(let-values(((k_31 v_162)" +"(let-values(((k_31 v_153)" "(hash-iterate-key+value" " ht_97" " i_125)))" @@ -21164,10 +20754,10 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_86" +"(loop_84" " k_31)" -"(loop_86" -" v_162)))" +"(loop_84" +" v_153)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -21180,17 +20770,17 @@ static const char *startup_source = " for-loop_154)" "(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_161)" +"(if(prefab-struct-key v_152)" "(let-values()" "(begin" -"(let-values(((v*_5 start*_4 stop*_5 step*_4)" +"(let-values(((v*_4 start*_4 stop*_5 step*_4)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_52)(vector? x_52))" -"(lambda(x_53)" -"(unsafe-vector-length x_53))" -"(struct->vector v_161)" +"(lambda(x_51)(vector? x_51))" +"(lambda(x_52)" +"(unsafe-vector-length x_52))" +"(struct->vector v_152)" " 1" " #f" " 1)))" @@ -21201,9 +20791,9 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< idx_4 stop*_5)" -"(let-values(((e_24)" +"(let-values(((e_22)" "(unsafe-vector-ref" -" v*_5" +" v*_4" " idx_4)))" "(let-values((()" "(let-values()" @@ -21211,8 +20801,8 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_86" -" e_24))" +"(loop_84" +" e_22))" "(values)))))" "(values)))))" "(if(not #f)" @@ -21223,11 +20813,11 @@ static const char *startup_source = " for-loop_155)" " start*_4)))" "(void)))" -"(if(srcloc? v_161)" -"(let-values()(loop_86(srcloc-source v_161)))" +"(if(srcloc? v_152)" +"(let-values()(loop_84(srcloc-source v_152)))" "(let-values()(void))))))))))))))))))" -" loop_86)" -" v_160)" +" loop_84)" +" v_151)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21307,7 +20897,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:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21322,10 +20912,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_43 make-_43 ?_43)))" +"(values struct:_34 make-_34 ?_34)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" -"(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21340,10 +20930,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-top-id)))))" -"(values struct:_10 make-_10 ?_10)))" +"(values struct:_35 make-_35 ?_35)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21359,14 +20949,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'keys)" -"(make-struct-field-accessor -ref_42 1 'body))))" +" struct:_33" +" make-_33" +" ?_33" +"(make-struct-field-accessor -ref_33 0 'keys)" +"(make-struct-field-accessor -ref_33 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21381,10 +20971,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'clauses))))" +"(values struct:_36 make-_36 ?_36(make-struct-field-accessor -ref_36 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21400,14 +20990,14 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_45" -" make-_45" -" ?_45" -"(make-struct-field-accessor -ref_45 0 'rator)" -"(make-struct-field-accessor -ref_45 1 'rands))))" +" struct:_37" +" make-_37" +" ?_37" +"(make-struct-field-accessor -ref_37 0 'rator)" +"(make-struct-field-accessor -ref_37 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21423,15 +21013,15 @@ static const char *startup_source = " #f" " 'parsed-if)))))" "(values" -" 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))))" +" struct:_38" +" make-_38" +" ?_38" +"(make-struct-field-accessor -ref_38 0 'tst)" +"(make-struct-field-accessor -ref_38 1 'thn)" +"(make-struct-field-accessor -ref_38 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21447,11 +21037,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_47" -" make-_47" -" ?_47" -"(make-struct-field-accessor -ref_47 0 'id)" -"(make-struct-field-accessor -ref_47 1 'rhs))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'id)" +"(make-struct-field-accessor -ref_39 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21459,7 +21049,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21475,18 +21065,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" 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))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'key)" +"(make-struct-field-accessor -ref_40 1 'val)" +"(make-struct-field-accessor -ref_40 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21501,10 +21091,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'id))))" +"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21519,10 +21109,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'body))))" +"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21537,10 +21127,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" +"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21555,10 +21145,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'datum))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21573,7 +21163,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'datum))))" +"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21581,7 +21171,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21597,15 +21187,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" 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))))" +" struct:_46" +" make-_46" +" ?_46" +"(make-struct-field-accessor -ref_46 0 'idss)" +"(make-struct-field-accessor -ref_46 1 'clauses)" +"(make-struct-field-accessor -ref_46 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21620,10 +21210,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_55 make-_55 ?_55)))" +"(values struct:_47 make-_47 ?_47)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21638,7 +21228,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_56 make-_56 ?_56)))" +"(values struct:_48 make-_48 ?_48)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21646,7 +21236,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21662,12 +21252,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(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:_49" +" make-_49" +" ?_49" +"(make-struct-field-accessor -ref_49 0 'ids)" +"(make-struct-field-accessor -ref_49 1 'syms)" +"(make-struct-field-accessor -ref_49 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21675,7 +21265,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21691,15 +21281,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" 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))))" +" struct:_50" +" make-_50" +" ?_50" +"(make-struct-field-accessor -ref_50 0 'ids)" +"(make-struct-field-accessor -ref_50 1 'syms)" +"(make-struct-field-accessor -ref_50 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:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21714,10 +21304,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_59 make-_59 ?_59(make-struct-field-accessor -ref_59 0 'body))))" +"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" +"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21732,10 +21322,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_60 make-_60 ?_60)))" +"(values struct:_52 make-_52 ?_52)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21750,10 +21340,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_61 make-_61 ?_61)))" +"(values struct:_53 make-_53 ?_53)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21768,7 +21358,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'body))))" +"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21783,7 +21373,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21799,19 +21389,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" 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))))" +" struct:_55" +" make-_55" +" ?_55" +"(make-struct-field-accessor -ref_55 0 'star?)" +"(make-struct-field-accessor -ref_55 1 'name-id)" +"(make-struct-field-accessor -ref_55 2 'self)" +"(make-struct-field-accessor -ref_55 3 'requires)" +"(make-struct-field-accessor -ref_55 4 'provides)" +"(make-struct-field-accessor -ref_55 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_55 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_55 7 'body)" +"(make-struct-field-accessor -ref_55 8 'compiled-module)" +"(make-struct-field-accessor -ref_55 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 mod-path3_0 self4_2)" @@ -21905,7 +21495,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:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21921,23 +21511,23 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" 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?))))" +" struct:_56" +" make-_56" +" ?_56" +"(make-struct-field-accessor -ref_56 0 'self)" +"(make-struct-field-accessor -ref_56 1 'require-mpis)" +"(make-struct-field-accessor -ref_56 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_56 3 'requires)" +"(make-struct-field-accessor -ref_56 4 'provides)" +"(make-struct-field-accessor -ref_56 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_56 6 'also-required)" +"(make-struct-field-accessor -ref_56 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_56 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_56 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_56 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)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21953,16 +21543,16 @@ static const char *startup_source = " #f" " 'required)))))" "(values" -" struct:_11" -" make-_11" -" ?_11" -"(make-struct-field-accessor -ref_11 0 'id)" -"(make-struct-field-accessor -ref_11 1 'phase)" -"(make-struct-field-accessor -ref_11 2 'can-be-shadowed?)" -"(make-struct-field-accessor -ref_11 3 'as-transformer?))))" +" struct:_57" +" make-_57" +" ?_57" +"(make-struct-field-accessor -ref_57 0 'id)" +"(make-struct-field-accessor -ref_57 1 'phase)" +"(make-struct-field-accessor -ref_57 2 'can-be-shadowed?)" +"(make-struct-field-accessor -ref_57 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21978,13 +21568,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" 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))))" +" struct:_58" +" make-_58" +" ?_58" +"(make-struct-field-accessor -ref_58 0 'module)" +"(make-struct-field-accessor -ref_58 1 'provide-phase)" +"(make-struct-field-accessor -ref_58 2 'require-phase)" +"(make-struct-field-accessor -ref_58 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21994,7 +21584,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type" @@ -22010,14 +21600,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" 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?))))" +" struct:_59" +" make-_59" +" ?_59" +"(make-struct-field-accessor -ref_59 0 'provides)" +"(make-struct-field-accessor -ref_59 1 'prefix-len)" +"(make-struct-field-accessor -ref_59 2 's)" +"(make-struct-field-accessor -ref_59 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_59 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 self7_0)" @@ -22205,7 +21795,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_99)))" "((letrec-values(((for-loop_156)" -"(lambda(result_70 i_127)" +"(lambda(result_71 i_127)" "(begin" " 'for-loop" "(if i_127" @@ -22213,15 +21803,15 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_99" " i_127)))" -"(let-values(((result_71)" "(let-values(((result_72)" -" result_70))" +"(let-values(((result_73)" +" result_71))" "(if(not" "(symbol-interned?" " out-sym_0))" -" result_72" +" result_73" "(let-values()" -"(let-values(((result_73)" +"(let-values(((result_74)" "(let-values()" "(let-values()" "(begin" @@ -22333,18 +21923,18 @@ static const char *startup_source = " null)))))" " already-defined?_0))))))))))" "(values" -" result_73)))))))" +" result_74)))))))" "(if(if(not" -"((lambda x_54 result_71)" +"((lambda x_53 result_72)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" "(for-loop_156" -" result_71" +" result_72" "(hash-iterate-next ht_99 i_127))" -" result_71)))" -" result_70)))))" +" result_72)))" +" result_71)))))" " for-loop_156)" " #f" "(hash-iterate-first ht_99))))))))))))))))))))))))))))))" @@ -22365,8 +21955,8 @@ static const char *startup_source = "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_35 mod-name_9 phase_57 sym_37)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_57 sym_37) r_35))))" +"(lambda(r_32 mod-name_9 phase_57 sym_37)" +"(begin(if(bulk-required? r_32)(bulk-required->required r_32 mod-name_9 phase_57 sym_37) r_32))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -22611,12 +22201,12 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(not(null? lst_125))" -"(let-values(((r_36)(if(pair? lst_125)(car lst_125) lst_125))" +"(let-values(((r_33)(if(pair? lst_125)(car lst_125) lst_125))" "((rest_63)(if(pair? lst_125)(cdr lst_125) null)))" "(let-values(((fold-var_110)" -"(let-values(((r_37)" +"(let-values(((r_34)" "(normalize-required" -" r_36" +" r_33" " mpi_32" " nominal-phase_5" " sym_40)))" @@ -22633,9 +22223,9 @@ static const char *startup_source = "(if(if(eqv?" " phase_60" "(required-phase" -" r_37))" +" r_34))" "(free-identifier=?$1" -"(required-id r_37)" +"(required-id r_34)" " id_27" " phase_60" " phase_60)" @@ -22647,7 +22237,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" r_37)" +" r_34)" " fold-var_114))))" "(values" " fold-var_115)))))))" @@ -22843,7 +22433,7 @@ static const char *startup_source = "(if(not" "(null?" " lst_127))" -"(let-values(((r_38)" +"(let-values(((r_35)" "(if(pair?" " lst_127)" "(car" @@ -22861,11 +22451,11 @@ static const char *startup_source = "(let-values(((only-can-can-shadow-require?_4)" "(let-values()" "(if(if(bulk-required?" -" r_38)" +" r_35)" "(bulk-required-can-be-shadowed?" -" r_38)" +" r_35)" "(required-can-be-shadowed?" -" r_38))" +" r_35))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" @@ -23454,7 +23044,7 @@ static const char *startup_source = "(let-values()" " binding_14)" "(let-values()" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_85)" "(lambda(binding_15)" "(begin" " 'loop" @@ -23462,7 +23052,7 @@ static const char *startup_source = " binding_15)" "(let-values()" "(provided1.1" -"(loop_87" +"(loop_85" "(provided-binding" " binding_15))" "(provided-protected?" @@ -23474,7 +23064,7 @@ static const char *startup_source = " binding_15" " from-mpi_7" " to-mpi_6)))))))" -" loop_87)" +" loop_85)" " binding_14)))))))" "(hash-set" " table_106" @@ -23511,14 +23101,14 @@ static const char *startup_source = "(values struct:_1 make-_1 ?_1(make-struct-field-accessor -ref_1 0 'syms))))" "(define-values" "(struct:adjust-prefix adjust-prefix2.1 adjust-prefix? adjust-prefix-sym)" -"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" +"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" "(let-values()" "(let-values()" "(make-struct-type 'adjust-prefix #f 1 0 #f null(current-inspector) #f '(0) #f 'adjust-prefix)))))" -"(values struct:_9 make-_9 ?_9(make-struct-field-accessor -ref_9 0 'sym))))" +"(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'sym))))" "(define-values" "(struct:adjust-all-except adjust-all-except3.1 adjust-all-except? adjust-all-except-prefix-sym adjust-all-except-syms)" -"(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -23534,23 +23124,23 @@ static const char *startup_source = " #f" " 'adjust-all-except)))))" "(values" -" struct:_10" -" make-_10" -" ?_10" -"(make-struct-field-accessor -ref_10 0 'prefix-sym)" -"(make-struct-field-accessor -ref_10 1 'syms))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'prefix-sym)" +"(make-struct-field-accessor -ref_35 1 'syms))))" "(define-values" "(struct:adjust-rename adjust-rename4.1 adjust-rename? adjust-rename-to-id adjust-rename-from-sym)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'to-id)" -"(make-struct-field-accessor -ref_67 1 'from-sym))))" +" struct:_60" +" make-_60" +" ?_60" +"(make-struct-field-accessor -ref_60 0 'to-id)" +"(make-struct-field-accessor -ref_60 1 'from-sym))))" "(define-values(layers$1) '(raw phaseless path))" "(define-values" "(parse-and-perform-requires!30.1)" @@ -23591,7 +23181,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_88)" +"((letrec-values(((loop_86)" "(lambda(reqs_1" " top-req_0" " phase-shift_9" @@ -23609,7 +23199,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_140)))" "((letrec-values(((for-loop_173)" -"(lambda(result_74 lst_141)" +"(lambda(result_75 lst_141)" "(begin" " 'for-loop" "(if(pair? lst_141)" @@ -23619,10 +23209,10 @@ static const char *startup_source = "((rest_72)" "(unsafe-cdr" " lst_141)))" -"(let-values(((result_75)" -"(let-values()" "(let-values(((result_76)" "(let-values()" +"(let-values(((result_77)" +"(let-values()" "(let-values()" "(let-values(((check-nested_0)" "(let-values(((check-nested116_0)" @@ -23771,12 +23361,12 @@ static const char *startup_source = " for-meta118_1" " phase-level119_1" " spec120_1))))))" -"(let-values(((p_34)" +"(let-values(((p_25)" "(syntax-e$1" " phase-level119_0)))" "(begin" "(if(phase?" -" p_34)" +" p_25)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23784,7 +23374,7 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_88" +"(loop_86" " spec120_0" "(let-values(((or-part_178)" " top-req_0))" @@ -23793,7 +23383,7 @@ static const char *startup_source = " req_0))" "(phase+" " phase-shift_9" -" p_34)" +" p_25)" " just-meta_0" " adjust_0" " #f" @@ -23864,7 +23454,7 @@ static const char *startup_source = " #t" " for-syntax126_1" " spec127_1))))))" -"(loop_88" +"(loop_86" " spec127_0" "(let-values(((or-part_179)" " top-req_0))" @@ -23944,7 +23534,7 @@ static const char *startup_source = " #t" " for-template130_1" " spec131_1))))))" -"(loop_88" +"(loop_86" " spec131_0" "(let-values(((or-part_180)" " top-req_0))" @@ -24024,7 +23614,7 @@ static const char *startup_source = " #t" " for-label134_1" " spec135_1))))))" -"(loop_88" +"(loop_86" " spec135_0" "(let-values(((or-part_181)" " top-req_0))" @@ -24133,12 +23723,12 @@ static const char *startup_source = " just-meta138_1" " phase-level139_1" " spec140_1))))))" -"(let-values(((p_35)" +"(let-values(((p_26)" "(syntax-e$1" " phase-level139_0)))" "(begin" "(if(phase?" -" p_35)" +" p_26)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -24146,7 +23736,7 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_88" +"(loop_86" " spec140_0" "(let-values(((or-part_182)" " top-req_0))" @@ -24154,7 +23744,7 @@ static const char *startup_source = " or-part_182" " req_0))" " phase-shift_9" -" p_35" +" p_26" " adjust_0" " for-meta-ok?_0" " #f" @@ -24315,7 +23905,7 @@ static const char *startup_source = " only146_1" " spec147_1" " id148_1))))))" -"(loop_88" +"(loop_86" "(list" " spec147_0)" "(let-values(((or-part_184)" @@ -24458,7 +24048,7 @@ static const char *startup_source = " prefix155_1" " id:prefix156_1" " spec157_1))))))" -"(loop_88" +"(loop_86" "(list" " spec157_0)" "(let-values(((or-part_113)" @@ -24630,7 +24220,7 @@ static const char *startup_source = " all-except164_1" " spec165_1" " id166_1))))))" -"(loop_88" +"(loop_86" "(list" " spec165_0)" "(let-values(((or-part_187)" @@ -24850,7 +24440,7 @@ static const char *startup_source = " id:prefix174_1" " spec175_1" " id176_1))))))" -"(loop_88" +"(loop_86" "(list" " spec175_0)" "(let-values(((or-part_190)" @@ -25042,7 +24632,7 @@ static const char *startup_source = " spec188_1" " id:to189_1" " id:from190_1))))))" -"(loop_88" +"(loop_86" "(list" " spec188_0)" "(let-values(((or-part_193)" @@ -25175,22 +24765,22 @@ static const char *startup_source = "(set! initial-require?_0" " #f)))))))))))))))))))))))))" "(values" -" result_76)))))" +" result_77)))))" "(if(if(not" -"((lambda x_55" -"(not result_75))" +"((lambda x_54" +"(not result_76))" " req_0))" "(not #f)" " #f)" "(for-loop_173" -" result_75" +" result_76" " rest_72)" -" result_75)))" -" result_74)))))" +" result_76)))" +" result_75)))))" " for-loop_173)" " #t" " lst_140)))))))" -" loop_88)" +" loop_86)" " reqs_0" " #f" " phase-shift_8" @@ -26128,7 +25718,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_89)" +"(letrec-values(((loop_87)" "(lambda(shifted?_0)" "(begin" " 'loop" @@ -26208,14 +25798,14 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta307_1 phase-level308_1 spec309_1))))))" -"(let-values(((p_36)(syntax-e$1 phase-level308_0)))" +"(let-values(((p_27)(syntax-e$1 phase-level308_0)))" "(begin" -"(if(phase? p_36)" +"(if(phase? p_27)" "(void)" " (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_89 #t) spec309_0)))))))" +"(list* for-meta307_0(phase+ p_27 1)(map2(loop_87 #t) spec309_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax315_0 spec316_0)" @@ -26257,7 +25847,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_89 #t) spec316_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_87 #t) spec316_0)))))" "(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template319_0 spec320_0)" @@ -26299,7 +25889,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_89 #t) spec320_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_87 #t) spec320_0)))))" "(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label323_0 spec324_0)" @@ -26345,7 +25935,7 @@ static const char *startup_source = "(values #t for-label323_1 spec324_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label323_0(map2(loop_89 #t) spec324_0)))))" +"(list* for-label323_0(map2(loop_87 #t) spec324_0)))))" "(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta327_0 phase-level328_0 spec329_0)" @@ -26428,12 +26018,12 @@ static const char *startup_source = "(list*" " just-meta327_0" " phase-level328_0" -"(map2(loop_89 #f) spec329_0)))))" +"(map2(loop_87 #f) spec329_0)))))" "(let-values()" "(if shifted?_0" " req_3" "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_89 #f) req_1))))))" +"((loop_87 #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)" @@ -26558,7 +26148,7 @@ static const char *startup_source = "(list" "(cons" " prop:custom-write" -"(lambda(cim_0 port_11 mode_12)(write(compiled-in-memory-linklet-directory cim_0) port_11))))" +"(lambda(cim_0 port_8 mode_12)(write(compiled-in-memory-linklet-directory cim_0) port_8))))" "(current-inspector)" " #f" " '(0 1 2 3 4 5 6 7 8 9 10 11 12)" @@ -26687,35 +26277,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(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:_68" -" make-_68" -" ?_68" -"(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))))" +" struct:_61" +" make-_61" +" ?_61" +"(make-struct-field-accessor -ref_61 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_61 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_61 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_61 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_61 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_61 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_61 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_61 7 'syntax-literals)" +"(make-struct-field-mutator -set!_61 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_61 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(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(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))))" +" struct:_62" +" make-_62" +" ?_62" +"(make-struct-field-accessor -ref_62 0 'module-use)" +"(make-struct-field-accessor -ref_62 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26752,14 +26342,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_86 len_27)" -"(let-values(((e_11)(unsafe-vector-ref vec_56 pos_86)))" +"(let-values(((e_23)(unsafe-vector-ref vec_56 pos_86)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(add-syntax-literal! sl_1 e_11))" +"(add-syntax-literal! sl_1 e_23))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_182(unsafe-fx+ 1 pos_86))(values))))" @@ -26899,13 +26489,13 @@ static const char *startup_source = "(lambda(sym_52 header_0)" "(begin" "(if(symbol-conflicts? sym_52 header_0)" -"((letrec-values(((loop_90)" +"((letrec-values(((loop_88)" "(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_90(add1 pos_89)) new-sym_0))))))" -" loop_90)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_88(add1 pos_89)) new-sym_0))))))" +" loop_88)" " 1)" " sym_52))))" "(define-values" @@ -27316,7 +26906,7 @@ static const char *startup_source = "(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_90) #f) 'get-encoded-root-expand-ctx #f))" "(define-values" "(empty-module-body-instance)" -"(let-values(((temp21_0)(lambda(name_39 val_49)(void))))(make-module-body-instance-instance18.1 temp21_0)))" +"(let-values(((temp21_0)(lambda(name_38 val_49)(void))))(make-module-body-instance-instance18.1 temp21_0)))" "(define-values" "(empty-top-syntax-literal-instance)" "(1/make-instance 'top-syntax-literal #f 'constant mpi-vector-id #f syntax-literals-id #f))" @@ -27376,7 +26966,7 @@ static const char *startup_source = "(define-values(syntax-property$2) syntax-property)" "(define-values(syntax-e$2) syntax-e)" "(define-values(1/syntax?) syntax?)" -"(define-values(correlated?)(lambda(e_25)(begin(1/syntax? e_25))))" +"(define-values(correlated?)(lambda(e_24)(begin(1/syntax? e_24))))" "(define-values" "(datum->correlated)" "(let-values(((datum->correlated3_0)" @@ -27388,35 +26978,35 @@ static const char *startup_source = "(case-lambda" "((d_27)(begin(datum->correlated3_0 d_27 #f)))" "((d_28 srcloc1_1)(datum->correlated3_0 d_28 srcloc1_1)))))" -"(define-values(correlated-e)(lambda(e_26)(begin(if(1/syntax? e_26)(syntax-e$2 e_26) e_26))))" -"(define-values(correlated-cadr)(lambda(e_27)(begin(car(correlated-e(cdr(correlated-e e_27)))))))" +"(define-values(correlated-e)(lambda(e_25)(begin(if(1/syntax? e_25)(syntax-e$2 e_25) e_25))))" +"(define-values(correlated-cadr)(lambda(e_26)(begin(car(correlated-e(cdr(correlated-e e_26)))))))" "(define-values" "(correlated-length)" -"(lambda(e_28)(begin(let-values(((l_54)(correlated-e e_28)))(if(list? l_54)(length l_54) #f)))))" +"(lambda(e_27)(begin(let-values(((l_54)(correlated-e e_27)))(if(list? l_54)(length l_54) #f)))))" "(define-values" "(correlated->list)" +"(lambda(e_28)" +"(begin" +"((letrec-values(((loop_89)" "(lambda(e_29)" "(begin" -"((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_91(cdr e_30))))" -"(if(null? e_30)" +"(if(list? e_29)" +"(let-values() e_29)" +"(if(pair? e_29)" +"(let-values()(cons(car e_29)(loop_89(cdr e_29))))" +"(if(null? e_29)" "(let-values() null)" -"(if(1/syntax? e_30)" -"(let-values()(loop_91(syntax-e$2 e_30)))" +"(if(1/syntax? e_29)" +"(let-values()(loop_89(syntax-e$2 e_29)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_91)" -" e_29))))" +" loop_89)" +" e_28))))" "(define-values" "(correlated-property)" "(case-lambda" -"((e_31 k_32)(begin(syntax-property$2 e_31 k_32)))" -"((e_32 k_33 v_163)(syntax-property$2 e_32 k_33 v_163))))" +"((e_30 k_32)(begin(syntax-property$2 e_30 k_32)))" +"((e_31 k_33 v_154)(syntax-property$2 e_31 k_33 v_154))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_109)" @@ -27425,7 +27015,7 @@ static const char *startup_source = "(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)))" +"(let-values()(let-values(((r_36)(to-syntax-list.1$1(cdr s_109))))(if r_36(cons(car s_109) r_36) #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)" @@ -27450,20 +27040,20 @@ static const char *startup_source = "(lambda(p3_0 cctx4_0 name1_0 result-used?2_0)" "(begin" " 'compile5" -"(let-values(((p_37) p3_0))" +"(let-values(((p_28) p3_0))" "(let-values(((cctx_1) cctx4_0))" -"(let-values(((name_40) name1_0))" +"(let-values(((name_39) name1_0))" "(let-values(((result-used?_0) result-used?2_0))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_38 name_4 result-used?_1)" -"(begin 'compile(compile$2 p_38 cctx_1 name_4 result-used?_1)))))" -"(let-values(((s_170)(parsed-s p_37)))" -"(if(parsed-id? p_37)" +"(lambda(p_29 name_4 result-used?_1)" +"(begin 'compile(compile$2 p_29 cctx_1 name_4 result-used?_1)))))" +"(let-values(((s_170)(parsed-s p_28)))" +"(if(parsed-id? p_28)" "(let-values()" -"(let-values(((p25_0) p_37)((cctx26_0) cctx_1))" +"(let-values(((p25_0) p_28)((cctx26_0) cctx_1))" "(compile-identifier22.1 #f #f p25_0 cctx26_0)))" -"(if(parsed-lambda? p_37)" +"(if(parsed-lambda? p_28)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27473,13 +27063,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_37)" -"(parsed-lambda-body p_37)" +"(parsed-lambda-keys p_28)" +"(parsed-lambda-body p_28)" " cctx_1)))" -" name_40" +" name_39" " s_170))" "(let-values()(correlate~ s_170 ''unused-lambda))))" -"(if(parsed-case-lambda? p_37)" +"(if(parsed-case-lambda? p_28)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27489,7 +27079,7 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_86)(parsed-case-lambda-clauses p_37)))" +"(let-values(((lst_86)(parsed-case-lambda-clauses p_28)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27526,16 +27116,16 @@ static const char *startup_source = " for-loop_108)" " null" " lst_86))))))" -" name_40" +" name_39" " s_170))" "(let-values()(correlate~ s_170 ''unused-case-lambda))))" -"(if(parsed-app? p_37)" +"(if(parsed-app? p_28)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_37)))" +"(let-values(((rands_0)(parsed-app-rands p_28)))" "(correlate/app" " s_170" "(cons" -"(compile_0(parsed-app-rator p_37) #f #t)" +"(compile_0(parsed-app-rator p_28) #f #t)" "(reverse$1" "(let-values(((lst_88) rands_0))" "(begin" @@ -27547,7 +27137,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_163)" -"(let-values(((r_40)(unsafe-car lst_163))" +"(let-values(((r_37)(unsafe-car lst_163))" "((rest_84)" "(unsafe-cdr lst_163)))" "(let-values(((fold-var_33)" @@ -27558,7 +27148,7 @@ static const char *startup_source = "(cons" "(let-values()" "(compile_0" -" r_40" +" r_37" " #f" " #t))" " fold-var_34))))" @@ -27571,44 +27161,44 @@ static const char *startup_source = " for-loop_191)" " null" " lst_88))))))))" -"(if(parsed-if? p_37)" +"(if(parsed-if? p_28)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_37) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_28) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_37) name_40 result-used?_0))" +"(compile_0(parsed-if-thn p_28) name_39 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_37) name_40 result-used?_0))" +"(compile_0(parsed-if-els p_28) name_39 result-used?_0))" "(let-values()" "(correlate~" " s_170" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_37) name_40 result-used?_0)" -"(compile_0(parsed-if-els p_37) name_40 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_37)" +"(compile_0(parsed-if-thn p_28) name_39 result-used?_0)" +"(compile_0(parsed-if-els p_28) name_39 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_28)" "(let-values()" "(correlate~" " s_170" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_37) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_37) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_28) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_28) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_37)" -" name_40" +"(parsed-with-continuation-mark-body p_28)" +" name_39" " result-used?_0))))" -"(if(parsed-begin0? p_37)" +"(if(parsed-begin0? p_28)" "(let-values()" "(correlate~" " s_170" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_37)) name_40 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_28)) name_39 result-used?_0)" "(reverse$1" -"(let-values(((lst_23)(cdr(parsed-begin0-body p_37))))" +"(let-values(((lst_23)(cdr(parsed-begin0-body p_28))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27618,7 +27208,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_75)" -"(let-values(((e_33)" +"(let-values(((e_32)" "(unsafe-car lst_75))" "((rest_85)" "(unsafe-cdr lst_75)))" @@ -27630,7 +27220,7 @@ static const char *startup_source = "(cons" "(let-values()" "(compile_0" -" e_33" +" e_32" " #f" " #f))" " fold-var_94))))" @@ -27645,33 +27235,33 @@ static const char *startup_source = " for-loop_192)" " null" " lst_23)))))))" -"(if(parsed-begin? p_37)" +"(if(parsed-begin? p_28)" "(let-values()" "(correlate~" " s_170" "(compile-begin" -"(parsed-begin-body p_37)" +"(parsed-begin-body p_28)" " cctx_1" -" name_40" +" name_39" " result-used?_0)))" -"(if(parsed-set!? p_37)" +"(if(parsed-set!? p_28)" "(let-values()" "(correlate~" " s_170" -"(let-values(((temp27_4)(parsed-set!-id p_37))" +"(let-values(((temp27_4)(parsed-set!-id p_28))" "((cctx28_0) cctx_1)" "((temp29_1) #t)" "((temp30_1)" "(compile_0" -"(parsed-set!-rhs p_37)" -"(parsed-s(parsed-set!-id p_37))" +"(parsed-set!-rhs p_28)" +"(parsed-s(parsed-set!-id p_28))" " #t)))" "(compile-identifier22.1 temp30_1 temp29_1 temp27_4 cctx28_0))))" -"(if(parsed-let-values? p_37)" +"(if(parsed-let-values? p_28)" "(let-values()" -"(let-values(((p31_0) p_37)" +"(let-values(((p31_0) p_28)" "((cctx32_0) cctx_1)" -"((name33_0) name_40)" +"((name33_0) name_39)" "((temp34_1) #f)" "((result-used?35_0) result-used?_0))" "(compile-let13.1" @@ -27680,11 +27270,11 @@ static const char *startup_source = " cctx32_0" " name33_0" " result-used?35_0)))" -"(if(parsed-letrec-values? p_37)" +"(if(parsed-letrec-values? p_28)" "(let-values()" -"(let-values(((p36_0) p_37)" +"(let-values(((p36_0) p_28)" "((cctx37_0) cctx_1)" -"((name38_0) name_40)" +"((name38_0) name_39)" "((temp39_0) #t)" "((result-used?40_0) result-used?_0))" "(compile-let13.1" @@ -27693,26 +27283,26 @@ static const char *startup_source = " cctx37_0" " name38_0" " result-used?40_0)))" -"(if(parsed-quote? p_37)" +"(if(parsed-quote? p_28)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_37)))" +"(let-values(((datum_1)(parsed-quote-datum p_28)))" "(if(self-quoting-in-linklet? datum_1)" "(let-values()(correlate~ s_170 datum_1))" "(let-values()" "(correlate~ s_170(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_37)" +"(if(parsed-quote-syntax? p_28)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_37)" +"(parsed-quote-syntax-datum p_28)" " cctx_1)" "(correlate~" " s_170" "(list 'quote(syntax->datum$1 s_170)))))" -"(if(parsed-#%variable-reference? p_37)" +"(if(parsed-#%variable-reference? p_28)" "(let-values()" "(let-values(((id_46)" -"(parsed-#%variable-reference-id p_37)))" +"(parsed-#%variable-reference-id p_28)))" "(correlate~" " s_170" "(if id_46" @@ -27724,24 +27314,24 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_37)))))))))))))))))))))))))))" +" p_28)))))))))))))))))))))))))))" "(case-lambda" -"((p_39 cctx_2)(begin 'compile(compile5_0 p_39 cctx_2 #f #t)))" -"((p_40 cctx_3 name_41 result-used?2_1)(compile5_0 p_40 cctx_3 name_41 result-used?2_1))" -"((p_41 cctx_4 name1_1)(compile5_0 p_41 cctx_4 name1_1 #t)))))" +"((p_30 cctx_2)(begin 'compile(compile5_0 p_30 cctx_2 #f #t)))" +"((p_31 cctx_3 name_40 result-used?2_1)(compile5_0 p_31 cctx_3 name_40 result-used?2_1))" +"((p_32 cctx_4 name1_1)(compile5_0 p_32 cctx_4 name1_1 #t)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" "(define-values" "(compile-sequence)" -"(lambda(bodys_1 cctx_6 name_42 result-used?_2)" +"(lambda(bodys_1 cctx_6 name_41 result-used?_2)" "(begin" "(if(null?(cdr bodys_1))" -"(compile$2(car bodys_1) cctx_6 name_42 result-used?_2)" -"(compile-begin bodys_1 cctx_6 name_42 result-used?_2)))))" +"(compile$2(car bodys_1) cctx_6 name_41 result-used?_2)" +"(compile-begin bodys_1 cctx_6 name_41 result-used?_2)))))" "(define-values" "(compile-begin)" -"(lambda(es_0 cctx_7 name_43 result-used?_3)" +"(lambda(es_0 cctx_7 name_42 result-used?_3)" "(begin" "(let-values(((used-pos_0)(sub1(length es_0))))" "(list*" @@ -27772,7 +27362,7 @@ static const char *startup_source = "(compile$2" " e_4" " cctx_7" -"(if used?_0 name_43 #f)" +"(if used?_0 name_42 #f)" "(if used?_0 result-used?_3 #f))))" " fold-var_163))))" "(values fold-var_164)))))" @@ -27787,32 +27377,32 @@ static const char *startup_source = "(lambda(s_306 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_164)" +"(lambda(v_155)" "(begin" " 'simplify-name" -"(if(pair? v_164)" +"(if(pair? v_155)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_164))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_164))))(if(eq? n1_0 n2_0) n1_0 v_164))))" -"(let-values() v_164))))))" -"(let-values(((name_44)" +"(let-values(((n1_0)(simplify-name_0(car v_155))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_155))))(if(eq? n1_0 n2_0) n1_0 v_155))))" +"(let-values() v_155))))))" +"(let-values(((name_43)" "(let-values(((or-part_210)" -"(let-values(((v_55)" +"(let-values(((v_156)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_211)(symbol? v_55)))" +"(if(let-values(((or-part_211)(symbol? v_156)))" "(if or-part_211" " or-part_211" -"(let-values(((or-part_212)(syntax?$1 v_55)))" -"(if or-part_212 or-part_212(void? v_55)))))" -" v_55" +"(let-values(((or-part_212)(syntax?$1 v_156)))" +"(if or-part_212 or-part_212(void? v_156)))))" +" v_156" " #f))))" "(if or-part_210 or-part_210 inferred-name_0))))" "(let-values(((named-s_0)" -"(if name_44" +"(if name_43" "(correlated-property" "(->correlated s_306)" " 'inferred-name" -"(if(syntax?$1 name_44)(syntax-e$1 name_44) name_44))" +"(if(syntax?$1 name_43)(syntax-e$1 name_43) name_43))" " s_306)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" @@ -27823,20 +27413,20 @@ static const char *startup_source = "(lambda(rec?7_0 p9_0 cctx10_0 name11_0 result-used?12_0)" "(begin" " 'compile-let13" -"(let-values(((p_42) p9_0))" +"(let-values(((p_33) p9_0))" "(let-values(((cctx_8) cctx10_0))" -"(let-values(((name_45) name11_0))" +"(let-values(((name_44) name11_0))" "(let-values(((rec?_0) rec?7_0))" "(let-values(((result-used?_4) result-used?12_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_42)))" +"(let-values(((body_0)(parsed-let_-values-body p_33)))" "(correlate~" -"(parsed-s p_42)" +"(parsed-s p_33)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_166)(parsed-let_-values-clauses p_42))" -"((lst_167)(parsed-let_-values-idss p_42)))" +"(let-values(((lst_166)(parsed-let_-values-clauses p_33))" +"((lst_167)(parsed-let_-values-idss p_33)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27945,7 +27535,7 @@ static const char *startup_source = " null" " lst_166" " lst_167))))" -"(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" +"(compile-sequence body_0 cctx_8 name_44 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" "(lambda(sym_54 orig-id_0)" @@ -27961,19 +27551,19 @@ static const char *startup_source = "(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)" "(begin" " 'compile-identifier22" -"(let-values(((p_43) p20_0))" +"(let-values(((p_34) p20_0))" "(let-values(((cctx_9) cctx21_0))" "(let-values(((set-to?_0) set-to?16_0))" "(let-values(((rhs_0) set-to17_0))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_43)))" +"(let-values(((normal-b_0)(parsed-id-binding p_34)))" "(let-values(((b_74)" "(let-values(((or-part_214) normal-b_0))" "(if or-part_214" " or-part_214" "(let-values(((temp43_0)(compile-context-self cctx_9))" "((temp44_0)(compile-context-phase cctx_9))" -"((temp45_0)(syntax-e$1(parsed-s p_43))))" +"((temp45_0)(syntax-e$1(parsed-s p_34))))" "(make-module-binding22.1" " #f" " null" @@ -27993,10 +27583,10 @@ static const char *startup_source = "(if(module-binding? b_74)" "(let-values()" "(let-values(((mpi_40)" -"(if(parsed-top-id? p_43)" +"(if(parsed-top-id? p_34)" "(compile-context-self cctx_9)" "(module-binding-module b_74))))" -"(if(parsed-primitive-id? p_43)" +"(if(parsed-primitive-id? p_34)" "(let-values()" "(begin" "(if(zero?(module-binding-phase b_74))" @@ -28027,11 +27617,11 @@ static const char *startup_source = "(if or-part_215" " or-part_215" "(let-values(((or-part_216)" -"(parsed-id-inspector p_43)))" +"(parsed-id-inspector p_34)))" "(if or-part_216" " or-part_216" -"(if(parsed-s p_43)" -"(syntax-inspector(parsed-s p_43))" +"(if(parsed-s p_34)" +"(syntax-inspector(parsed-s p_34))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -28044,8 +27634,8 @@ static const char *startup_source = "(error" " \"not a reference to a module or local binding:\"" " b_74" -"(parsed-s p_43)))))))" -"(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_57 rhs_0) sym_57)))))))))))))" +"(parsed-s p_34)))))))" +"(correlate~(parsed-s p_34)(if set-to?_0(list 'set! sym_57 rhs_0) sym_57)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -28068,24 +27658,24 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_112)))" "((letrec-values(((for-loop_101)" -"(lambda(result_77 i_136)" +"(lambda(result_78 i_136)" "(begin" " 'for-loop" "(if i_136" "(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_136)))" -"(let-values(((result_78)" -"(let-values()" "(let-values(((result_79)" "(let-values()" +"(let-values(((result_80)" +"(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_79)))))" -"(if(if(not((lambda x_56(not result_78)) extra-insp_0))(not #f) #f)" -"(for-loop_101 result_78(unsafe-immutable-hash-iterate-next ht_112 i_136))" -" result_78)))" -" result_77)))))" +"(values result_80)))))" +"(if(if(not((lambda x_55(not result_79)) extra-insp_0))(not #f) #f)" +"(for-loop_101 result_79(unsafe-immutable-hash-iterate-next ht_112 i_136))" +" result_79)))" +" result_78)))))" " for-loop_101)" " #t" "(unsafe-immutable-hash-iterate-first ht_112)))))" @@ -28118,7 +27708,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -28134,13 +27724,13 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" 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))))" +" struct:_63" +" make-_63" +" ?_63" +"(make-struct-field-accessor -ref_63 0 'extra-inspectorss)" +"(make-struct-field-accessor -ref_63 1 'self-inspector)" +"(make-struct-field-mutator -set!_63 0 'extra-inspectorss)" +"(make-struct-field-mutator -set!_63 1 'self-inspector))))" "(define-values" "(module-uses-add-extra-inspectorsss)" "(lambda(mus_1 extra-inspectorsss_0)" @@ -28512,18 +28102,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type 'link-info #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'link-info)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'link-module-uses)" -"(make-struct-field-accessor -ref_36 1 'imports)" -"(make-struct-field-accessor -ref_36 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_36 3 'def-decls))))" +" struct:_26" +" make-_26" +" ?_26" +"(make-struct-field-accessor -ref_26 0 'link-module-uses)" +"(make-struct-field-accessor -ref_26 1 'imports)" +"(make-struct-field-accessor -ref_26 2 'extra-inspectorsss)" +"(make-struct-field-accessor -ref_26 3 'def-decls))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -28565,7 +28155,7 @@ static const char *startup_source = " other-form-callback10_0)))" "(let-values(((get-module-linklet-info_0)" "(if(eq? get-module-linklet-info11_0 unsafe-undefined)" -"(lambda(mod-name_14 p_44)(begin 'get-module-linklet-info #f))" +"(lambda(mod-name_14 p_35)(begin 'get-module-linklet-info #f))" " get-module-linklet-info11_0)))" "(let-values(((to-source?_0) to-source?12_0))" "(let-values(((serializable?_0) serializable?13_0))" @@ -29375,7 +28965,7 @@ static const char *startup_source = "(parsed-require?" " body_0)))))" "(let-values()" -"(let-values(((e_34)" +"(let-values(((e_33)" "(other-form-callback_0" " body_0" "(let-values(((the-struct_52)" @@ -29403,21 +28993,21 @@ static const char *startup_source = " 'struct-copy" " \"compile-context?\"" " the-struct_52))))))" -"(if e_34" +"(if e_33" "(let-values()" "(begin" "(compiled-expression-callback_0" -" e_34" +" e_33" " #f" " phase_78" "(as-required?_0" " header_10))" "(add-body!_0" " phase_78" -" e_34)))" +" e_33)))" "(void))))" "(let-values()" -"(let-values(((e_35)" +"(let-values(((e_34)" "(compile$2" " body_0" "(let-values(((the-struct_53)" @@ -29451,14 +29041,14 @@ static const char *startup_source = " last-i_0))))" "(begin" "(compiled-expression-callback_0" -" e_35" +" e_34" " #f" " phase_78" "(as-required?_0" " header_10))" "(add-body!_0" " phase_78" -" e_35)))))))))" +" e_34)))))))))" "(values)))))" "(values)))))" "(if(not" @@ -29636,19 +29226,19 @@ static const char *startup_source = "(let-values()" "((if to-source?_0" "(lambda(l_55" -" name_46" +" name_45" " keys_0" " getter_0)" "(values" " l_55" " keys_0))" "(lambda(l_56" -" name_47" +" name_46" " keys_1" " getter_1)" "(1/compile-linklet" " l_56" -" name_47" +" name_46" " keys_1" " getter_1" "(if serializable?_0" @@ -30104,10 +29694,10 @@ static const char *startup_source = "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" -"(lambda(e_36 orig-s_22)" +"(lambda(e_35 orig-s_22)" "(begin" -"(let-values(((v_165)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_165(correlated-property e_36 'compiler-hint:cross-module-inline v_165) e_36)))))" +"(let-values(((v_157)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_157(correlated-property e_35 'compiler-hint:cross-module-inline v_157) e_35)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -30409,7 +29999,7 @@ static const char *startup_source = "(map-cim-tree)" "(lambda(cims_1 proc_8)" "(begin" -"((letrec-values(((loop_92)" +"((letrec-values(((loop_90)" "(lambda(cims_2)" "(begin" " 'loop" @@ -30434,10 +30024,10 @@ static const char *startup_source = "(let-values()" "(vector" "(proc_8 cim_4)" -"(loop_92" +"(loop_90" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_92" +"(loop_90" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" " fold-var_170))))" @@ -30449,7 +30039,7 @@ static const char *startup_source = " for-loop_97)" " null" " lst_76))))))))" -" loop_92)" +" loop_90)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -30595,7 +30185,7 @@ static const char *startup_source = "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_85)" +"((letrec-values(((loop_83)" "(lambda(cims_5)" "(begin" " 'loop" @@ -30606,41 +30196,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_85(cdr cims_5)))" +"(let-values()(loop_83(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_85)" +" loop_83)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_70 make-_70 ?_70(make-struct-field-accessor -ref_70 0 'thunk))))" +"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_64 make-_64 ?_64)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_71" -" make-_71" -" ?_71" -"(make-struct-field-accessor -ref_71 0 'arity)" -"(make-struct-field-accessor -ref_71 1 'pure?))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'arity)" +"(make-struct-field-accessor -ref_64 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:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30655,33 +30245,33 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'arg-predicate-keys))))" +"(values struct:_33 make-_33 ?_33(make-struct-field-accessor -ref_33 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)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type 'known-predicate #f 1 0 #f null 'prefab #f '(0) #f 'known-predicate)))))" -"(values struct:_11 make-_11 ?_11(make-struct-field-accessor -ref_11 0 'key))))" +"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'key))))" "(define-values" "(struct:known-satisfies known-satisfies7.1 known-satisfies? known-satisfies-predicate-key)" -"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_72 make-_72 ?_72(make-struct-field-accessor -ref_72 0 'predicate-key))))" +"(values struct:_65 make-_65 ?_65(make-struct-field-accessor -ref_65 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:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" "(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:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'type)" -"(make-struct-field-accessor -ref_39 1 'field-count))))" +" struct:_30" +" make-_30" +" ?_30" +"(make-struct-field-accessor -ref_30 0 'type)" +"(make-struct-field-accessor -ref_30 1 'field-count))))" "(define-values" "(lookup-defn)" "(lambda(defns_0 sym_61)" @@ -30695,7 +30285,7 @@ static const char *startup_source = "(lambda(known-defns2_0 known-locals1_0 ready-variable?3_0 e7_0 expected-results8_0)" "(begin" " 'any-side-effects?9" -"(let-values(((e_37) e7_0))" +"(let-values(((e_36) e7_0))" "(let-values(((expected-results_0) expected-results8_0))" "(let-values(((locals_0)(if(eq? known-locals1_0 unsafe-undefined) '#hasheq() known-locals1_0)))" "(let-values(((defns_1)(if(eq? known-defns2_0 unsafe-undefined) '#hasheq() known-defns2_0)))" @@ -30705,10 +30295,10 @@ static const char *startup_source = " ready-variable?3_0)))" "(let-values()" "(let-values(((effects?_0)" -"(lambda(e_38 expected-results_1 locals_1)" +"(lambda(e_37 expected-results_1 locals_1)" "(begin" " 'effects?" -"(let-values(((e12_0) e_38)" +"(let-values(((e12_0) e_37)" "((expected-results13_0) expected-results_1)" "((locals14_0) locals_1)" "((defns15_0) defns_1)" @@ -30720,13 +30310,13 @@ static const char *startup_source = " e12_0" " expected-results13_0))))))" "(let-values(((actual-results_0)" -"((letrec-values(((loop_82)" -"(lambda(e_39 locals_2)" +"((letrec-values(((loop_80)" +"(lambda(e_38 locals_2)" "(begin" " 'loop" "(let-values(((tmp_26)" -"(if(pair?(correlated-e e_39))" -"(correlated-e(car(correlated-e e_39)))" +"(if(pair?(correlated-e e_38))" +"(correlated-e(car(correlated-e e_38)))" " #f)))" "(let-values(((index_1)" "(if(symbol? tmp_26)" @@ -30754,7 +30344,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 2)" "(if(unsafe-fx< index_1 1)" "(let-values()" -"(let-values(((v_33)(correlated-e e_39)))" +"(let-values(((v_33)(correlated-e e_38)))" "(if(let-values(((or-part_73)(string? v_33)))" "(if or-part_73" " or-part_73" @@ -30768,7 +30358,7 @@ static const char *startup_source = " or-part_75" "(char? v_33)))))))" "(let-values() 1)" -"(let-values(((c1_26)" +"(let-values(((c1_25)" "(if(pair? v_33)" "(let-values(((rator_0)" "(correlated-e" @@ -30784,10 +30374,10 @@ static const char *startup_source = " defns_1" " rator_0))))" " #f)))" -"(if c1_26" +"(if c1_25" "((lambda(d_30)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_90) e_39))" +"(let-values(((s_90) e_38))" "(let-values(((orig-s_23)" " s_90))" "(let-values(((_17_1" @@ -30823,7 +30413,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_0" " str_5" -" e_40)" +" e_39)" "(error" " str_5))" " #f" @@ -30836,7 +30426,7 @@ static const char *startup_source = " e20_0))" "((lambda(false_1" " str_6" -" e_41)" +" e_40)" "(error" " str_6))" " #f" @@ -30884,43 +30474,43 @@ static const char *startup_source = "(check-list" " lst_223)))" "((letrec-values(((for-loop_220)" -"(lambda(result_80" +"(lambda(result_81" " lst_224)" "(begin" " 'for-loop" "(if(pair?" " lst_224)" -"(let-values(((e_42)" +"(let-values(((e_41)" "(unsafe-car" " lst_224))" "((rest_122)" "(unsafe-cdr" " lst_224)))" -"(let-values(((result_81)" -"(let-values()" "(let-values(((result_82)" "(let-values()" +"(let-values(((result_83)" +"(let-values()" "(let-values()" "(not" "(effects?_0" -" e_42" +" e_41" " 1" " locals_2))))))" "(values" -" result_82)))))" +" result_83)))))" "(if(if(not" -"((lambda x_57" +"((lambda x_56" "(not" -" result_81))" -" e_42))" +" result_82))" +" e_41))" "(not" " #f)" " #f)" "(for-loop_220" -" result_81" +" result_82" " rest_122)" -" result_81)))" -" result_80)))))" +" result_82)))" +" result_81)))))" " for-loop_220)" " #t" " lst_223)))" @@ -30953,7 +30543,7 @@ static const char *startup_source = "(check-list" " lst_225)))" "((letrec-values(((for-loop_99)" -"(lambda(result_83" +"(lambda(result_84" " lst_179" " lst_10)" "(begin" @@ -30975,10 +30565,10 @@ static const char *startup_source = "((rest_123)" "(unsafe-cdr" " lst_10)))" -"(let-values(((result_84)" -"(let-values()" "(let-values(((result_85)" "(let-values()" +"(let-values(((result_86)" +"(let-values()" "(let-values()" "(if(not" "(effects?_0" @@ -30992,27 +30582,27 @@ static const char *startup_source = " locals_2)" " #f)))))" "(values" -" result_85)))))" +" result_86)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_57" "(not" -" result_84))" +" result_85))" " e_3))" "(if(not" "((lambda x_9" "(not" -" result_84))" +" result_85))" " key_63))" "(not" " #f)" " #f)" " #f)" "(for-loop_99" -" result_84" +" result_85" " rest_1" " rest_123)" -" result_84)))" -" result_83)))))" +" result_85)))" +" result_84)))))" " for-loop_99)" " #t" " lst_97" @@ -31021,7 +30611,7 @@ static const char *startup_source = " #f)))" " 1" " #f))))" -" c1_26)" +" c1_25)" "(let-values()" "(if(let-values(((or-part_167)" "(self-quoting-in-linklet?" @@ -31060,7 +30650,7 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_46) e_39))" +"(let-values(((s_46) e_38))" "(let-values(((orig-s_24) s_46))" "(let-values(((_21_1" " ids22_1" @@ -31111,7 +30701,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_2" " str_7" -" e_43)" +" e_42)" "(error" " str_7))" " #f" @@ -31200,7 +30790,7 @@ static const char *startup_source = "(values)" "((lambda(false_3" " str_8" -" e_44)" +" e_43)" "(error" " str_8))" " #f" @@ -31210,7 +30800,7 @@ static const char *startup_source = " rhs34_0))" "((lambda(false_4" " str_9" -" e_45)" +" e_44)" "(error" " str_9))" " #f" @@ -31221,7 +30811,7 @@ static const char *startup_source = " rhs33_0))" "((lambda(false_5" " str_10" -" e_46)" +" e_45)" "(error" " str_10))" " #f" @@ -31290,7 +30880,7 @@ static const char *startup_source = "(values)" "((lambda(false_6" " str_11" -" e_47)" +" e_46)" "(error" " str_11))" " #f" @@ -31300,7 +30890,7 @@ static const char *startup_source = " body35_0))" "((lambda(false_7" " str_12" -" e_48)" +" e_47)" "(error" " str_12))" " #f" @@ -31312,7 +30902,7 @@ static const char *startup_source = " body31_0))" "((lambda(false_8" " str_13" -" e_49)" +" e_48)" "(error" " str_13))" " #f" @@ -31325,7 +30915,7 @@ static const char *startup_source = " body28_0))" "((lambda(false_9" " str_14" -" e_50)" +" e_49)" "(error" " str_14))" " #f" @@ -31372,10 +30962,10 @@ static const char *startup_source = "((rest_126)" "(unsafe-cdr" " lst_228)))" -"(let-values(((result_86)" -"(let-values()" "(let-values(((result_87)" "(let-values()" +"(let-values(((result_88)" +"(let-values()" "(let-values()" "(effects?_0" " rhs_9" @@ -31383,37 +30973,37 @@ static const char *startup_source = " ids_13)" " locals_2)))))" "(values" -" result_87)))))" +" result_88)))))" "(if(if(not" -"((lambda x_59" -" result_86)" +"((lambda x_58" +" result_87)" " ids_13))" "(if(not" -"((lambda x_60" -" result_86)" +"((lambda x_59" +" result_87)" " rhs_9))" "(not" " #f)" " #f)" " #f)" "(for-loop_221" -" result_86" +" result_87" " rest_125" " rest_126)" -" result_86)))" +" result_87)))" " result_13)))))" " for-loop_221)" " #f" " lst_198" " lst_227))))" -"(loop_82" +"(loop_80" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" " #f)))" "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_317) e_39))" +"(let-values(((s_317) e_38))" "(let-values(((orig-s_25) s_317))" "(let-values(((_38_1 e39_1)" "(let-values(((s_318)" @@ -31447,7 +31037,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_10" " str_15" -" e_51)" +" e_50)" "(error" " str_15))" " #f" @@ -31460,7 +31050,7 @@ static const char *startup_source = " e41_0))" "((lambda(false_11" " str_16" -" e_52)" +" e_51)" "(error" " str_16))" " #f" @@ -31474,43 +31064,43 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_229)))" "((letrec-values(((for-loop_222)" -"(lambda(result_88" +"(lambda(result_89" " lst_230)" "(begin" " 'for-loop" "(if(pair?" " lst_230)" -"(let-values(((e_53)" +"(let-values(((e_52)" "(unsafe-car" " lst_230))" "((rest_127)" "(unsafe-cdr" " lst_230)))" -"(let-values(((result_89)" -"(let-values()" "(let-values(((result_90)" "(let-values()" +"(let-values(((result_91)" +"(let-values()" "(let-values()" "(not" "(effects?_0" -" e_53" +" e_52" " 1" " locals_2))))))" "(values" -" result_90)))))" +" result_91)))))" "(if(if(not" -"((lambda x_61" +"((lambda x_60" "(not" -" result_89))" -" e_53))" +" result_90))" +" e_52))" "(not" " #f)" " #f)" "(for-loop_222" -" result_89" +" result_90" " rest_127)" -" result_89)))" -" result_88)))))" +" result_90)))" +" result_89)))))" " for-loop_222)" " #t" " lst_229)))" @@ -31519,7 +31109,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 5)" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_320) e_39))" +"(let-values(((s_320) e_38))" "(let-values(((orig-s_26)" " s_320))" "(let-values(((_42_1 e43_1)" @@ -31554,7 +31144,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_12" " str_17" -" e_54)" +" e_53)" "(error" " str_17))" " #f" @@ -31567,7 +31157,7 @@ static const char *startup_source = " e45_0))" "((lambda(false_13" " str_18" -" e_55)" +" e_54)" "(error" " str_18))" " #f" @@ -31582,43 +31172,43 @@ static const char *startup_source = "(let-values()" "(check-list lst_231)))" "((letrec-values(((for-loop_223)" -"(lambda(result_91" +"(lambda(result_92" " lst_232)" "(begin" " 'for-loop" "(if(pair?" " lst_232)" -"(let-values(((e_56)" +"(let-values(((e_55)" "(unsafe-car" " lst_232))" "((rest_128)" "(unsafe-cdr" " lst_232)))" -"(let-values(((result_29)" -"(let-values()" "(let-values(((result_30)" "(let-values()" +"(let-values(((result_31)" +"(let-values()" "(let-values()" "(not" "(effects?_0" -" e_56" +" e_55" " 1" " locals_2))))))" "(values" -" result_30)))))" +" result_31)))))" "(if(if(not" -"((lambda x_27" +"((lambda x_26" "(not" -" result_29))" -" e_56))" +" result_30))" +" e_55))" "(not" " #f)" " #f)" "(for-loop_223" -" result_29" +" result_30" " rest_128)" -" result_29)))" -" result_91)))))" +" result_30)))" +" result_92)))))" " for-loop_223)" " #t" " lst_231)))" @@ -31626,7 +31216,7 @@ static const char *startup_source = " #f)))" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_324) e_39))" +"(let-values(((s_324) e_38))" "(let-values(((orig-s_27)" " s_324))" "(let-values(((_46_1 e47_1)" @@ -31661,7 +31251,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_14" " str_19" -" e_31)" +" e_30)" "(error" " str_19))" " #f" @@ -31674,7 +31264,7 @@ static const char *startup_source = " e49_0))" "((lambda(false_15" " str_20" -" e_57)" +" e_56)" "(error" " str_20))" " #f" @@ -31689,7 +31279,7 @@ static const char *startup_source = "(let-values() #f)" "(if(null?(cdr es_1))" "(let-values()" -"(loop_82" +"(loop_80" "(car es_1)" " locals_2))" "(let-values()" @@ -31707,7 +31297,7 @@ 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_116) e_39))" +"(let-values(((s_116) e_38))" "(let-values(((orig-s_0) s_116))" "(let-values(((_50_1 e051_1 e52_1)" "(let-values(((s_120)" @@ -31758,7 +31348,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_16" " str_21" -" e_58)" +" e_57)" "(error" " str_21))" " #f" @@ -31771,7 +31361,7 @@ static const char *startup_source = " e57_0))" "((lambda(false_17" " str_22" -" e_59)" +" e_58)" "(error" " str_22))" " #f" @@ -31783,7 +31373,7 @@ static const char *startup_source = " e55_0))" "((lambda(false_18" " str_23" -" e_60)" +" e_59)" "(error" " str_23))" " #f" @@ -31801,57 +31391,57 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_233)))" "((letrec-values(((for-loop_224)" -"(lambda(result_92" +"(lambda(result_93" " lst_119)" "(begin" " 'for-loop" "(if(pair? lst_119)" -"(let-values(((e_61)" +"(let-values(((e_60)" "(unsafe-car" " lst_119))" "((rest_129)" "(unsafe-cdr" " lst_119)))" -"(let-values(((result_93)" -"(let-values()" "(let-values(((result_94)" "(let-values()" +"(let-values(((result_95)" +"(let-values()" "(let-values()" "(not" "(effects?_0" -" e_61" +" e_60" " #f" " locals_2))))))" "(values" -" result_94)))))" +" result_95)))))" "(if(if(not" -"((lambda x_62" +"((lambda x_61" "(not" -" result_93))" -" e_61))" +" result_94))" +" e_60))" "(not #f)" " #f)" "(for-loop_224" -" result_93" +" result_94" " rest_129)" -" result_93)))" -" result_92)))))" +" result_94)))" +" result_93)))))" " for-loop_224)" " #t" " lst_233)))" -"(loop_82 e051_0 locals_2)" +"(loop_80 e051_0 locals_2)" " #f)))" "(if(unsafe-fx< index_1 8)" "(let-values()" "(if(ok-make-struct-type?" -" e_39" +" e_38" " ready-variable?_0" " defns_1)" " 5" " #f))" "(let-values()" "(if(ok-make-struct-field-accessor/mutator?" -" e_39" +" e_38" " locals_2" " 'general-accessor" " defns_1)" @@ -31860,7 +31450,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 10)" "(let-values()" "(if(ok-make-struct-field-accessor/mutator?" -" e_39" +" e_38" " locals_2" " 'general-mutator" " defns_1)" @@ -31868,13 +31458,13 @@ static const char *startup_source = " #f))" "(if(unsafe-fx< index_1 11)" "(let-values()" -"(if(ok-make-struct-type-property? e_39 defns_1)" +"(if(ok-make-struct-type-property? e_38 defns_1)" " 3" " #f))" "(if(unsafe-fx< index_1 12)" "(let-values()" "(let-values(((ok?_23 gs58_0 quot59_0 datum60_0)" -"(let-values(((s_234) e_39))" +"(let-values(((s_234) e_38))" "(if(let-values(((s_235)" "(if(1/syntax?" " s_234)" @@ -32067,7 +31657,7 @@ static const char *startup_source = " #f)))" "(if or-part_228" " or-part_228" -"(null?(cdr(correlated-e e_39)))))" +"(null?(cdr(correlated-e e_38)))))" " 1" " #f)))" "(let-values()" @@ -32077,7 +31667,7 @@ static const char *startup_source = " id:arg71_0" " thn72_0" " els73_0)" -"(let-values(((s_349) e_39))" +"(let-values(((s_349) e_38))" "(if(let-values(((s_350)" "(if(1/syntax?" " s_349)" @@ -32382,7 +31972,7 @@ static const char *startup_source = "(known-satisfies7.1" "(known-predicate-key" " d_31)))))" -"(loop_82 els73_0 locals_2)" +"(loop_80 els73_0 locals_2)" " #f)" " #f))" " c2_2)" @@ -32393,7 +31983,7 @@ static const char *startup_source = " tst90_0" " thn91_0" " els92_0)" -"(let-values(((s_381) e_39))" +"(let-values(((s_381) e_38))" "(if(let-values(((s_382)" "(if(1/syntax?" " s_381)" @@ -32578,12 +32168,12 @@ static const char *startup_source = " thn91_0" " expected-results_0" " locals_2))" -"(loop_82 els92_0 locals_2)" +"(loop_80 els92_0 locals_2)" " #f)" " #f)" " #f)))))))))))))))))" -" loop_82)" -" e_37" +" loop_80)" +" e_36" " locals_0)))" "(not" "(if actual-results_0" @@ -32592,11 +32182,11 @@ static const char *startup_source = " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_62 key_50 defns_2 locals_3)" +"(lambda(e_61 key_50 defns_2 locals_3)" "(begin" "(let-values(((d_32)" -"(let-values(((or-part_234)(hash-ref locals_3 e_62 #f)))" -"(if or-part_234 or-part_234(lookup-defn defns_2 e_62)))))" +"(let-values(((or-part_234)(hash-ref locals_3 e_61 #f)))" +"(if or-part_234 or-part_234(lookup-defn defns_2 e_61)))))" "(if d_32(if(known-satisfies? d_32)(eq? key_50(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" @@ -32619,7 +32209,7 @@ static const char *startup_source = "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_93)" +"((letrec-values(((loop_91)" "(lambda(rhs_11)" "(begin" " 'loop" @@ -32718,11 +32308,11 @@ static const char *startup_source = "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_93" +"(loop_91" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_93 #f)))" +"(loop_91 #f)))" "(let-values()" "(let-values(((lst_242)" "(correlated->list" @@ -32769,7 +32359,7 @@ static const char *startup_source = " for-loop_226)" " locals_7" " lst_242)))))))))))" -" loop_93)" +" loop_91)" " rhs_10))))" "(values locals_8)))))" "(if(not #f)(for-loop_149 locals_6 rest_130 rest_131) locals_6)))" @@ -32780,24 +32370,24 @@ static const char *startup_source = " lst_235))))))" "(define-values" "(ok-make-struct-type-property?)" -"(lambda(e_63 defns_3)" +"(lambda(e_62 defns_3)" "(begin" -"(let-values(((l_57)(correlated->list e_63)))" +"(let-values(((l_57)(correlated->list e_62)))" "(if(<= 2(length l_57) 5)" "(let-values(((lst_244)(cdr l_57))" "((lst_245)" "(list" -"(lambda(v_166)(quoted? symbol? v_166))" -"(lambda(v_167)(is-lambda? v_167 2 defns_3))" -"(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))" -"(lambda(v_169)" -"(let-values(((v103_0) v_169)((temp104_1) 1)((defns105_0) defns_3))" +"(lambda(v_158)(quoted? symbol? v_158))" +"(lambda(v_159)(is-lambda? v_159 2 defns_3))" +"(lambda(v_160)(ok-make-struct-type-property-super? v_160 defns_3))" +"(lambda(v_161)" +"(let-values(((v103_0) v_161)((temp104_1) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_1))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_244)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" "((letrec-values(((for-loop_227)" -"(lambda(result_95 lst_246 lst_60)" +"(lambda(result_96 lst_246 lst_60)" "(begin" " 'for-loop" "(if(if(pair? lst_246)(pair? lst_60) #f)" @@ -32805,17 +32395,17 @@ static const char *startup_source = "((rest_27)(unsafe-cdr lst_246))" "((pred_1)(unsafe-car lst_60))" "((rest_135)(unsafe-cdr lst_60)))" -"(let-values(((result_96)" -"(let-values()" "(let-values(((result_97)" +"(let-values()" +"(let-values(((result_98)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(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)" +"(values result_98)))))" +"(if(if(not((lambda x_62(not result_97)) arg_0))" +"(if(not((lambda x_63(not result_97)) pred_1))(not #f) #f)" " #f)" -"(for-loop_227 result_96 rest_27 rest_135)" -" result_96)))" -" result_95)))))" +"(for-loop_227 result_97 rest_27 rest_135)" +" result_97)))" +" result_96)))))" " for-loop_227)" " #t" " lst_244" @@ -32823,32 +32413,32 @@ static const char *startup_source = " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_170 defns_4)" +"(lambda(v_162 defns_4)" "(begin" -"(let-values(((or-part_235)(quoted? null? v_170)))" +"(let-values(((or-part_235)(quoted? null? v_162)))" "(if or-part_235" " or-part_235" -"(let-values(((or-part_236)(eq? 'null(correlated-e v_170))))" +"(let-values(((or-part_236)(eq? 'null(correlated-e v_162))))" "(if or-part_236" " or-part_236" -"(if(pair?(correlated-e v_170))" -"(if(eq?(correlated-e(car(correlated-e v_170))) 'list)" -"(if(let-values(((lst_247)(cdr(correlated->list v_170))))" +"(if(pair?(correlated-e v_162))" +"(if(eq?(correlated-e(car(correlated-e v_162))) 'list)" +"(if(let-values(((lst_247)(cdr(correlated->list v_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_247)))" "((letrec-values(((for-loop_228)" -"(lambda(result_98 lst_64)" +"(lambda(result_99 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_99)" -"(let-values()" "(let-values(((result_100)" "(let-values()" +"(let-values(((result_101)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -32897,20 +32487,20 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_100)))))" -"(if(if(not((lambda x_65(not result_99)) prop+val_0))" +"(values result_101)))))" +"(if(if(not((lambda x_64(not result_100)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_228 result_99 rest_29)" -" result_99)))" -" result_98)))))" +"(for-loop_228 result_100 rest_29)" +" result_100)))" +" result_99)))))" " for-loop_228)" " #t" " lst_247)))" "(=" -"(sub1(correlated-length v_170))" +"(sub1(correlated-length v_162))" "(set-count" -"(let-values(((lst_248)(cdr(correlated->list v_170))))" +"(let-values(((lst_248)(cdr(correlated->list v_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32951,9 +32541,9 @@ static const char *startup_source = " #f))))))))" "(define-values" "(ok-make-struct-type?)" -"(lambda(e_64 ready-variable?_1 defns_5)" +"(lambda(e_63 ready-variable?_1 defns_5)" "(begin" -"(let-values(((l_58)(correlated->list e_64)))" +"(let-values(((l_58)(correlated->list e_63)))" "(let-values(((init-field-count-expr_0)(if(>(length l_58) 3)(list-ref l_58 3) #f)))" "(let-values(((auto-field-count-expr_0)(if(>(length l_58) 4)(list-ref l_58 4) #f)))" "(let-values(((num-fields_0)" @@ -32969,13 +32559,13 @@ static const char *startup_source = "(let-values(((lst_250)(cdr l_58))" "((lst_251)" "(list" -"(lambda(v_171)(quoted? symbol? v_171))" -"(lambda(v_172)(super-ok? v_172 defns_5))" -"(lambda(v_173)(field-count-expr-to-field-count v_173))" -"(lambda(v_174)(field-count-expr-to-field-count v_174))" -"(lambda(v_175)" +"(lambda(v_163)(quoted? symbol? v_163))" +"(lambda(v_164)(super-ok? v_164 defns_5))" +"(lambda(v_165)(field-count-expr-to-field-count v_165))" +"(lambda(v_166)(field-count-expr-to-field-count v_166))" +"(lambda(v_167)" "(not" -"(let-values(((v109_0) v_175)" +"(let-values(((v109_0) v_167)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32985,11 +32575,11 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_176)" -"(known-good-struct-properties? v_176 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_177)(inspector-or-false? v_177))" -"(lambda(v_178)(procedure-spec? v_178 num-fields_0))" -"(lambda(v_179)(immutables-ok? v_179 init-field-count-expr_0)))))" +"(lambda(v_168)" +"(known-good-struct-properties? v_168 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_169)(inspector-or-false? v_169))" +"(lambda(v_170)(procedure-spec? v_170 num-fields_0))" +"(lambda(v_171)(immutables-ok? v_171 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32998,7 +32588,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_251)))" "((letrec-values(((for-loop_230)" -"(lambda(result_101 lst_252 lst_253)" +"(lambda(result_102 lst_252 lst_253)" "(begin" " 'for-loop" "(if(if(pair? lst_252)(pair? lst_253) #f)" @@ -33006,20 +32596,20 @@ static const char *startup_source = "((rest_137)(unsafe-cdr lst_252))" "((pred_2)(unsafe-car lst_253))" "((rest_138)(unsafe-cdr lst_253)))" -"(let-values(((result_102)" -"(let-values()" "(let-values(((result_103)" "(let-values()" +"(let-values(((result_104)" +"(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_103)))))" -"(if(if(not((lambda x_66(not result_102)) arg_1))" -"(if(not((lambda x_67(not result_102)) pred_2))" +"(values result_104)))))" +"(if(if(not((lambda x_65(not result_103)) arg_1))" +"(if(not((lambda x_66(not result_103)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_230 result_102 rest_137 rest_138)" -" result_102)))" -" result_101)))))" +"(for-loop_230 result_103 rest_137 rest_138)" +" result_103)))" +" result_102)))))" " for-loop_230)" " #t" " lst_250" @@ -33028,79 +32618,79 @@ static const char *startup_source = " #f))))))))))" "(define-values" "(super-ok?)" -"(lambda(e_65 defns_6)" +"(lambda(e_64 defns_6)" "(begin" -"(let-values(((or-part_239)(quoted? false? e_65)))" +"(let-values(((or-part_239)(quoted? false? e_64)))" "(if or-part_239" " or-part_239" -"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_65))))" +"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_64))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" "(extract-struct-field-count-lower-bound)" -"(lambda(e_66)" +"(lambda(e_65)" "(begin" -"(let-values(((l_59)(correlated->list e_66)))" +"(let-values(((l_59)(correlated->list e_65)))" "(+(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_180)" +"(lambda(val?_0 v_172)" "(begin" "(let-values(((or-part_240)" -"(if(pair?(correlated-e v_180))" -"(if(eq?(correlated-e(car(correlated-e v_180))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_180)))" +"(if(pair?(correlated-e v_172))" +"(if(eq?(correlated-e(car(correlated-e v_172))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_172)))" " #f)" " #f)))" -"(if or-part_240 or-part_240(val?_0(correlated-e v_180)))))))" +"(if or-part_240 or-part_240(val?_0(correlated-e v_172)))))))" "(define-values" "(quoted-value)" -"(lambda(v_181)" -"(begin(if(pair?(correlated-e v_181))(correlated-e(correlated-cadr v_181))(correlated-e v_181)))))" -"(define-values(false?)(lambda(v_182)(begin(eq?(correlated-e v_182) #f))))" +"(lambda(v_173)" +"(begin(if(pair?(correlated-e v_173))(correlated-e(correlated-cadr v_173))(correlated-e v_173)))))" +"(define-values(false?)(lambda(v_174)(begin(eq?(correlated-e v_174) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_183)(begin(if(quoted? exact-nonnegative-integer? v_183)(quoted-value v_183) #f))))" +"(lambda(v_175)(begin(if(quoted? exact-nonnegative-integer? v_175)(quoted-value v_175) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_184)" +"(lambda(v_176)" "(begin" -"(let-values(((or-part_241)(quoted? false? v_184)))" +"(let-values(((or-part_241)(quoted? false? v_176)))" "(if or-part_241" " or-part_241" -"(let-values(((or-part_242)(if(quoted? symbol? v_184)(eq? 'prefab(quoted-value v_184)) #f)))" +"(let-values(((or-part_242)(if(quoted? symbol? v_176)(eq? 'prefab(quoted-value v_176)) #f)))" "(if or-part_242" " or-part_242" -"(if(= 1(correlated-length v_184))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_184))))" +"(if(= 1(correlated-length v_176))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_176))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_185 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_177 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_243)(quoted? null? v_185)))" +"(let-values(((or-part_243)(quoted? null? v_177)))" "(if or-part_243" " or-part_243" -"(let-values(((or-part_244)(eq? 'null(correlated-e v_185))))" +"(let-values(((or-part_244)(eq? 'null(correlated-e v_177))))" "(if or-part_244" " or-part_244" -"(if(pair?(correlated-e v_185))" -"(if(eq?(correlated-e(car(correlated-e v_185))) 'list)" -"(if(let-values(((lst_254)(cdr(correlated->list v_185))))" +"(if(pair?(correlated-e v_177))" +"(if(eq?(correlated-e(car(correlated-e v_177))) 'list)" +"(if(let-values(((lst_254)(cdr(correlated->list v_177))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_254)))" "((letrec-values(((for-loop_231)" -"(lambda(result_104 lst_255)" +"(lambda(result_105 lst_255)" "(begin" " 'for-loop" "(if(pair? lst_255)" "(let-values(((prop+val_3)(unsafe-car lst_255))" "((rest_139)(unsafe-cdr lst_255)))" -"(let-values(((result_105)" -"(let-values()" "(let-values(((result_106)" "(let-values()" +"(let-values(((result_107)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -33121,20 +32711,20 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_106)))))" -"(if(if(not((lambda x_68(not result_105)) prop+val_3))" +"(values result_107)))))" +"(if(if(not((lambda x_67(not result_106)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_231 result_105 rest_139)" -" result_105)))" -" result_104)))))" +"(for-loop_231 result_106 rest_139)" +" result_106)))" +" result_105)))))" " for-loop_231)" " #t" " lst_254)))" "(=" -"(sub1(correlated-length v_185))" +"(sub1(correlated-length v_177))" "(set-count" -"(let-values(((lst_256)(cdr(correlated->list v_185))))" +"(let-values(((lst_256)(cdr(correlated->list v_177))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -33247,27 +32837,27 @@ static const char *startup_source = "(let-values(((or-part_250)(not arity_0)))" "(if or-part_250" " or-part_250" -"((letrec-values(((loop_94)" +"((letrec-values(((loop_92)" "(lambda(args_4 arity_1)" "(begin" " 'loop" "(if(correlated? args_4)" -"(let-values()(loop_94(correlated-e args_4) arity_1))" +"(let-values()(loop_92(correlated-e args_4) arity_1))" "(if(null? args_4)" "(let-values()(zero? arity_1))" "(if(pair? args_4)" -"(let-values()(loop_94(cdr args_4)(sub1 arity_1)))" +"(let-values()(loop_92(cdr args_4)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_94)" +" loop_92)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" " #f)))))))))" "(define-values" "(arity-includes?)" -"(lambda(a_44 n_26)" +"(lambda(a_44 n_25)" "(begin" -"(let-values(((or-part_251)(equal? a_44 n_26)))" +"(let-values(((or-part_251)(equal? a_44 n_25)))" "(if or-part_251" " or-part_251" "(if(list? a_44)" @@ -33277,21 +32867,21 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_257)))" "((letrec-values(((for-loop_233)" -"(lambda(result_107 lst_258)" +"(lambda(result_108 lst_258)" "(begin" " 'for-loop" "(if(pair? lst_258)" "(let-values(((a_45)(unsafe-car lst_258))((rest_141)(unsafe-cdr lst_258)))" -"(let-values(((result_108)" -"(let-values()" "(let-values(((result_109)" "(let-values()" -"(let-values()(equal? a_45 n_26)))))" -"(values result_109)))))" -"(if(if(not((lambda x_69 result_108) a_45))(not #f) #f)" -"(for-loop_233 result_108 rest_141)" -" result_108)))" -" result_107)))))" +"(let-values(((result_110)" +"(let-values()" +"(let-values()(equal? a_45 n_25)))))" +"(values result_110)))))" +"(if(if(not((lambda x_68 result_109) a_45))(not #f) #f)" +"(for-loop_233 result_109 rest_141)" +" result_109)))" +" result_108)))))" " for-loop_233)" " #f" " lst_257)))" @@ -33305,15 +32895,15 @@ static const char *startup_source = " #f))))" "(define-values" "(immutables-expr-to-immutables)" -"(lambda(e_67 fail-v_0)" +"(lambda(e_66 fail-v_0)" "(begin" -"(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" +"(let-values(((tmp_29)(if(pair?(correlated-e e_66))(correlated-e(car(correlated-e e_66))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_186)(correlated-cadr e_67)))" +"(let-values(((v_178)(correlated-cadr e_66)))" "(let-values(((or-part_252)" -"(if(correlated-length v_186)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_186))))" +"(if(correlated-length v_178)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_178))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" @@ -33322,21 +32912,21 @@ static const char *startup_source = "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" -"(lambda(e_68 field-count_1)" +"(lambda(e_67 field-count_1)" "(begin" -"(let-values(((or-part_253)(quoted? false? e_68)))" +"(let-values(((or-part_253)(quoted? false? e_67)))" "(if or-part_253" " or-part_253" "(let-values(((or-part_254)" -"(if(quoted? exact-nonnegative-integer? e_68)" -"(if field-count_1(<(quoted-value e_68) field-count_1) #f)" +"(if(quoted? exact-nonnegative-integer? e_67)" +"(if field-count_1(<(quoted-value e_67) field-count_1) #f)" " #f)))" -"(if or-part_254 or-part_254(is-lambda? e_68 #f '#hasheq()))))))))" +"(if or-part_254 or-part_254(is-lambda? e_67 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" -"(lambda(e_69 init-field-count-expr_1)" +"(lambda(e_68 init-field-count-expr_1)" "(begin" -"(let-values(((l_62)(immutables-expr-to-immutables e_69 #f)))" +"(let-values(((l_62)(immutables-expr-to-immutables e_68 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" "(let-values(((lst_259) l_62))" @@ -33345,29 +32935,29 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_259)))" "((letrec-values(((for-loop_95)" -"(lambda(result_110 lst_260)" +"(lambda(result_111 lst_260)" "(begin" " 'for-loop" "(if(pair? lst_260)" -"(let-values(((n_27)(unsafe-car lst_260))((rest_142)(unsafe-cdr lst_260)))" -"(let-values(((result_111)" -"(let-values()" +"(let-values(((n_26)(unsafe-car lst_260))((rest_142)(unsafe-cdr lst_260)))" "(let-values(((result_112)" -"(let-values()(let-values()(< n_27 c_24)))))" -"(values result_112)))))" -"(if(if(not((lambda x_70(not result_111)) n_27))(not #f) #f)" -"(for-loop_95 result_111 rest_142)" -" result_111)))" -" result_110)))))" +"(let-values()" +"(let-values(((result_113)" +"(let-values()(let-values()(< n_26 c_24)))))" +"(values result_113)))))" +"(if(if(not((lambda x_69(not result_112)) n_26))(not #f) #f)" +"(for-loop_95 result_112 rest_142)" +" result_112)))" +" result_111)))))" " for-loop_95)" " #t" " lst_259)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" -"(lambda(e_70 locals_17 type_1 defns_10)" +"(lambda(e_69 locals_17 type_1 defns_10)" "(begin" -"(let-values(((l_63)(correlated->list e_70)))" +"(let-values(((l_63)(correlated->list e_69)))" "(let-values(((a_46)" "(if(let-values(((or-part_255)(=(length l_63) 3)))" "(if or-part_255 or-part_255(=(length l_63) 4)))" @@ -33382,19 +32972,19 @@ static const char *startup_source = " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))" "(define-values" "(compile-single)" -"(lambda(p_45 cctx_13)" +"(lambda(p_36 cctx_13)" "(begin" -"(let-values(((p12_0) p_45)((cctx13_0) cctx_13)((temp14_4) #f)((temp15_4) #t))" +"(let-values(((p12_0) p_36)((cctx13_0) cctx_13)((temp14_4) #f)((temp15_4) #t))" "(compile-top9.1 temp14_4 temp15_4 #f p12_0 cctx13_0)))))" "(define-values" "(compile-top9.1)" "(lambda(serializable?1_0 single-expression?2_0 to-source?3_0 p7_0 cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_46) p7_0))" +"(let-values(((p_37) p7_0))" "(let-values(((cctx_14) cctx8_0))" "(let-values(((serializable?_1) serializable?1_0))" "(let-values(((single-expression?_0) single-expression?2_0))" @@ -33412,7 +33002,7 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_46))" +"(let-values(((temp16_4)(list p_37))" "((cctx17_0) cctx_14)" "((mpis18_0) mpis_18)" "((temp19_1)" @@ -33431,9 +33021,9 @@ static const char *startup_source = "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" "((temp24_3)" -"(lambda(e_71 expected-results_2 phase_22 required-reference?_0)" +"(lambda(e_70 expected-results_2 phase_22 required-reference?_0)" "(if(if purely-functional?_0" -"(let-values(((e27_0) e_71)" +"(let-values(((e27_0) e_70)" "((expected-results28_0) expected-results_2)" "((required-reference?29_0)" " required-reference?_0))" @@ -33549,12 +33139,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_47 cctx_16)" +"(lambda(p_38 cctx_16)" "(begin" "(let-values(((phase_86)(compile-context-phase cctx_16)))" -"(if(parsed-require? p_47)" +"(if(parsed-require? p_38)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_47)) cctx_16)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_38)) cctx_16)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -33630,7 +33220,7 @@ static const char *startup_source = " #f)" " #f)" " sym_62" -"((letrec-values(((loop_83)" +"((letrec-values(((loop_81)" "(lambda(pos_98)" "(begin" " 'loop" @@ -33648,11 +33238,11 @@ static const char *startup_source = " id_54" " phase_87" " top-level-bind-scope_3)" -"(loop_83" +"(loop_81" "(add1" " pos_98))" " s_183))))))" -" loop_83)" +" loop_81)" " 1))))" "(let-values((()" "(begin" @@ -34044,11 +33634,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_187) root-context_0))" -"(let-values(((the-struct_54) v_187))" +"(let-values(((v_179) root-context_0))" +"(let-values(((the-struct_54) v_179))" "(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_187)))" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_179)))" "(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -34295,7 +33885,7 @@ static const char *startup_source = "(define-values" "(module-cache-ref)" "(lambda(key_66)" -"(begin(let-values(((e_72)(hash-ref module-cache key_66 #f)))(if e_72(ephemeron-value e_72) #f)))))" +"(begin(let-values(((e_71)(hash-ref module-cache key_66 #f)))(if e_71(ephemeron-value e_71) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -34353,7 +33943,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_99))" "(let-values(((table_181)" -"(let-values(((v_188)" +"(let-values(((v_180)" "(hash-ref" " h_1" " phase-level_17" @@ -34368,7 +33958,7 @@ static const char *startup_source = "(let-values(((table_183)" "(let-values(((table_112)" " table_182))" -"(if v_188" +"(if v_180" "(let-values(((table_184)" " table_112))" "(let-values(((table_185)" @@ -34379,7 +33969,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_188)))))" +" v_180)))))" "(hash-set" " table_184" " key_68" @@ -34492,7 +34082,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_176)" -"(let-values(((name_48)" +"(let-values(((name_47)" "(unsafe-car" " lst_176))" "((rest_93)" @@ -34507,7 +34097,7 @@ static const char *startup_source = "(let-values(((sm-cd_0)" "(hash-ref" " dh_0" -" name_48" +" name_47" " #f)))" "(begin" "(if sm-cd_0" @@ -34515,7 +34105,7 @@ static const char *startup_source = "(let-values()" "(error" " \"missing submodule declaration:\"" -" name_48)))" +" name_47)))" "(let-values(((sm-cd15_0)" " sm-cd_0)" "((ns16_0)" @@ -34766,13 +34356,13 @@ static const char *startup_source = "(values))))" "(let-values(((module-body-instance-instance_0)" "(let-values(((temp52_0)" -"(lambda(name_49" +"(lambda(name_48" " val_58)" "(namespace-set-transformer!" " ns_65" "(sub1" " phase-level_19)" -" name_49" +" name_48" " val_58))))" "(make-module-body-instance-instance18.1" " temp52_0))))" @@ -34822,17 +34412,16 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -"(delay" +"(promise1.1" "(lambda()" -"(begin" -" '...nder/eval/module.rkt:214:76" "(let-values(((ns-153_0)" " ns-1_0))" "(make-expand-context10.1" " #f" " #f" " #f" -" ns-153_0)))))" +" ns-153_0)))" +" #f)" " 1/current-namespace" " ns_65" " current-module-code-inspector" @@ -34901,16 +34490,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:_73 make-_73 ?_73 -ref_73 -set!_73)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_73 1 'cache-key))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_66 1 'cache-key))))" "(define-values" "(init-instance-data!)" "(lambda(data-box_4" @@ -34940,7 +34529,7 @@ static const char *startup_source = "((insp58_0) insp_15)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_0)" -" (lambda (name_50 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))" +" (lambda (name_49 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" " bulk-binding-registry59_0" " insp58_0" @@ -34964,36 +34553,29 @@ static const char *startup_source = "(let-values()" "(namespace-set-root-expand-ctx!" " ns_66" -"(delay" +"(promise1.1" "(lambda()" -"(begin" -" '...nder/eval/module.rkt:279:39" "(shift-to-inside-root-context" "(let-values(((self61_0) self_23))" -"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_0))))))))" +"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_0))))" +" #f)))" "(if(procedure? get-encoded-root-expand-ctx_0)" "(let-values()" "(namespace-set-root-expand-ctx!" " ns_66" -"(delay" +"(promise1.1" "(lambda()" -"(begin" -" '...nder/eval/module.rkt:283:39" "(shift-to-inside-root-context" -"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_23)))))))" +"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_23)))" +" #f)))" "(let-values()" "(namespace-set-root-expand-ctx!" " ns_66" -"(delay" +"(promise1.1" "(lambda()" -"(begin" -" '...nder/eval/module.rkt:290:39" "(shift-to-inside-root-context" -"(create-root-expand-context-from-module_1" -" ns_66" -" phase-shift_17" -" original-self_2" -" self_23)))))))))))))))))" +"(create-root-expand-context-from-module_1 ns_66 phase-shift_17 original-self_2 self_23)))" +" #f)))))))))))))" "(define-values" "(force-syntax-deserialize)" "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" @@ -35460,7 +35042,7 @@ static const char *startup_source = "(define-values" "(module-compiled-immediate-name)" "(lambda(c_25)" -"(begin(let-values(((n_28)(module-compiled-current-name c_25)))(if(pair? n_28)(car(reverse$1 n_28)) n_28)))))" +"(begin(let-values(((n_27)(module-compiled-current-name c_25)))(if(pair? n_27)(car(reverse$1 n_27)) n_27)))))" "(define-values" "(change-module-name)" "(lambda(c_34 name_3 prefix_4)" @@ -35468,12 +35050,12 @@ static const char *startup_source = "(let-values(((full-name_0)(if(null? prefix_4) name_3(append prefix_4(list name_3)))))" "(let-values(((next-prefix_0)(if(null? prefix_4)(list name_3) full-name_0)))" "(let-values(((recur_0)" -"(lambda(sub-c_0 name_51)" +"(lambda(sub-c_0 name_50)" "(begin" " 'recur" -"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_51)))" +"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_50)))" " sub-c_0" -"(change-module-name sub-c_0 name_51 next-prefix_0))))))" +"(change-module-name sub-c_0 name_50 next-prefix_0))))))" "(if(compiled-in-memory? c_34)" "(let-values()" "(let-values(((change-submodule-name_0)" @@ -35561,7 +35143,7 @@ static const char *startup_source = "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" -"(lambda(lb_0 name_52)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_52)))))" +"(lambda(lb_0 name_51)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_51)))))" "(define-values" "(rebuild-linklet-directory5.1)" "(lambda(bundle-ok?1_0 main3_0 submods4_0)" @@ -35591,20 +35173,20 @@ static const char *startup_source = "(let-values(((ht_118) ht_127))" "(let-values(((ht_119)" "(let-values()" -"(let-values(((name_53)" +"(let-values(((name_52)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_118 name_53 #f)" +"(if(hash-ref ht_118 name_52 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" " \"change would result in duplicate submodule name\"" " \"name\"" -" name_53))" +" name_52))" "(let-values()" "(hash-set" " ht_118" -" name_53" +" name_52" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_119)))))" @@ -35654,7 +35236,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_36)))" "(module-compiled-current-name c_36))))" -"((c_37 name_54)" +"((c_37 name_53)" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_37)" @@ -35664,21 +35246,21 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_217)(symbol? name_54)))" +"(if(let-values(((or-part_217)(symbol? name_53)))" "(if or-part_217" " or-part_217" -"(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" +"(if(pair? name_53)(if(list? name_53)(andmap2 symbol? name_53) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-name" " \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" -" name_54)))" +" name_53)))" "(values))))" "(let-values(((i-name_0 prefix_5)" -"(if(symbol? name_54)" -"(values name_54 null)" -"(let-values(((r_41)(reverse$1 name_54)))(values(car r_41)(reverse$1(cdr r_41)))))))" +"(if(symbol? name_53)" +"(values name_53 null)" +"(let-values(((r_38)(reverse$1 name_53)))(values(car r_38)(reverse$1(cdr r_38)))))))" "(change-module-name c_37 i-name_0 prefix_5)))))))))" "(define-values" "(1/module-compiled-submodules)" @@ -35714,7 +35296,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_87)" -"(let-values(((name_55)(unsafe-car lst_87))" +"(let-values(((name_54)(unsafe-car lst_87))" "((rest_41)(unsafe-cdr lst_87)))" "(let-values(((fold-var_70)" "(let-values(((fold-var_27) fold-var_69))" @@ -35722,7 +35304,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_69 name_55))" +"(hash-ref ht_69 name_54))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" @@ -35989,7 +35571,7 @@ static const char *startup_source = " cctx12_0)" "(begin" " 'compile-module13" -"(let-values(((p_46) p11_0))" +"(let-values(((p_37) p11_0))" "(let-values(((cctx_14) cctx12_0))" "(let-values(((force-linklet-directory?_0) force-linklet-directory?1_0))" "(let-values(((serializable?_2) serializable?2_0))" @@ -36002,13 +35584,13 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_14))" -"((name_55)(syntax-e$1(parsed-module-name-id p_46))))" +"((name_54)(syntax-e$1(parsed-module-name-id p_37))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" -"(list name_55))" -" name_55))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_46)))" +"(list name_54))" +" name_54))))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" @@ -36024,7 +35606,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_92" -"(let-values(((name_56 star?+compiled_0)" +"(let-values(((name_55 star?+compiled_0)" "(hash-iterate-key+value" " ht_126" " i_92)))" @@ -36041,16 +35623,16 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" name_56" +" name_55" "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_46))" +" p_37))" " #f)" "(update-submodule-names" "(cdr" " star?+compiled_0)" -" name_56" +" name_55" " full-module-name_1)" "(cdr" " star?+compiled_0))))" @@ -36068,22 +35650,22 @@ static const char *startup_source = "(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)))" -"(if c1_27" +"(let-values(((c1_26)(parsed-module-compiled-module p_37)))" +"(if c1_26" "((lambda(c_45)" -"(let-values(((name_52 prefix_6)" +"(let-values(((name_51 prefix_6)" "(if(symbol? full-module-name_1)" "(values full-module-name_1 null)" "(let-values(((r_6)(reverse$1 full-module-name_1)))" "(values(car r_6)(reverse$1(cdr r_6)))))))" -"(let-values(((m_18)(change-module-name c_45 name_52 prefix_6)))" +"(let-values(((m_18)(change-module-name c_45 name_51 prefix_6)))" "(1/module-compiled-submodules" "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" " #f" "(map2 cdr post-submodules_0)))))" -" c1_27)" +" c1_26)" "(let-values()" -"(let-values(((p37_0) p_46)" +"(let-values(((p37_0) p_37)" "((cctx38_0) cctx_14)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -36119,7 +35701,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_19) p32_1))" +"(let-values(((p_10) p32_1))" "(let-values(((cctx_17) cctx33_0))" "(let-values(((full-module-name_2) full-module-name16_0))" "(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))" @@ -36132,16 +35714,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_25)(parsed-module-self p_19)))" -"(let-values(((requires_5)(parsed-module-requires p_19)))" -"(let-values(((provides_11)(parsed-module-provides p_19)))" +"(let-values(((self_25)(parsed-module-self p_10)))" +"(let-values(((requires_5)(parsed-module-requires p_10)))" +"(let-values(((provides_11)(parsed-module-provides p_10)))" "(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_19))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_19)))" +"(box(parsed-module-encoded-root-ctx p_10))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_10)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_19) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_19)))" +"(syntax-property$1(parsed-s p_10) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_10)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" @@ -36168,7 +35750,7 @@ static const char *startup_source = "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" -"(lambda(e_73" +"(lambda(e_72" " expected-results_3" " phase_94" " required-reference?_1)" @@ -36177,7 +35759,7 @@ static const char *startup_source = "(if(hash-ref side-effects_0 phase_94 #f)" "(void)" "(let-values()" -"(if(let-values(((e52_2) e_73)" +"(if(let-values(((e52_2) e_72)" "((expected-results53_0)" " expected-results_3)" "((required-reference?54_0)" @@ -36839,11 +36421,11 @@ static const char *startup_source = " #f)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(update-submodule-names)" -"(lambda(cim_9 name_57 full-module-name_3)" +"(lambda(cim_9 name_56 full-module-name_3)" "(begin" "(change-module-name" " cim_9" -" name_57" +" name_56" "(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))" "(define-values" "(register-compiled-submodules)" @@ -36865,7 +36447,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((name_58)(car s_408)))" +"(let-values(((name_57)(car s_408)))" "(let-values(((cim_10)(cdr s_408)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" @@ -36878,7 +36460,7 @@ static const char *startup_source = "(list" " 'submod" " \".\"" -" name_58)" +" name_57)" " self_26)))" "(let-values(((phase-to-extra-inspectorsss_0)" "(compiled-in-memory-phase-to-link-extra-inspectorsss" @@ -37002,21 +36584,21 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_151" -"(let-values(((k_34 v_73)(hash-iterate-key+value ht_134 i_151)))" +"(let-values(((k_34 v_62)(hash-iterate-key+value ht_134 i_151)))" "(let-values(((table_203)" "(let-values(((table_204) table_0))" "(let-values(((table_205)" "(let-values()" "(let-values(((key_75 val_66)" "(let-values()" -"(if(1/linklet? v_73)" +"(if(1/linklet? v_62)" "(let-values()" "(values" " k_34" "(1/recompile-linklet" -" v_73)))" +" v_62)))" "(let-values()" -"(values k_34 v_73))))))" +"(values k_34 v_62))))))" "(hash-set table_204 key_75 val_66)))))" "(values table_205)))))" "(if(not #f)" @@ -37245,7 +36827,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_29)))" -"(let-values(((v_70)(make-vector len_29 0)))" +"(let-values(((v_59)(make-vector len_29 0)))" "(begin" "(if(zero? len_29)" "(void)" @@ -37279,7 +36861,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_70" +" v_59" " i_63" "(let-values()" "(vector-ref" @@ -37308,7 +36890,7 @@ static const char *startup_source = " for-loop_111)" " 0" " 0)))))" -" v_70))))" +" v_59))))" "(let-values(((len_31)(cdr syntax-literals-spec_0)))" "(begin" "(if(exact-nonnegative-integer? len_31)" @@ -37364,7 +36946,7 @@ static const char *startup_source = "(values" " i_20)))))" "(if(if(not" -"((lambda x_72" +"((lambda x_71" "(unsafe-fx=" " i_157" " len_31))" @@ -37415,7 +36997,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_276)" -"(let-values(((name_59)(unsafe-car lst_276))" +"(let-values(((name_58)(unsafe-car lst_276))" "((rest_152)(unsafe-cdr lst_276)))" "(let-values(((fold-var_230)" "(let-values(((fold-var_231) fold-var_5))" @@ -37425,11 +37007,11 @@ static const char *startup_source = "(let-values()" "(hash-ref" " h_10" -" name_59" +" name_58" "(lambda()" "(error" " \"missing submodule declaration:\"" -" name_59))))" +" name_58))))" " fold-var_231))))" "(values fold-var_161)))))" "(if(not #f)(for-loop_249 fold-var_230 rest_152) fold-var_230)))" @@ -37491,15 +37073,15 @@ static const char *startup_source = " l_68)))))" "(if(compiled-in-memory? c_50)" "(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_50)))" -"(let-values(((c1_27)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))" -"(if c1_27" +"(let-values(((c1_26)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))" +"(if c1_26" "((lambda(data-ld_0)" "(eval-compiled-parts_0" "(create-compiled-in-memorys-using-shared-data" "(compiled-top->compiled-tops c_50)" "(hash-ref(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash data-ld_0) #f)) 0)" " ns_71)))" -" c1_27)" +" c1_26)" "(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_50))))))))))" "(define-values" "(eval-one-top12.1)" @@ -37550,7 +37132,7 @@ static const char *startup_source = "(if(compiled-in-memory? c_51)" "(compiled-in-memory-phase-to-link-module-uses c_51)" "(1/instance-variable-value link-instance_0 'phase-to-link-modules))))" -"(let-values(((thunk_5)" +"(let-values(((thunk_4)" "(let-values(((start_38) max-phase_5)" "((end_27)(sub1 orig-phase_1))" "((inc_21) -1))" @@ -37689,7 +37271,7 @@ static const char *startup_source = "(namespace-bulk-binding-registry" " ns_72))" "((temp36_2)" -"(lambda(name_60" +"(lambda(name_59" " val_68)" "(namespace-set-transformer!" " ns_72" @@ -37697,7 +37279,7 @@ static const char *startup_source = "(sub1" " phase_98)" " phase-shift_18)" -" name_60" +" name_59" " val_68))))" "(make-instance-instance13.1" " temp35_1" @@ -37823,7 +37405,7 @@ static const char *startup_source = " for-loop_197)" " void" " start_38)))))" -"(thunk_5 as-tail?_2))))))))))))))))))))" +"(thunk_4 as-tail?_2))))))))))))))))))))" "(define-values" "(link-instance-from-compiled-in-memory)" "(lambda(cim_11 to-ns_0)" @@ -37843,7 +37425,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_98)(make-vector len_32 0)))" +"(let-values(((v_89)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37868,7 +37450,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_98" +" v_89" " i_159" "(let-values()" "(swap-top-level-scopes" @@ -37881,7 +37463,7 @@ static const char *startup_source = " i_159)))))" "(values i_160)))))" "(if(if(not" -"((lambda x_73(unsafe-fx= i_83 len_32))" +"((lambda x_72(unsafe-fx= i_83 len_32))" " s_50))" "(not #f)" " #f)" @@ -37891,7 +37473,7 @@ static const char *startup_source = " for-loop_6)" " 0" " 0)))))" -" v_98)))))))))" +" v_89)))))))))" "(1/make-instance" " 'link" " #f" @@ -37904,52 +37486,52 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_45 ns_42 self-mpi_3)" +"(lambda(p_36 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_45)" +"(if(parsed-app? p_36)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_45) ns_42 self-mpi_3)" -"(let-values(((lst_103)(parsed-app-rands p_45)))" +"(if(can-direct-eval?(parsed-app-rator p_36) ns_42 self-mpi_3)" +"(let-values(((lst_103)(parsed-app-rands p_36)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" "((letrec-values(((for-loop_117)" -"(lambda(result_113 lst_84)" +"(lambda(result_114 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(((r_39)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" +"(let-values(((result_80)" "(let-values()" -"(let-values(((result_114)" +"(let-values(((result_115)" "(let-values()" "(let-values()" -"(can-direct-eval? r_42 ns_42 self-mpi_3)))))" -"(values result_114)))))" -"(if(if(not((lambda x_74(not result_79)) r_42))(not #f) #f)" -"(for-loop_117 result_79 rest_50)" -" result_79)))" -" result_113)))))" +"(can-direct-eval? r_39 ns_42 self-mpi_3)))))" +"(values result_115)))))" +"(if(if(not((lambda x_73(not result_80)) r_39))(not #f) #f)" +"(for-loop_117 result_80 rest_50)" +" result_80)))" +" result_114)))))" " for-loop_117)" " #t" " lst_103)))" " #f))" -"(if(parsed-id? p_45)" -"(let-values()(not(eq?(get-id-value p_45 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_45)" +"(if(parsed-id? p_36)" +"(let-values()(not(eq?(get-id-value p_36 ns_42 self-mpi_3) not-available)))" +"(if(parsed-quote? p_36)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_45)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_36)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_48 ns_67 self-mpi_4)" +"(lambda(p_39 ns_67 self-mpi_4)" "(begin" -"(if(parsed-app? p_48)" +"(if(parsed-app? p_39)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_48) ns_67 self-mpi_4)" +"(direct-eval(parsed-app-rator p_39) ns_67 self-mpi_4)" "(reverse$1" -"(let-values(((lst_81)(parsed-app-rands p_48)))" +"(let-values(((lst_81)(parsed-app-rands p_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_102)" @@ -37972,11 +37554,11 @@ static const char *startup_source = " for-loop_102)" " null" " lst_81))))))" -"(if(parsed-id? p_48)" -"(let-values()(get-id-value p_48 ns_67 self-mpi_4))" -"(if(parsed-quote? p_48)" -"(let-values()(parsed-quote-datum p_48))" -"(if(parsed-quote-syntax? p_48)(let-values()(parsed-quote-syntax-datum p_48))(let-values() #f))))))))" +"(if(parsed-id? p_39)" +"(let-values()(get-id-value p_39 ns_67 self-mpi_4))" +"(if(parsed-quote? p_39)" +"(let-values()(parsed-quote-datum p_39))" +"(if(parsed-quote-syntax? p_39)(let-values()(parsed-quote-syntax-datum p_39))(let-values() #f))))))))" "(define-values" "(get-id-value)" "(lambda(p_1 ns_73 self-mpi_5)" @@ -38053,11 +37635,11 @@ static const char *startup_source = "(define-values" "(runtime-instances)" " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))" -"(define-values(box-cons!)(lambda(b_16 v_73)(begin(set-box! b_16(cons v_73(unbox b_16))))))" +"(define-values(box-cons!)(lambda(b_16 v_62)(begin(set-box! b_16(cons v_62(unbox b_16))))))" "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" -"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38073,15 +37655,15 @@ static const char *startup_source = " #f" " 'lift-context)))))" "(values" -" 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?))))" +" struct:_67" +" make-_67" +" ?_67" +"(make-struct-field-accessor -ref_67 0 'convert)" +"(make-struct-field-accessor -ref_67 1 'lifts)" +"(make-struct-field-accessor -ref_67 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:_75 make-_75 ?_75 -ref_75 -set!_75)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38097,12 +37679,12 @@ static const char *startup_source = " #f" " 'lifted-bind)))))" "(values" -" 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))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'ids)" +"(make-struct-field-accessor -ref_68 1 'keys)" +"(make-struct-field-accessor -ref_68 2 'rhs))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 convert5_0)" @@ -38350,7 +37932,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38366,12 +37948,12 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" 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?))))" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 'wrt-phase)" +"(make-struct-field-accessor -ref_69 1 'lifts)" +"(make-struct-field-accessor -ref_69 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))))" @@ -38416,7 +37998,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" +"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38432,12 +38014,12 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" 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))))" +" struct:_70" +" make-_70" +" ?_70" +"(make-struct-field-accessor -ref_70 0 'do-require)" +"(make-struct-field-accessor -ref_70 1 'wrt-phase)" +"(make-struct-field-accessor -ref_70 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)))))" @@ -38459,7 +38041,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:_78 make-_78 ?_78 -ref_78 -set!_78)" +"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38475,13 +38057,13 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" 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))))" +" struct:_71" +" make-_71" +" ?_71" +"(make-struct-field-accessor -ref_71 0 'wrt-phase)" +"(make-struct-field-accessor -ref_71 1 'provides)" +"(make-struct-field-accessor -ref_71 2 'end-as-expressions?)" +"(make-struct-field-accessor -ref_71 3 'ends))))" "(define-values" "(make-to-module-lift-context27.1)" "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" @@ -38553,7 +38135,7 @@ static const char *startup_source = "(1/prop:expansion-contexts expansion-contexts? expansion-contexts-ref)" "(make-struct-type-property" " 'expansion-contexts" -"(lambda(v_29 info_1)" +"(lambda(v_29 info_0)" "(begin" "(if(if(list? v_29)" "(let-values(((lst_79) v_29))" @@ -38562,14 +38144,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_101)" -"(lambda(result_77 lst_80)" +"(lambda(result_78 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" "(let-values(((s_2)(unsafe-car lst_80))((rest_37)(unsafe-cdr lst_80)))" -"(let-values(((result_64)" +"(let-values(((result_65)" "(let-values()" -"(let-values(((result_115)" +"(let-values(((result_116)" "(let-values()" "(let-values()" "(memq" @@ -38579,11 +38161,11 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_115)))))" -"(if(if(not((lambda x_75(not result_64)) s_2))(not #f) #f)" -"(for-loop_101 result_64 rest_37)" -" result_64)))" -" result_77)))))" +"(values result_116)))))" +"(if(if(not((lambda x_74(not result_65)) s_2))(not #f) #f)" +"(for-loop_101 result_65 rest_37)" +" result_65)))" +" result_78)))))" " for-loop_101)" " #t" " lst_79)))" @@ -38597,15 +38179,15 @@ static const char *startup_source = " v_29))))" "(define-values" "(not-in-this-expand-context?)" -"(lambda(t_46 ctx_12)" +"(lambda(t_45 ctx_12)" "(begin" -"(if(expansion-contexts? t_46)" -"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_46)))" +"(if(expansion-contexts? t_45)" +"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_45)))" " #f))))" "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_178 t_47 ctx_13)" +"(lambda(s_178 t_46 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_68)" @@ -38630,7 +38212,7 @@ static const char *startup_source = "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" "(if(if(equal? tmp_31 'module) #t(if(equal? tmp_31 'top-level) #t(equal? tmp_31 'definition-context)))" -"(let-values()(if(memq 'expression(expansion-contexts-ref t_47))(wrap_1 '#%expression)(fail_0)))" +"(let-values()(if(memq 'expression(expansion-contexts-ref t_46))(wrap_1 '#%expression)(fail_0)))" "(let-values()(fail_0))))))))))" "(define-values" "(struct:reference-record" @@ -38769,14 +38351,14 @@ static const char *startup_source = "(lambda(obs_0 key_80 . args_5)" "(begin" "(begin" -"(let-values(((c1_28)(hash-ref key->arity key_80 #f)))" -"(if c1_28" +"(let-values(((c1_27)(hash-ref key->arity key_80 #f)))" +"(if c1_27" "((lambda(arity_2)" "(if(let-values(((or-part_130)(eq? arity_2 'any)))" "(if or-part_130 or-part_130(eqv?(length args_5) arity_2)))" "(void)" " (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))" -" c1_28)" +" c1_27)" " (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" "(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" @@ -38904,7 +38486,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38920,20 +38502,20 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" 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))))" +" struct:_61" +" make-_61" +" ?_61" +"(make-struct-field-accessor -ref_61 0 's)" +"(make-struct-field-accessor -ref_61 1 'syms)" +"(make-struct-field-accessor -ref_61 2 'ids)" +"(make-struct-field-accessor -ref_61 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" " semi-parsed-begin-for-syntax?" " semi-parsed-begin-for-syntax-s" " semi-parsed-begin-for-syntax-body)" -"(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38949,11 +38531,11 @@ static const char *startup_source = " #f" " 'semi-parsed-begin-for-syntax)))))" "(values" -" struct:_10" -" make-_10" -" ?_10" -"(make-struct-field-accessor -ref_10 0 's)" -"(make-struct-field-accessor -ref_10 1 'body))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 's)" +"(make-struct-field-accessor -ref_35 1 'body))))" "(define-values(extract-syntax)(lambda(s_191)(begin(if(expanded+parsed? s_191)(expanded+parsed-s s_191) s_191))))" "(define-values" "(parsed-only)" @@ -39203,14 +38785,14 @@ static const char *startup_source = "(if(not binding_18)" "(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(((t_47 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding138_0) binding_18)" "((ctx139_0) ctx_15)" "((id140_0) id_61)" "((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)" +"(let-values(((t130_0) t_47)" "((insp-of-t131_0) insp-of-t_0)" "((s132_0) s_413)" "((id133_0) id_61)" @@ -39286,7 +38868,7 @@ static const char *startup_source = "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" "(expand-implicit '#%app(substitute-alternate-id s_84 alternate-id_2) ctx_16 id_62)))" "(let-values()" -"(let-values(((t_49 primitive?_3 insp-of-t_1 protected?_4)" +"(let-values(((t_48 primitive?_3 insp-of-t_1 protected?_4)" "(let-values(((binding147_0) binding_19)" "((ctx148_0) ctx_16)" "((id149_0) id_62)" @@ -39294,7 +38876,7 @@ static const char *startup_source = "(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)" +"(if(variable? t_48)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" @@ -39304,7 +38886,7 @@ static const char *startup_source = " ctx_16" " id_62)))" "(let-values()" -"(let-values(((t152_0) t_49)" +"(let-values(((t152_0) t_48)" "((insp-of-t153_0) insp-of-t_1)" "((s154_0) s_84)" "((id155_0) id_62)" @@ -39372,21 +38954,21 @@ static const char *startup_source = "(if(eq? b_80 'ambiguous)" "(let-values()(raise-ambiguous-error id_63 ctx_17))" "(let-values()" -"(let-values(((t_50 primitive?_4 insp-of-t_2 protected?_5)" +"(let-values(((t_49 primitive?_4 insp-of-t_2 protected?_5)" "(if b_80" "(let-values(((b165_0) b_80)((ctx166_0) ctx_17)((id167_0) id_63))" "(lookup62.1 #f #f b165_0 ctx166_0 id167_0))" "(values #f #f #f #f))))" -"(if(transformer? t_50)" +"(if(transformer? t_49)" "(let-values()" "(let-values(((fail-non-transformer_2)" -"(if(1/rename-transformer? t_50)" +"(if(1/rename-transformer? t_49)" "(lambda()" "(begin" " 'fail-non-transformer" "(raise-syntax-implicit-error s_52 sym_69 trigger-id_1 ctx_17)))" " #f)))" -"(let-values(((t168_0) t_50)" +"(let-values(((t168_0) t_49)" "((insp-of-t169_0) insp-of-t_2)" "((temp170_1)(make-explicit ctx_17 sym_69 s_52 disarmed-s_1))" "((id171_1) id_63)" @@ -39401,17 +38983,17 @@ static const char *startup_source = " id171_1" " ctx172_0" " b173_0))))" -"(if(core-form? t_50)" +"(if(core-form? t_49)" "(let-values()" "(if(if(eq? sym_69 '#%top)" -"(if(eq?(core-form-name t_50) '#%top)" +"(if(eq?(core-form-name t_49) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_50 s_52 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_49 s_52 ctx_17))" "(let-values()" "(dispatch-core-form" -" t_50" +" t_49" "(make-explicit ctx_17 sym_69 s_52 disarmed-s_1)" " ctx_17))))" "(let-values()" @@ -39499,7 +39081,7 @@ static const char *startup_source = "(lambda(fail-non-transformer20_0 t22_0 insp-of-t23_0 s24_1 id25_1 ctx26_0 binding27_1 primitive?28_0 protected?29_0)" "(begin" " 'dispatch30" -"(let-values(((t_51) t22_0))" +"(let-values(((t_50) t22_0))" "(let-values(((insp-of-t_3) insp-of-t23_0))" "(let-values(((s_415) s24_1))" "(let-values(((id_64) id25_1))" @@ -39509,11 +39091,11 @@ static const char *startup_source = "(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_415 ctx_20))" -"(if(transformer? t_51)" +"(if(core-form? t_50)" +"(let-values()(dispatch-core-form t_50 s_415 ctx_20))" +"(if(transformer? t_50)" "(let-values()" -"(let-values(((t179_0) t_51)" +"(let-values(((t179_0) t_50)" "((insp-of-t180_0) insp-of-t_3)" "((s181_0) s_415)" "((id182_0) id_64)" @@ -39528,13 +39110,13 @@ static const char *startup_source = " id182_0" " ctx183_0" " binding184_0)))" -"(if(variable? t_51)" +"(if(variable? t_50)" "(let-values()" -"(dispatch-variable t_51 s_415 id_64 ctx_20 binding_20 primitive?_5 protected?_6))" +"(dispatch-variable t_50 s_415 id_64 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_416 ctx_21)" +"(lambda(t_51 s_416 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" @@ -39551,7 +39133,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_416)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_52) s_416 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_51) s_416 ctx_21)))" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_21)))" "(if obs_13" @@ -39562,10 +39144,10 @@ 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_416 ctx_21)))))))" +"(let-values()((core-form-expander t_51) s_416 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_53 s_321 ctx_22)" +"(lambda(t_52 s_321 ctx_22)" "(begin" "(let-values((()" "(begin" @@ -39574,7 +39156,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_321)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_53) s_321 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_52) s_321 ctx_22 #t)))" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" @@ -39590,7 +39172,7 @@ static const char *startup_source = "(lambda(fail-non-transformer33_0 t35_0 insp-of-t36_0 s37_0 id38_0 ctx39_0 binding40_0)" "(begin" " 'dispatch-transformer41" -"(let-values(((t_54) t35_0))" +"(let-values(((t_53) t35_0))" "(let-values(((insp-of-t_4) insp-of-t36_0))" "(let-values(((s_417) s37_0))" "(let-values(((id_65) id38_0))" @@ -39598,7 +39180,7 @@ static const char *startup_source = "(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)" +"(if(not-in-this-expand-context? t_53 ctx_23)" "(let-values()" "(let-values((()" "(begin" @@ -39611,7 +39193,7 @@ static const char *startup_source = "(let-values(((adj-s_0)" "(avoid-current-expand-context" "(substitute-alternate-id s_417 id_65)" -" t_54" +" t_53" " ctx_23)))" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" @@ -39621,7 +39203,7 @@ static const char *startup_source = "(let-values(((adj-s186_0) adj-s_0)((ctx187_0) ctx_23))" "(expand9.1 #f #f #f adj-s186_0 ctx187_0))))))" "(if(if(expand-context-should-not-encounter-macros? ctx_23)" -"(not(1/rename-transformer? t_54))" +"(not(1/rename-transformer? t_53))" " #f)" "(let-values()" "(raise-syntax-error$1" @@ -39635,7 +39217,7 @@ static const char *startup_source = "(if obs_18" "(let-values()" "(if(if(expand-context-only-immediate? ctx_23)" -"(not(1/rename-transformer? t_54))" +"(not(1/rename-transformer? t_53))" " #f)" "(let-values()" "(begin" @@ -39645,9 +39227,9 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" -"(if(1/rename-transformer? t_54)" +"(if(1/rename-transformer? t_53)" "(values s_417 ctx_23)" -"(let-values(((t188_0) t_54)" +"(let-values(((t188_0) t_53)" "((insp-of-t189_0) insp-of-t_4)" "((s190_0) s_417)" "((id191_0) id_65)" @@ -39666,7 +39248,7 @@ static const char *startup_source = "(if obs_19" "(let-values()" "(if(if(expand-context-only-immediate? ctx_23)" -"(not(1/rename-transformer? t_54))" +"(not(1/rename-transformer? t_53))" " #f)" "(let-values()(call-expand-observe obs_19 'return exp-s_1))" "(void)))" @@ -39677,10 +39259,10 @@ static const char *startup_source = "(let-values(((exp-s194_0) exp-s_1)" "((re-ctx195_0) re-ctx_0)" "((temp196_0)" -"(if(1/rename-transformer? t_54)" +"(if(1/rename-transformer? t_53)" "(syntax-track-origin$1" "(transfer-srcloc" -"(rename-transformer-target-in-context t_54 ctx_23)" +"(rename-transformer-target-in-context t_53 ctx_23)" " id_65)" " id_65" " id_65)" @@ -39688,9 +39270,9 @@ static const char *startup_source = "((temp197_0)" "(let-values(((or-part_268)" "(expand-context-only-immediate? ctx_23)))" -"(if or-part_268 or-part_268(1/rename-transformer? t_54))))" +"(if or-part_268 or-part_268(1/rename-transformer? t_53))))" "((temp198_0)" -"(if(1/rename-transformer? t_54) fail-non-transformer_4 #f)))" +"(if(1/rename-transformer? t_53) fail-non-transformer_4 #f)))" "(expand9.1" " temp196_0" " temp198_0" @@ -39699,7 +39281,7 @@ static const char *startup_source = " re-ctx195_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_55 s_114 id_66 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_54 s_114 id_66 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" @@ -39718,7 +39300,7 @@ static const char *startup_source = "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" "(let-values(((id199_0) id_66)" -"((t200_0) t_55)" +"((t200_0) t_54)" "((temp201_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops ctx_24)" @@ -39745,7 +39327,7 @@ static const char *startup_source = "(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_1 id49_1 ctx50_0 binding51_0)" "(begin" " 'apply-transformer52" -"(let-values(((t_56) t46_0))" +"(let-values(((t_55) t46_0))" "(let-values(((insp-of-t_5) insp-of-t47_0))" "(let-values(((s_122) s48_1))" "(let-values(((id_33) id49_1))" @@ -39771,7 +39353,7 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" -" t_56" +" t_55" " cleaned-s_0" " ctx_25" " insp-of-t_5" @@ -39810,7 +39392,7 @@ static const char *startup_source = " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_57 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" +"(lambda(t_56 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" "(begin" "(let-values((()" "(begin" @@ -39837,8 +39419,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_189) accum-ctx_0))" -"(let-values(((the-struct_57) v_189))" +"(let-values(((v_181) accum-ctx_0))" +"(let-values(((the-struct_57) v_181))" "(if(expand-context/outer? the-struct_57)" "(let-values(((current-introduction-scopes202_0)(list intro-scope_1))" "((current-use-scopes203_0) use-scopes_1)" @@ -39846,7 +39428,7 @@ static const char *startup_source = "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner205_0)(root-expand-context/outer-inner v_189)))" +"((inner205_0)(root-expand-context/outer-inner v_181)))" "(expand-context/outer1.1" " inner205_0" "(root-expand-context/outer-post-expansion the-struct_57)" @@ -39879,7 +39461,7 @@ static const char *startup_source = " insp-of-t_6)" "(let-values()" "(call-with-continuation-barrier" -"(lambda()((transformer->procedure t_57) cleaned-s_1)))))))" +"(lambda()((transformer->procedure t_56) cleaned-s_1)))))))" "(begin" "(let-values(((obs_26)(expand-context-observer ctx_26)))" "(if obs_26" @@ -39924,11 +39506,11 @@ static const char *startup_source = "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_190) ctx_29))" -"(let-values(((the-struct_58) v_190))" +"(let-values(((v_182) ctx_29))" +"(let-values(((the-struct_58) v_182))" "(if(expand-context/outer? the-struct_58)" "(let-values(((scopes206_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner207_0)(root-expand-context/outer-inner v_190)))" +"((inner207_0)(root-expand-context/outer-inner v_182)))" "(expand-context/outer1.1" " inner207_0" "(root-expand-context/outer-post-expansion the-struct_58)" @@ -40011,7 +39593,7 @@ static const char *startup_source = "(let-values(((context_6)(expand-context-context ctx_31)))" "(let-values(((phase_105)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_95)" +"((letrec-values(((loop_93)" "(lambda(s_418 always-wrap?_1 ctx_32)" "(begin" " 'loop" @@ -40029,13 +39611,13 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp217_1 temp216_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_191) ctx_32))" -"(let-values(((the-struct_59) v_191))" +"(let-values(((v_183) ctx_32))" +"(let-values(((the-struct_59) v_183))" "(if(expand-context/outer? the-struct_59)" "(let-values(((inner218_0)" "(let-values(((the-struct_60)" "(root-expand-context/outer-inner" -" v_191)))" +" v_183)))" "(if(expand-context/inner?" " the-struct_60)" "(let-values(((lift-key219_0)" @@ -40175,7 +39757,7 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_95 rhs_15 #f rhs-ctx_0)))))" +"(loop_93 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts225_0) lifts_6)" @@ -40213,8 +39795,8 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_95 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_95)" +"(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_93)" " s_360" " always-wrap?_0" " ctx_31))))))))))))))" @@ -40264,8 +39846,8 @@ static const char *startup_source = "(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_106)))" "(begin" "(namespace-visit-available-modules! ns_74 phase_106)" -"(let-values(((v_192) ctx_34))" -"(let-values(((the-struct_61) v_192))" +"(let-values(((v_184) ctx_34))" +"(let-values(((the-struct_61) v_184))" "(if(expand-context/outer? the-struct_61)" "(let-values(((context237_0) context_8)" "((scopes238_0) null)" @@ -40275,7 +39857,7 @@ static const char *startup_source = "((def-ctx-scopes241_0) #f)" "((post-expansion242_0) #f)" "((inner243_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_192)))" +"(let-values(((the-struct_62)(root-expand-context/outer-inner v_184)))" "(if(expand-context/inner? the-struct_62)" "(let-values(((phase244_0) phase_106)" "((namespace245_0) ns_74)" @@ -40388,13 +39970,13 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_49 phase_108 ns_75 ctx_37)" +"(lambda(who_18 ids_21 p_40 phase_108 ns_75 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_40 ns_75(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_49" +" p_40" "(let-values(((ns256_0) ns_75)((phase257_0) phase_108))" "(make-compile-context14.1 #f unsafe-undefined #f ns256_0 phase257_0 unsafe-undefined))))))" "(let-values(((vals_4)" @@ -40413,7 +39995,7 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_75)" -"(direct-eval p_49 ns_75(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_40 ns_75(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" @@ -40480,7 +40062,7 @@ static const char *startup_source = "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_96)" +"(if((letrec-values(((loop_94)" "(lambda(ids_23)" "(begin" " 'loop" @@ -40488,10 +40070,10 @@ static const char *startup_source = "(if or-part_198" " or-part_198" "(if(pair? ids_23)" -"(let-values(((or-part_199)(loop_96(car ids_23))))" -"(if or-part_199 or-part_199(loop_96(cdr ids_23))))" +"(let-values(((or-part_199)(loop_94(car ids_23))))" +"(if or-part_199 or-part_199(loop_94(cdr ids_23))))" " #f)))))))" -" loop_96)" +" loop_94)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -40518,8 +40100,8 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_193) rhs-ctx_1))" -"(let-values(((the-struct_63) v_193))" +"(let-values(((v_185) rhs-ctx_1))" +"(let-values(((the-struct_63) v_185))" "(if(expand-context/outer? the-struct_63)" "(let-values(((env258_0)" "(let-values(((lst_283) ids_24)((lst_284) keys_4))" @@ -40574,7 +40156,7 @@ static const char *startup_source = "(expand-context-env rhs-ctx_1)" " lst_283" " lst_284))))" -"((inner259_0)(root-expand-context/outer-inner v_193)))" +"((inner259_0)(root-expand-context/outer-inner v_185)))" "(expand-context/outer1.1" " inner259_0" "(root-expand-context/outer-post-expansion the-struct_63)" @@ -40600,12 +40182,12 @@ static const char *startup_source = " ctx_40)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_58 ctx_41)" +"(lambda(t_57 ctx_41)" "(begin" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" -"(let-values()(1/rename-transformer-target t_58))))))" +"(let-values()(1/rename-transformer-target t_57))))))" "(define-values" "(maybe-install-free=id-in-context!)" "(lambda(val_69 id_69 phase_109 ctx_42)" @@ -40741,7 +40323,7 @@ static const char *startup_source = " internal-definition-context-add-scope?" " internal-definition-context-env-mixins" " internal-definition-context-parent-ctx)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40757,28 +40339,28 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" 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))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'frame-id)" +"(make-struct-field-accessor -ref_32 1 'scope)" +"(make-struct-field-accessor -ref_32 2 'add-scope?)" +"(make-struct-field-accessor -ref_32 3 'env-mixins)" +"(make-struct-field-accessor -ref_32 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:_79 make-_79 ?_79 -ref_79 -set!_79)" +"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" "(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:_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))))" +" struct:_72" +" make-_72" +" ?_72" +"(make-struct-field-accessor -ref_72 0 'id)" +"(make-struct-field-accessor -ref_72 1 'sym)" +"(make-struct-field-accessor -ref_72 2 'value)" +"(make-struct-field-accessor -ref_72 3 'cache))))" "(define-values" "(1/syntax-local-make-definition-context)" "(let-values(((syntax-local-make-definition-context5_0)" @@ -41124,17 +40706,17 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp62_2)" -"(let-values(((v_77)" +"(let-values(((v_66)" " ctx_44))" "(let-values(((the-struct_65)" -" v_77))" +" v_66))" "(if(expand-context/outer?" " the-struct_65)" "(let-values(((env65_0)" " tmp-env_0)" "((inner66_0)" "(root-expand-context/outer-inner" -" v_77)))" +" v_66)))" "(expand-context/outer1.1" " inner66_0" "(root-expand-context/outer-post-expansion" @@ -41442,7 +41024,7 @@ static const char *startup_source = " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_8)))" -"(let-values(((x_76)" +"(let-values(((x_75)" "(let-values(((a_49) intdef_8))" "(if(list? a_49)" "(let-values()(reverse$1 a_49))" @@ -41468,17 +41050,17 @@ static const char *startup_source = " id_72)))))" " for-loop_209)" " id_71" -" x_76)))))))" +" x_75)))))))" "(define-values" "(intdefs?)" -"(lambda(x_77)" +"(lambda(x_76)" "(begin" -"(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))))))" +"(let-values(((or-part_277)(1/internal-definition-context? x_76)))" +"(if or-part_277 or-part_277(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_78)(begin(let-values(((or-part_278)(not x_78)))(if or-part_278 or-part_278(intdefs? x_78))))))" +"(lambda(x_77)(begin(let-values(((or-part_278)(not x_77)))(if or-part_278 or-part_278(intdefs? x_77))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41486,7 +41068,7 @@ static const char *startup_source = "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_79)" +"(let-values(((x_78)" "(let-values(((a_51) intdefs_0))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -41516,7 +41098,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_10))))" -"((letrec-values(((loop_97)" +"((letrec-values(((loop_95)" "(lambda(env_16" " env-mixins_2)" "(begin" @@ -41537,7 +41119,7 @@ static const char *startup_source = " or-part_279" "(let-values(((new-env_0)" "(env-extend" -"(loop_97" +"(loop_95" " env_16" "(cdr" " env-mixins_2))" @@ -41552,7 +41134,7 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_97)" +" loop_95)" " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" @@ -41560,7 +41142,7 @@ static const char *startup_source = " env_12)))))" " for-loop_256)" " env_11" -" x_79))))))" +" x_78))))))" "(define-values" "(add-intdef-scopes24.1)" "(lambda(action19_0 always?18_0 s22_0 intdefs23_0)" @@ -41571,7 +41153,7 @@ 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_80)" +"(let-values(((x_79)" "(let-values(((a_53) intdefs_1))" "(if(list? a_53)" "(let-values()(reverse$1 a_53))" @@ -41604,7 +41186,7 @@ static const char *startup_source = " s_71)))))" " for-loop_257)" " s_426" -" x_80)))))))))))" +" x_79)))))))))))" "(define-values" "(make-local-expand-context44.1)" "(lambda(context27_0" @@ -41643,8 +41225,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_194) ctx_45))" -"(let-values(((the-struct_66) v_194))" +"(let-values(((v_186) ctx_45))" +"(let-values(((the-struct_66) v_186))" "(if(expand-context/outer? the-struct_66)" "(let-values(((context71_0) context_9)" "((env72_0)" @@ -41660,7 +41242,7 @@ static const char *startup_source = "(if or-part_284 or-part_284(box null)))" " #f))" "((frame-id74_0)" -"(let-values(((x_81)" +"(let-values(((x_80)" "(let-values(((a_55) intdefs_2))" "(if(list? a_55)" "(let-values()(reverse$1 a_55))" @@ -41709,7 +41291,7 @@ static const char *startup_source = " frame-id_9)))))" " for-loop_59)" "(root-expand-context-frame-id ctx_45)" -" x_81))))" +" x_80))))" "((post-expansion75_0)" "(let-values(((pe_2)" "(if same-kind?_0" @@ -41748,7 +41330,7 @@ static const char *startup_source = "(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner80_0)" "(let-values(((the-struct_67)" -"(root-expand-context/outer-inner v_194)))" +"(root-expand-context/outer-inner v_186)))" "(if(expand-context/inner? the-struct_67)" "(let-values(((to-parsed?83_0)" "(if to-parsed-ok?_0" @@ -42095,13 +41677,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_82)" -"(let-values(((or-part_210)(not x_82)))" +"(if((lambda(x_81)" +"(let-values(((or-part_210)(not x_81)))" "(if or-part_210" " or-part_210" -"((lambda(p_50)" -"(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" -" x_82))))" +"((lambda(p_41)" +"(if(procedure? p_41)(procedure-arity-includes? p_41 0) #f))" +" x_81))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -42121,14 +41703,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_195) current-ctx_0))" -"(let-values(((the-struct_68) v_195))" +"(let-values(((v_187) current-ctx_0))" +"(let-values(((the-struct_68) v_187))" "(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_195)))" +"((inner83_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" " inner83_0" "(root-expand-context/outer-post-expansion the-struct_68)" @@ -42159,7 +41741,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((phase_73)(expand-context-phase ctx_11)))" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_96)" "(lambda(id_62)" "(begin" " 'loop" @@ -42258,12 +41840,12 @@ static const char *startup_source = "(values" " v_40" "(1/rename-transformer-target v_40))" -"(loop_98" +"(loop_96" "(1/rename-transformer-target v_40))))" "(if immediate?_1" "(let-values()(values v_40 #f))" "(let-values() v_40)))))))))))))))" -" loop_98)" +" loop_96)" "(flip-introduction-scopes id_78 ctx_11))))))))))))))))))" "(define-values" "(1/syntax-local-value)" @@ -42312,7 +41894,7 @@ static const char *startup_source = "((id_85 failure-thunk23_1)(syntax-local-value/immediate26_0 id_85 failure-thunk23_1 #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_20 n_29 s_34)" +"(lambda(who_20 n_28 s_34)" "(begin" "(let-values((()" "(begin" @@ -42320,9 +41902,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? n_29)" +"(if(exact-nonnegative-integer? n_28)" "(void)" -" (let-values () (raise-argument-error who_20 \"exact-nonnegative-integer?\" n_29)))" +" (let-values () (raise-argument-error who_20 \"exact-nonnegative-integer?\" n_28)))" "(values))))" "(let-values(((ctx_55)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))" "(let-values(((lifts_8)(expand-context-lifts ctx_55)))" @@ -42333,7 +41915,7 @@ static const char *startup_source = "(let-values(((counter_4)(root-expand-context-counter ctx_55)))" "(let-values(((ids_27)" "(reverse$1" -"(let-values(((start_39) 0)((end_29) n_29)((inc_23) 1))" +"(let-values(((start_39) 0)((end_29) n_28)((inc_23) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -42358,7 +41940,7 @@ static const char *startup_source = "(unbox" " counter_4)))" "(values))))" -"(let-values(((name_61)" +"(let-values(((name_60)" "(string->unreadable-symbol" "(format" " \"lifted/~a\"" @@ -42367,7 +41949,7 @@ static const char *startup_source = "(add-scope" "(datum->syntax$1" " #f" -" name_61)" +" name_60)" "(new-scope" " 'macro)))))" " fold-var_255))))" @@ -42399,10 +41981,10 @@ static const char *startup_source = "(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_36)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_30 s_63)" +"(lambda(n_29 s_63)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_30 s_63))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_63))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -42806,15 +42388,15 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_297)" -"(let-values(((r_43)(unsafe-car lst_297))((rest_170)(unsafe-cdr lst_297)))" +"(let-values(((r_40)(unsafe-car lst_297))((rest_170)(unsafe-cdr lst_297)))" "(let-values(((ht_138)" "(let-values(((ht_139) ht_137))" "(let-values(((ht_140)" "(let-values()" "(hash-update" " ht_139" -"(required-phase r_43)" -"(lambda(l_71)(cons(required-id r_43) l_71))" +"(required-phase r_40)" +"(lambda(l_71)(cons(required-id r_40) l_71))" " null))))" "(values ht_140)))))" "(if(not #f)(for-loop_139 ht_138 rest_170) ht_138)))" @@ -42957,7 +42539,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_163" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_163)))" +"(let-values(((name_61 kind_8)(hash-iterate-key+value ht_143 i_163)))" "(let-values(((fold-var_269)" "(let-values(((fold-var_270) fold-var_268))" "(if(eq? kind_8 'module)" @@ -42965,7 +42547,7 @@ static const char *startup_source = "(let-values(((fold-var_272)" "(let-values()" "(cons" -"(let-values() name_62)" +"(let-values() name_61)" " fold-var_271))))" "(values fold-var_272)))" " fold-var_270))))" @@ -43022,34 +42604,34 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_72)" +"(lambda(v_61)" "(begin" -"(let-values(((or-part_26)(if(list? v_72)(if(=(length v_72) 5)(srcloc-vector?(list->vector v_72)) #f) #f)))" -"(if or-part_26 or-part_26(if(vector? v_72)(if(=(vector-length v_72) 5)(srcloc-vector? v_72) #f) #f))))))" +"(let-values(((or-part_26)(if(list? v_61)(if(=(length v_61) 5)(srcloc-vector?(list->vector v_61)) #f) #f)))" +"(if or-part_26 or-part_26(if(vector? v_61)(if(=(vector-length v_61) 5)(srcloc-vector? v_61) #f) #f))))))" "(define-values" "(srcloc-vector?)" -"(lambda(v_73)" +"(lambda(v_62)" "(begin" -"(if(let-values(((or-part_292)(not(vector-ref v_73 1))))" -"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_73 1))))" -"(if(let-values(((or-part_27)(not(vector-ref v_73 2))))" -"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_73 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_73 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_73 3))))" -"(let-values(((or-part_158)(not(vector-ref v_73 4))))" -"(if or-part_158 or-part_158(exact-nonnegative-integer?(vector-ref v_73 4))))" +"(if(let-values(((or-part_292)(not(vector-ref v_62 1))))" +"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_62 1))))" +"(if(let-values(((or-part_27)(not(vector-ref v_62 2))))" +"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_62 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_62 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_62 3))))" +"(let-values(((or-part_158)(not(vector-ref v_62 4))))" +"(if or-part_158 or-part_158(exact-nonnegative-integer?(vector-ref v_62 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_138)" +"(lambda(v_129)" "(begin" -"(if(srcloc? v_138)" +"(if(srcloc? v_129)" "(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_129))" "(syntax1.1" "(syntax-content the-struct_35)" "(syntax-scopes the-struct_35)" @@ -43060,19 +42642,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_129)" +"(let-values()(to-srcloc-stx(list->vector v_129)))" +"(if(vector? v_129)" "(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_129 0)" +"(vector-ref v_129 1)" +"(vector-ref v_129 2)" +"(vector-ref v_129 3)" +"(vector-ref v_129 4))))" "(syntax1.1" "(syntax-content the-struct_36)" "(syntax-scopes the-struct_36)" @@ -43083,7 +42665,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_129)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -43602,7 +43184,7 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_99)" +"((letrec-values(((loop_97)" "(lambda(mpi_45" " phase_132" " attach-instances?_1" @@ -43663,7 +43245,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(loop_99" +"(loop_97" " mpi_45" " 0" " attach-instances?_1" @@ -43877,7 +43459,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_99" +"(loop_97" "(module-path-index-shift" " req_5" "(module-self" @@ -43936,7 +43518,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_99" +"(loop_97" "(1/module-path-index-join" "(list" " 'submod" @@ -43960,7 +43542,7 @@ static const char *startup_source = "(if(module-supermodule-name" " m_20)" "(let-values()" -"(loop_99" +"(loop_97" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -43970,7 +43552,7 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_99)" +" loop_97)" "(1/module-path-index-join" "(if(1/resolved-module-path? mod-path_16)" "(resolved-module-path->module-path mod-path_16)" @@ -44569,7 +44151,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_196" +"(let-values(((v_188" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44593,7 +44175,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_196)" +"(if(variable? v_188)" "(void)" "(let-values()" "(escape_0" @@ -44921,7 +44503,7 @@ static const char *startup_source = " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)" +"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" "(let-values()" "(let-values()" "(make-struct-type" @@ -44937,18 +44519,18 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_80" -" make-_80" -" ?_80" -"(make-struct-field-accessor -ref_80 0 'seq)" -"(make-struct-field-accessor -ref_80 1 'last))))" +" struct:_73" +" make-_73" +" ?_73" +"(make-struct-field-accessor -ref_73 0 'seq)" +"(make-struct-field-accessor -ref_73 1 'last))))" "(define-values" "(compile-single$1)" "(lambda(s_452 ns_97 expand_2 serializable?_7 to-source?_5)" "(begin" " 'compile-single" "(let-values(((exp-s_4)(expand_2 s_452 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_100)" +"((letrec-values(((loop_98)" "(lambda(exp-s_5)" "(begin" " 'loop" @@ -44991,7 +44573,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_300)" -"(let-values(((e_74)" +"(let-values(((e_73)" "(unsafe-car lst_300))" "((rest_88)" "(unsafe-cdr lst_300)))" @@ -45002,8 +44584,8 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_100" -" e_74))" +"(loop_98" +" e_73))" " fold-var_167))))" "(values" " fold-var_168)))))" @@ -45030,7 +44612,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_1)))))))))" -" loop_100)" +" loop_98)" " exp-s_4)))))" "(define-values" "(expand$1)" @@ -45192,11 +44774,11 @@ static const char *startup_source = "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" " s_458" -"(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))" +"(let-values(((v_119)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" +"(let-values(((the-struct_69) v_119))" "(if(expand-context/outer? the-struct_69)" "(let-values(((inner122_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_128)))" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_119)))" "(if(expand-context/inner? the-struct_70)" "(let-values(((just-once?123_0) #t))" "(expand-context/inner2.1" @@ -45319,18 +44901,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_134)(namespace-phase ns_106)))" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_99)" "(lambda(s_462 phase_135 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_197) ctx_69))" -"(let-values(((the-struct_71) v_197))" +"(let-values(((v_189) ctx_69))" +"(let-values(((the-struct_71) v_189))" "(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_197)))" +" v_189)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase135_1)" @@ -45443,15 +45025,15 @@ static const char *startup_source = "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" " s_462" -"(let-values(((v_198) tl-ctx_0))" -"(let-values(((the-struct_73) v_198))" +"(let-values(((v_190) tl-ctx_0))" +"(let-values(((the-struct_73) v_190))" "(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_198)))" +" v_190)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase141_0)" @@ -45579,7 +45161,7 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_3" -"(loop_101" +"(loop_99" " new-s_3" " phase_135" " ns_107" @@ -45690,7 +45272,7 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_101" +"(loop_99" "(car es_2)" " phase_135" " ns_107" @@ -45711,14 +45293,14 @@ static const char *startup_source = "(values))))" "(let-values(((a_67)" "(if combine_0" -"(loop_101" +"(loop_99" "(car" " es_2)" " phase_135" " ns_107" " #f)" "(begin" -"(loop_101" +"(loop_99" "(car" " es_2)" " phase_135" @@ -45901,7 +45483,7 @@ static const char *startup_source = " obs_54" " 'next)))" "(void)))" -"(loop_101" +"(loop_99" " s_468" " next-phase_0" " next-ns_0" @@ -45951,7 +45533,7 @@ static const char *startup_source = " exp-s_7" " ns_107" " as-tail?_7))))))))))))))))))" -" loop_101)" +" loop_99)" " s_216" " phase_134" " ns_106" @@ -45962,8 +45544,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_469 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_469)(cons form-id_0 r_44) s_469 s_469) s_469))))" +"(lambda(form-id_0 s_469 r_41)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_469)(cons form-id_0 r_41) s_469 s_469) s_469))))" "(define-values" "(expand-capturing-lifts)" "(lambda(s_343 ctx_70)" @@ -45981,12 +45563,12 @@ static const char *startup_source = "(let-values(((exp-s_8)" "(let-values(((s155_0) s_343)" "((temp156_0)" -"(let-values(((v_199) ctx_70))" -"(let-values(((the-struct_75) v_199))" +"(let-values(((v_191) ctx_70))" +"(let-values(((the-struct_75) v_191))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_199)))" +"(root-expand-context/outer-inner v_191)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" @@ -46332,48 +45914,48 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_51)" +"(lambda(p_42)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) p_51)" +"(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 1) #f)) p_42)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_51)))" -" p_51))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_42)))" +" p_42))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_32)" +"(lambda(p_23)" "(begin" -"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_32)" +"(if((lambda(p_44)(if(procedure? p_44)(procedure-arity-includes? p_44 2) #f)) p_23)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_32)))" -" p_32))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_23)))" +" p_23))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_54)" +"(lambda(p_45)" "(begin" -"(if((lambda(p_37)(if(procedure? p_37)(procedure-arity-includes? p_37 2) #f)) p_54)" +"(if((lambda(p_28)(if(procedure? p_28)(procedure-arity-includes? p_28 2) #f)) p_45)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_54)))" -" p_54))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_45)))" +" p_45))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_46)" +"(lambda(p_37)" "(begin" -"(if((lambda(p_48)(if(procedure? p_48)(procedure-arity-includes? p_48 2) #f)) p_46)" +"(if((lambda(p_39)(if(procedure? p_39)(procedure-arity-includes? p_39 2) #f)) p_37)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_46)))" -" p_46))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_37)))" +" p_37))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -46401,30 +45983,30 @@ static const char *startup_source = "(if((lambda(l_75)" "(if(list? l_75)" "(andmap2" -"(lambda(p_55)" -"(let-values(((or-part_297)(not p_55)))" +"(lambda(p_46)" +"(let-values(((or-part_297)(not p_46)))" "(if or-part_297" " or-part_297" -"(let-values(((or-part_298)(complete-path-string? p_55)))" +"(let-values(((or-part_298)(complete-path-string? p_46)))" "(if or-part_298" " or-part_298" -"(if(hash? p_55)" -"(let-values(((ht_149) p_55))" +"(if(hash? p_46)" +"(let-values(((ht_149) p_46))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_149)))" "((letrec-values(((for-loop_268)" -"(lambda(result_116 i_166)" +"(lambda(result_117 i_166)" "(begin" " 'for-loop" "(if i_166" "(let-values(((k_36 v_3)" "(hash-iterate-key+value ht_149 i_166)))" -"(let-values(((result_117)" -"(let-values()" "(let-values(((result_118)" "(let-values()" +"(let-values(((result_119)" +"(let-values()" "(let-values()" "(if(let-values(((or-part_77)" "(not" @@ -46442,15 +46024,15 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_118)))))" -"(if(if(not((lambda x_83(not result_117)) k_36 v_3))" +"(values result_119)))))" +"(if(if(not((lambda x_82(not result_118)) k_36 v_3))" "(not #f)" " #f)" "(for-loop_268" -" result_117" +" result_118" "(hash-iterate-next ht_149 i_166))" -" result_117)))" -" result_116)))))" +" result_118)))" +" result_117)))))" " for-loop_268)" " #t" "(hash-iterate-first ht_149))))" @@ -46487,7 +46069,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_167" -"(let-values(((k_37 v_200)(hash-iterate-key+value ht_150 i_167)))" +"(let-values(((k_37 v_192)(hash-iterate-key+value ht_150 i_167)))" "(let-values(((table_209)" "(let-values(((table_181) table_208))" "(let-values(((table_210)" @@ -46496,7 +46078,7 @@ static const char *startup_source = "(let-values()" "(values" " k_37" -"(to-path v_200)))))" +"(to-path v_192)))))" "(hash-set" " table_181" " key_82" @@ -46534,8 +46116,8 @@ static const char *startup_source = "(if((lambda(l_78)" "(if(list? l_78)" "(andmap2" -"(lambda(p_56)" -"(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))" +"(lambda(p_47)" +"(let-values(((or-part_8)(path-string? p_47)))(if or-part_8 or-part_8(eq? p_47 'same))))" " l_78)" " #f))" " l_77)" @@ -46549,22 +46131,22 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_201)" +"(lambda(v_193)" "(begin" -"(if((lambda(v_70)" -"(let-values(((or-part_32)(eq? v_70 'modify-seconds)))" -"(if or-part_32 or-part_32(eq? v_70 'exists))))" -" v_201)" +"(if((lambda(v_59)" +"(let-values(((or-part_32)(eq? v_59 'modify-seconds)))" +"(if or-part_32 or-part_32(eq? v_59 'exists))))" +" v_193)" "(void)" -" (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_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))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_193)))" +" v_193))))))" +"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_71)(if v_71 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_194)(if v_194 #t #f))))" +"(define-values(complete-path-string?)(lambda(p_48)(begin(if(path-string? p_48)(complete-path? p_48) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_58)(begin 'relative-path-string?(if(path-string? p_58)(relative-path? p_58) #f))))" -"(define-values(to-path)(lambda(p_59)(begin(if(string? p_59)(string->path p_59) p_59))))" +"(lambda(p_49)(begin 'relative-path-string?(if(path-string? p_49)(relative-path? p_49) #f))))" +"(define-values(to-path)(lambda(p_50)(begin(if(string? p_50)(string->path p_50) p_50))))" "(define-values" "(eval$1)" "(let-values()" @@ -46924,13 +46506,13 @@ static const char *startup_source = " mpi40_1" " phase41_2))" "(values))))" -"(let-values(((t_59)" +"(let-values(((t_58)" "(namespace-get-transformer" " m-ns_16" " ex-phase_0" " ex-sym_2" " missing_1)))" -"(if(eq? t_59 missing_1)" +"(if(eq? t_58 missing_1)" "(let-values()(fail_1))" "(let-values()" "(let-values(((tmp-ns_0)" @@ -47024,8 +46606,8 @@ static const char *startup_source = "(begin" " (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_60)(->path s_0)))" -"(call-with-current-load-relative-directory p_60(lambda()((1/current-load) p_60 #f))))))))))" +"(let-values(((p_51)(->path s_0)))" +"(call-with-current-load-relative-directory p_51(lambda()((1/current-load) p_51 #f))))))))))" "(define-values" "(1/load-extension)" "(lambda(s_1)" @@ -47039,20 +46621,20 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))" "(values))))" -"(let-values(((p_61)(->path s_1)))" -"(call-with-current-load-relative-directory p_61(lambda()((current-load-extension) p_61 #f))))))))))" +"(let-values(((p_52)(->path s_1)))" +"(call-with-current-load-relative-directory p_52(lambda()((current-load-extension) p_52 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_32 thunk_6)" +"(lambda(p_23 thunk_5)" "(begin" -"(let-values(((base_18 name_63 dir?_2)(split-path p_32)))" +"(let-values(((base_18 name_62 dir?_2)(split-path p_23)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" "(if(eq? base_18 'relative)(current-directory)(path->complete-path base_18)))" -"(let-values()(thunk_6)))))))" +"(let-values()(thunk_5)))))))" "(define-values" "(1/load/use-compiled)" "(lambda(f_27)" @@ -47066,7 +46648,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_27)))" "(values))))" -"(let-values(((p_48)(->path f_27)))((1/current-load/use-compiled) p_48 #f))))))))" +"(let-values(((p_39)(->path f_27)))((1/current-load/use-compiled) p_39 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_41 end_31 str_24 as-predefined?_0)" @@ -47091,12 +46673,12 @@ static const char *startup_source = "(file-position(current-input-port) start_42)" "(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 'binary exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_170)))" -"((letrec-values(((loop_70)" +"(let-values(((p_53)(open-input-bytes s_170)))" +"((letrec-values(((loop_68)" "(lambda()" "(begin" " 'loop" -"(let-values(((e_75)" +"(let-values(((e_74)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -47109,8 +46691,8 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_62)))))" -"(if(eof-object? e_75)" +"(let-values()(1/read p_53)))))" +"(if(eof-object? e_74)" "(void)" "(let-values()" "(begin" @@ -47120,9 +46702,9 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " current-module-declare-as-predefined" " as-predefined?_0)" -"(let-values()((1/current-eval) e_75)))" -"(loop_70)))))))))" -" loop_70)))))))" +"(let-values()((1/current-eval) e_74)))" +"(loop_68)))))))))" +" loop_68)))))))" "(define-values(->path)(lambda(s_78)(begin(if(string? s_78)(string->path s_78) s_78))))" "(define-values" "(find-main-collects)" @@ -47144,11 +46726,11 @@ static const char *startup_source = "(path->complete-path" "(find-executable-path(find-system-path 'exec-file))" "(find-system-path 'orig-dir))))" -"(let-values(((base_19 name_64 dir?_3)(split-path exec_0)))" +"(let-values(((base_19 name_63 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_19)))))" "(let-values()" -"(let-values(((p_61)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_61(simplify-path p_61) #f))))))))" +"(let-values(((p_52)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_52(simplify-path p_52) #f))))))))" "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" @@ -47165,7 +46747,7 @@ static const char *startup_source = "(check-fail)" "(lambda(who_24 fail_2)" "(begin" -"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 1) #f)) fail_2)" +"(if((lambda(p_44)(if(procedure? p_44)(procedure-arity-includes? p_44 1) #f)) fail_2)" "(void)" " (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" @@ -47198,11 +46780,11 @@ static const char *startup_source = "(get-config-table)" "(lambda(d_34)" "(begin" -" (let-values (((p_63) (if d_34 (build-path d_34 \"config.rktd\") #f)))" +" (let-values (((p_54) (if d_34 (build-path d_34 \"config.rktd\") #f)))" "(let-values(((or-part_294)" -"(if p_63" -"(if(file-exists? p_63)" -"(let-values(((p7_1) p_63)" +"(if p_54" +"(if(file-exists? p_54)" +"(let-values(((p7_1) p_54)" "((temp8_1)" "(lambda()" "(begin" @@ -47227,13 +46809,13 @@ static const char *startup_source = "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_64)" +"(lambda(p_55)" "(begin" -"(if(complete-path? p_64)" -"(let-values() p_64)" +"(if(complete-path? p_55)" +"(let-values() p_55)" "(let-values()" "(path->complete-path" -" p_64" +" p_55" "(let-values(((or-part_72)(find-main-collects)))(if or-part_72 or-part_72(current-directory)))))))))" "(define-values" "(add-config-search)" @@ -47241,16 +46823,16 @@ static const char *startup_source = "(begin" "(let-values(((l_79)(hash-ref ht_70 key_83 #f)))" "(if l_79" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_100)" "(lambda(l_64)" "(begin" " 'loop" "(if(null? l_64)" "(let-values() null)" "(if(not(car l_64))" -"(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)" +"(let-values()(append orig-l_9(loop_100(cdr l_64))))" +"(let-values()(cons(coerce-to-path(car l_64))(loop_100(cdr l_64))))))))))" +" loop_100)" " l_79)" " orig-l_9)))))" "(define-values" @@ -47293,17 +46875,17 @@ static const char *startup_source = "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_63)" "(lambda(path_8)" "(begin" " 'loop" -"(let-values(((base_20 name_65 dir?_4)(split-path path_8)))" +"(let-values(((base_20 name_64 dir?_4)(split-path path_8)))" "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" -"(loop_65 base_20))" +"(loop_63 base_20))" " #f))))))" -" loop_65)" +" loop_63)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -47323,22 +46905,22 @@ static const char *startup_source = "(begin" "(let-values(((path9_0) path_9)" "((temp10_4)" -"(lambda(p_65)" +"(lambda(p_56)" "(begin" " 'temp10" -"(let-values(((bstr_1)(read-bytes 8192 p_65)))" +"(let-values(((bstr_1)(read-bytes 8192 p_56)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_101)" "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_65)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_103))))))))" -" loop_103))))" +"(let-values(((bstr_2)(read-bytes 8192 p_56)))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_101))))))))" +" loop_101))))" " bstr_1))))))" "(call-with-input-file*61.1 'binary path9_0 temp10_4)))))" "(define-values" @@ -47388,62 +46970,62 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_203)" +"(let-values(((v_195)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" "((temp12_3)" -"(lambda(p_39)" +"(lambda(p_30)" "(begin" " 'temp12" "(begin0" -"(1/read p_39)" -"(if(eof-object?(1/read p_39))" +"(1/read p_30)" +"(if(eof-object?(1/read p_30))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_203)" +"(if(if(list? v_195)" "(andmap2" -"(lambda(p_66)" -"(if(list? p_66)" -"(if(let-values(((or-part_226)(= 2(length p_66))))" -"(if or-part_226 or-part_226(= 3(length p_66))))" -"(if(let-values(((or-part_300)(string?(car p_66))))" +"(lambda(p_57)" +"(if(list? p_57)" +"(if(let-values(((or-part_226)(= 2(length p_57))))" +"(if or-part_226 or-part_226(= 3(length p_57))))" +"(if(let-values(((or-part_300)(string?(car p_57))))" "(if or-part_300" " or-part_300" "(let-values(((or-part_301)" -"(eq? 'root(car p_66))))" +"(eq? 'root(car p_57))))" "(if or-part_301" " or-part_301" -"(eq? 'static-root(car p_66))))))" -"(if(path-string?(cadr p_66))" -"(let-values(((or-part_302)(null?(cddr p_66))))" -"(if or-part_302 or-part_302(regexp?(caddr p_66))))" +"(eq? 'static-root(car p_57))))))" +"(if(path-string?(cadr p_57))" +"(let-values(((or-part_302)(null?(cddr p_57))))" +"(if or-part_302 or-part_302(regexp?(caddr p_57))))" " #f)" " #f)" " #f)" " #f))" -" v_203)" +" v_195)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" "(let-values(((ht_151)(make-hasheq)))" "(let-values(((dir_0)" -"(let-values(((base_21 name_66 dir?_5)(split-path links-path_0)))" +"(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" " base_21)))" "(begin" "(for-each2" -"(lambda(p_67)" -"(if(let-values(((or-part_266)(null?(cddr p_67))))" -"(if or-part_266 or-part_266(regexp-match?(caddr p_67)(version))))" +"(lambda(p_58)" +"(if(let-values(((or-part_266)(null?(cddr p_58))))" +"(if or-part_266 or-part_266(regexp-match?(caddr p_58)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_67) dir_0))))" -"(if(eq?(car p_67) 'static-root)" +"(simplify-path(path->complete-path(cadr p_58) dir_0))))" +"(if(eq?(car p_58) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" @@ -47456,7 +47038,7 @@ static const char *startup_source = "(cons dir_1(hash-ref ht_151 k_38 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_67) 'root)" +"(if(eq?(car p_58) 'root)" "(let-values()" "(begin" "(if(hash-ref ht_151 #f #f)" @@ -47464,19 +47046,19 @@ static const char *startup_source = "(let-values()(hash-set! ht_151 #f null)))" "(hash-for-each" " ht_151" -"(lambda(k_39 v_204)" -"(hash-set! ht_151 k_39(cons dir_1 v_204))))))" +"(lambda(k_39 v_196)" +"(hash-set! ht_151 k_39(cons dir_1 v_196))))))" "(let-values()" -"(let-values(((s_486)(string->symbol(car p_67))))" +"(let-values(((s_486)(string->symbol(car p_58))))" "(hash-set!" " ht_151" " s_486" "(cons(box dir_1)(hash-ref ht_151 s_486 null)))))))))" "(void)))" -" v_203)" +" v_195)" "(hash-for-each" " ht_151" -"(lambda(k_40 v_205)(hash-set! ht_151 k_40(reverse$1 v_205))))" +"(lambda(k_40 v_197)(hash-set! ht_151 k_40(reverse$1 v_197))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_151))" " ht_151))))))))))))))))))))))" "(define-values" @@ -47495,10 +47077,10 @@ static const char *startup_source = "(cons(substring collection_2(cdar m_23)) collection-path_2))))" "(values collection_2 collection-path_2))))" "(let-values()" -"(let-values(((base_22 name_67 dir?_6)(split-path collection_2)))" +"(let-values(((base_22 name_66 dir?_6)(split-path collection_2)))" "(if(eq? base_22 'relative)" -"(values name_67 collection-path_2)" -"(normalize-collection-reference base_22(cons name_67 collection-path_2)))))))))" +"(values name_66 collection-path_2)" +"(normalize-collection-reference base_22(cons name_66 collection-path_2)))))))))" "(define-values" "(find-col-file)" "(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)" @@ -47532,28 +47114,28 @@ static const char *startup_source = "(loop_47(cdr l_81))))))))))))" " loop_47)" "(1/current-library-collection-links)))))" -"(let-values(((done_1)(lambda(p_12)(begin 'done(if file-name_1(build-path p_12 file-name_1) p_12)))))" +"(let-values(((done_0)(lambda(p_59)(begin 'done(if file-name_1(build-path p_59 file-name_1) p_59)))))" "(let-values(((*build-path-rep_0)" -"(lambda(p_68 c_55)" -"(begin '*build-path-rep(if(path? p_68)(build-path p_68 c_55)(unbox p_68))))))" +"(lambda(p_60 c_55)" +"(begin '*build-path-rep(if(path? p_60)(build-path p_60 c_55)(unbox p_60))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_50)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_50) #t)))))" +"(lambda(orig_0 p_41)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_41) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_69)(begin 'to-string(if(path? p_69)(path->string p_69) p_69)))))" +"(lambda(p_61)(begin 'to-string(if(path? p_61)(path->string p_61) p_61)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" " 'cloop" "(if(null? paths_1)" "(if found-col_0" -"(done_1 found-col_0)" +"(done_0 found-col_0)" "(let-values(((rest-coll_0)" "(if(null? collection-path_3)" " \"\"" "(apply" " string-append" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_102)" "(lambda(cp_0)" "(begin" " 'loop" @@ -47562,8 +47144,8 @@ static const char *startup_source = "(list*" "(to-string_0(car cp_0))" " \"/\"" -"(loop_104(cdr cp_0))))))))" -" loop_104)" +"(loop_102(cdr cp_0))))))))" +" loop_102)" " collection-path_3)))))" "(letrec-values(((filter_1)" "(lambda(f_40 l_82)" @@ -47583,7 +47165,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_70) (format \"\\n ~a ~a\" \" \" p_70))" +" (lambda (p_62) (format \"\\n ~a ~a\" \" \" p_62))" "(let-values(((len_34)(length all-paths_0))" "((clen_0)" "(length(1/current-library-collection-paths))))" @@ -47602,7 +47184,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_71) (format \"\\n ~a\" (unbox p_71)))" +" (lambda (p_63) (format \"\\n ~a\" (unbox p_63)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -47644,12 +47226,12 @@ static const char *startup_source = " alt-file-name_0" " check-compiled?_1)" " #f))))" -"(done_1 cpath_0)" +"(done_0 cpath_0)" "(cloop_0" "(cdr paths_1)" "(let-values(((or-part_100) found-col_0))" "(if or-part_100 or-part_100 cpath_0))))" -"(done_1 cpath_0))" +"(done_0 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" " cloop_0)" @@ -47671,12 +47253,12 @@ static const char *startup_source = "(ormap2" "(lambda(mode_16)" "(file-exists?" -"(let-values(((p_72)(build-path dir_3 mode_16 try-path_0)))" +"(let-values(((p_64)(build-path dir_3 mode_16 try-path_0)))" "(if(eq? d_35 'same)" -"(let-values() p_72)" +"(let-values() p_64)" "(if(relative-path? d_35)" -"(let-values()(build-path p_72 d_35))" -"(let-values()(reroot-path p_72 d_35)))))))" +"(let-values()(build-path p_64 d_35))" +"(let-values()(reroot-path p_64 d_35)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -47691,7 +47273,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_41 r_45)(begin 'cons-if(if f_41(cons f_41 r_45) r_45))))" +"(lambda(f_41 r_42)(begin 'cons-if(if f_41(cons f_41 r_42) r_42))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -47711,23 +47293,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_103)" "(lambda(l_83)" "(begin" " 'loop" "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_206)" +"(let-values(((v_198)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_206" +"(if v_198" "(cons" "(simplify-path" -"(path->complete-path v_206(current-directory)))" -"(loop_105(cdr l_83)))" -"(loop_105(cdr l_83))))))))))" -" loop_105)" +"(path->complete-path v_198(current-directory)))" +"(loop_103(cdr l_83)))" +"(loop_103(cdr l_83))))))))))" +" loop_103)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -47744,14 +47326,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_207)" +"(lambda(v_199)" "(begin" -"(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)" +"(if((lambda(x_83)" +"(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" +" v_199)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_207)))" -" v_207))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_199)))" +" v_199))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47763,7 +47345,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47779,16 +47361,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'inner)" -"(make-struct-field-accessor -ref_36 1 'wrap)" -"(make-struct-field-accessor -ref_36 2 'line)" -"(make-struct-field-accessor -ref_36 3 'col)" -"(make-struct-field-accessor -ref_36 4 'pos)" -"(make-struct-field-accessor -ref_36 5 'indentations)" -"(make-struct-field-accessor -ref_36 6 'keep-comment?))))" +" struct:_26" +" make-_26" +" ?_26" +"(make-struct-field-accessor -ref_26 0 'inner)" +"(make-struct-field-accessor -ref_26 1 'wrap)" +"(make-struct-field-accessor -ref_26 2 'line)" +"(make-struct-field-accessor -ref_26 3 'col)" +"(make-struct-field-accessor -ref_26 4 'pos)" +"(make-struct-field-accessor -ref_26 5 'indentations)" +"(make-struct-field-accessor -ref_26 6 'keep-comment?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -47805,7 +47387,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)" +"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47821,21 +47403,21 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" 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))))" +" struct:_74" +" make-_74" +" ?_74" +"(make-struct-field-accessor -ref_74 0 'readtable)" +"(make-struct-field-accessor -ref_74 1 'next-readtable)" +"(make-struct-field-accessor -ref_74 2 'for-syntax?)" +"(make-struct-field-accessor -ref_74 3 'source)" +"(make-struct-field-accessor -ref_74 4 'read-compiled)" +"(make-struct-field-accessor -ref_74 5 'dynamic-require)" +"(make-struct-field-accessor -ref_74 6 'module-declared?)" +"(make-struct-field-accessor -ref_74 7 'coerce)" +"(make-struct-field-accessor -ref_74 8 'coerce-key)" +"(make-struct-field-accessor -ref_74 9 'parameter-override)" +"(make-struct-field-accessor -ref_74 10 'parameter-cache)" +"(make-struct-field-accessor -ref_74 11 'st))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" @@ -47878,43 +47460,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_28)(begin(read-config/outer-wrap v_28))))" -"(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-line)(lambda(v_200)(begin(read-config/outer-line v_200))))" +"(define-values(read-config-col)(lambda(v_201)(begin(read-config/outer-col v_201))))" +"(define-values(read-config-pos)(lambda(v_202)(begin(read-config/outer-pos v_202))))" +"(define-values(read-config-indentations)(lambda(v_203)(begin(read-config/outer-indentations v_203))))" +"(define-values(read-config-keep-comment?)(lambda(v_89)(begin(read-config/outer-keep-comment? v_89))))" "(define-values" "(read-config-readtable)" -"(lambda(v_212)(begin(read-config/inner-readtable(read-config/outer-inner v_212)))))" +"(lambda(v_204)(begin(read-config/inner-readtable(read-config/outer-inner v_204)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_213)(begin(read-config/inner-next-readtable(read-config/outer-inner v_213)))))" +"(lambda(v_205)(begin(read-config/inner-next-readtable(read-config/outer-inner v_205)))))" "(define-values" "(read-config-for-syntax?)" -"(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)))))" +"(lambda(v_206)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_206)))))" +"(define-values(read-config-source)(lambda(v_65)(begin(read-config/inner-source(read-config/outer-inner v_65)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_215)(begin(read-config/inner-read-compiled(read-config/outer-inner v_215)))))" +"(lambda(v_207)(begin(read-config/inner-read-compiled(read-config/outer-inner v_207)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_216)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_216)))))" +"(lambda(v_208)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_208)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_217)(begin(read-config/inner-module-declared?(read-config/outer-inner v_217)))))" +"(lambda(v_209)(begin(read-config/inner-module-declared?(read-config/outer-inner v_209)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" +"(lambda(v_198)(begin(read-config/inner-coerce(read-config/outer-inner v_198)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_218)(begin(read-config/inner-coerce-key(read-config/outer-inner v_218)))))" +"(lambda(v_210)(begin(read-config/inner-coerce-key(read-config/outer-inner v_210)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_219)(begin(read-config/inner-parameter-override(read-config/outer-inner v_219)))))" +"(lambda(v_211)(begin(read-config/inner-parameter-override(read-config/outer-inner v_211)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_41)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_41)))))" -"(define-values(read-config-st)(lambda(v_220)(begin(read-config/inner-st(read-config/outer-inner v_220)))))" +"(define-values(read-config-st)(lambda(v_212)(begin(read-config/inner-st(read-config/outer-inner v_212)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47923,7 +47505,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(let-values(((struct:_82 make-_82 ?_82 -ref_82 -set!_82)" +"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47939,13 +47521,13 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" 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))))" +" struct:_75" +" make-_75" +" ?_75" +"(make-struct-field-accessor -ref_75 0 'accum-str)" +"(make-struct-field-accessor -ref_75 1 'graph)" +"(make-struct-field-mutator -set!_75 0 'accum-str)" +"(make-struct-field-mutator -set!_75 1 'graph))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" @@ -47993,9 +47575,9 @@ static const char *startup_source = " or-part_178" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_221) coerce_1))" -"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_144 srcloc_9) v_144)))" +"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_135 srcloc_9) v_135)))" "(let-values(((or-part_305) coerce-key_1))" -"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_102) v_102)))" +"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_93) v_93)))" " #f" " #f" " #f" @@ -48020,13 +47602,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_221) config_0))" -"(let-values(((the-struct_78) v_221))" +"(let-values(((v_213) config_0))" +"(let-values(((the-struct_78) v_213))" "(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_221)))" +"(let-values(((the-struct_79)(read-config/outer-inner v_213)))" "(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -48088,13 +47670,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_222) config_2))" -"(let-values(((the-struct_80) v_222))" +"(let-values(((v_214) config_2))" +"(let-values(((the-struct_80) v_214))" "(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_222)))" +"((inner65_0)(read-config/outer-inner v_214)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_80)" @@ -48108,10 +47690,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_223) config_3))" -"(let-values(((the-struct_81) v_223))" +"(let-values(((v_215) config_3))" +"(let-values(((the-struct_81) v_215))" "(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_223)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_215)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -48125,10 +47707,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_224) config_4))" -"(let-values(((the-struct_82) v_224))" +"(let-values(((v_216) config_4))" +"(let-values(((the-struct_82) v_216))" "(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_224)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_216)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_82)" @@ -48145,10 +47727,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_81) config_5))" -"(let-values(((the-struct_83) v_81))" +"(let-values(((v_70) config_5))" +"(let-values(((the-struct_83) v_70))" "(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_81)))" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_70)))" "(read-config/outer1.1" " inner71_0" "(read-config/outer-wrap the-struct_83)" @@ -48165,11 +47747,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_225) config_6))" -"(let-values(((the-struct_84) v_225))" +"(let-values(((v_217) config_6))" +"(let-values(((the-struct_84) v_217))" "(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_225)))" +"(let-values(((the-struct_85)(read-config/outer-inner v_217)))" "(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -48206,27 +47788,27 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_226)(begin 'default-reader-guard v_226)))" +"(define-values(default-reader-guard$1)(lambda(v_218)(begin 'default-reader-guard v_218)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_227)" +"(lambda(v_219)" "(begin" -"(if(if(procedure? v_227)(procedure-arity-includes? v_227 1) #f)" +"(if(if(procedure? v_219)(procedure-arity-includes? v_219 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_227)))" -" v_227))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_219)))" +" v_219))))" "(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_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_67)(if v_67 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_220)(if v_220 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_221)(if v_221 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_56)(if v_56 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_32)(if v_32 #t #f))))" -"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_57)(if v_57 #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_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_69)(if v_69 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_223)(if v_223 #t #f))))" +"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_58)(if v_58 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_33)(if v_33 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" "(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_34)(if v_34 #t #f))))" @@ -48237,20 +47819,20 @@ static const char *startup_source = "(lambda(param_0 config_8)" "(begin" "(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_71)" +"(let-values(((v_60)" "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_71 unknown)" -"(let-values()(let-values(((v_72)(param_0)))(begin(hash-set! cache_4 param_0 v_72) v_72)))" -"(let-values() v_71)))))))" +"(if(eq? v_60 unknown)" +"(let-values()(let-values(((v_61)(param_0)))(begin(hash-set! cache_4 param_0 v_61) v_61)))" +"(let-values() v_60)))))))" "(define-values" "(override-parameter)" "(lambda(param_1 config_9 v_31)" "(begin" -"(let-values(((v_232) config_9))" -"(let-values(((the-struct_86) v_232))" +"(let-values(((v_224) config_9))" +"(let-values(((the-struct_86) v_224))" "(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_232)))" +"(let-values(((the-struct_87)(read-config/outer-inner v_224)))" "(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_31)))" @@ -48329,7 +47911,7 @@ static const char *startup_source = " readtable-char-ht" " readtable-dispatch-ht" " readtable-delimiter-ht)" -"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" +"(let-values(((struct:_13 make-_13 ?_13 -ref_13 -set!_13)" "(let-values()" "(let-values()" "(make-struct-type" @@ -48345,13 +47927,13 @@ static const char *startup_source = " #f" " 'readtable)))))" "(values" -" struct:_23" -" make-_23" -" ?_23" -"(make-struct-field-accessor -ref_23 0 'symbol-parser)" -"(make-struct-field-accessor -ref_23 1 'char-ht)" -"(make-struct-field-accessor -ref_23 2 'dispatch-ht)" -"(make-struct-field-accessor -ref_23 3 'delimiter-ht))))" +" struct:_13" +" make-_13" +" ?_13" +"(make-struct-field-accessor -ref_13 0 'symbol-parser)" +"(make-struct-field-accessor -ref_13 1 'char-ht)" +"(make-struct-field-accessor -ref_13 2 'dispatch-ht)" +"(make-struct-field-accessor -ref_13 3 'delimiter-ht))))" "(define-values" "(1/make-readtable)" "(lambda(rt_0 . args_7)" @@ -48361,7 +47943,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_99)" +"((letrec-values(((loop_97)" "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" @@ -48460,7 +48042,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_99" +"(loop_97" " rest-args_0" " target_0" " char-ht_0" @@ -48478,7 +48060,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_99" +"(loop_97" " rest-args_0" " symbol-parser_0" " char-ht_0" @@ -48526,7 +48108,7 @@ static const char *startup_source = " mode_17" " mode_17)" " mode_17))))" -"(loop_99" +"(loop_97" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -48554,13 +48136,13 @@ static const char *startup_source = "(if(eq? mode_17 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_99" +"(loop_97" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_99)" +" loop_97)" " args_7" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" @@ -48601,7 +48183,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_233)" +"(let-values(((v_225)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48623,7 +48205,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_233) v_233(coerce v_233 in_3 config_14)))))))" +"(if(1/special-comment? v_225) v_225(coerce v_225 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48670,10 +48252,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_168" -"(let-values(((k_41 v_94)(hash-iterate-key+value ht_154 i_168)))" +"(let-values(((k_41 v_85)(hash-iterate-key+value ht_154 i_168)))" "(let-values(((fold-var_284)" "(let-values(((fold-var_88) fold-var_85))" -"(if(eqv? v_94 c_64)" +"(if(eqv? v_85 c_64)" "(let-values(((fold-var_238) fold-var_88))" "(let-values(((fold-var_13)" "(let-values()" @@ -48689,10 +48271,10 @@ static const char *startup_source = "(hash-iterate-first ht_154))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(let-values(((struct:_83 make-_83 ?_83 -ref_83 -set!_83)" +"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" "(let-values()" "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_83 make-_83 ?_83(make-struct-field-accessor -ref_83 0 'value))))" +"(values struct:_76 make-_76 ?_76(make-struct-field-accessor -ref_76 0 'value))))" "(define-values" "(wrap)" "(lambda(s-exp_3 in_2 config_7 rep_0)" @@ -48773,7 +48355,7 @@ static const char *startup_source = "(list str30_0)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" -"(lambda(in_8 config_18 thunk_7)" +"(lambda(in_8 config_18 thunk_6)" "(begin" "(let-values(((with-handlers-predicate31_0) exn:fail?)" "((with-handlers-handler32_0)" @@ -48799,9 +48381,9 @@ static const char *startup_source = "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_3" -"(lambda(e_76)" -"(select-handler/no-breaks e_76 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" -"(lambda()(thunk_7))))))))" +"(lambda(e_75)" +"(select-handler/no-breaks e_75 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" +"(lambda()(thunk_6))))))))" "(define-values" "(port-next-location*)" "(lambda(in_4 init-c_0)" @@ -48848,7 +48430,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_80)" +"((letrec-values(((loop_78)" "(lambda()" "(begin" " 'loop" @@ -48867,8 +48449,8 @@ static const char *startup_source = " '#\\newline" "(effective-char c_66 config_15))))" "(void)" -"(let-values()(loop_80))))))))" -" loop_80))" +"(let-values()(loop_78))))))))" +" loop_78))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -48942,13 +48524,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_234)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_226)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_234)" +"(if(eof-object? v_226)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_234)" +"((v3_0) v_226)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48977,7 +48559,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_106)" +"((letrec-values(((loop_104)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -49000,23 +48582,23 @@ static const char *startup_source = " temp9_4" "(list))))" "(if(not(char? c_70))" -"(let-values()(loop_106 #f depth_10))" +"(let-values()(loop_104 #f depth_10))" "(if(if(char=? '#\\| c_70)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_106 #f(add1 depth_10)))" +"(let-values()(loop_104 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_70)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_106 #f(sub1 depth_10)))" +"(let-values()(loop_104 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_106 c_70 depth_10)))))))))))" -" loop_106)" +"(let-values()(loop_104 c_70 depth_10)))))))))))" +" loop_104)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_107)" +"((letrec-values(((loop_105)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -49026,13 +48608,13 @@ static const char *startup_source = "(if(eof-object? c_42)" "(let-values()(void))" "(if(not(char? c_42))" -"(let-values()(loop_107 #f))" +"(let-values()(loop_105 #f))" "(if(char=? c_42 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_107 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_105 #f))(void)))" "(if(char=? c_42 '#\\\\)" -"(let-values()(loop_107 #t))" -"(let-values()(loop_107 #f)))))))))))" -" loop_107)" +"(let-values()(loop_105 #t))" +"(let-values()(loop_105 #f)))))))))))" +" loop_105)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -49118,15 +48700,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_108)" +"((letrec-values(((loop_106)" "(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_108 (cdr cs_2)))))))))" -" loop_108)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_106 (cdr cs_2)))))))))" +" loop_106)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -49143,17 +48725,17 @@ static const char *startup_source = "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_63)(opener-name '#\\( config_21)))" +"(let-values(((p_54)(opener-name '#\\( config_21)))" "(let-values(((s_10)" "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))" "(let-values(((c_71)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_71 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_71))" +" (let-values () (format \"~a, ~a, or ~a\" p_54 s_10 c_71))" "(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_71))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_309) s_10)) (if or-part_309 or-part_309 c_71))))" -"(let-values() p_63)))))))))" +" (format \"~a or ~a\" p_54 (let-values (((or-part_309) s_10)) (if or-part_309 or-part_309 c_71))))" +"(let-values() p_54)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -49341,15 +48923,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_7)))" "((letrec-values(((for-loop_0)" -"(lambda(result_119 lst_8)" +"(lambda(result_120 lst_8)" "(begin" " 'for-loop" "(if(pair? lst_8)" "(let-values(((indt_3)(unsafe-car lst_8))" "((rest_0)(unsafe-cdr lst_8)))" -"(let-values(((result_82)" +"(let-values(((result_83)" "(let-values()" -"(let-values(((result_120)" +"(let-values(((result_121)" "(let-values()" "(let-values()" "(if(char=?" @@ -49358,15 +48940,15 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_120)))))" +"(values result_121)))))" "(if(if(not" -"((lambda x_85 result_82)" +"((lambda x_84 result_83)" " indt_3))" "(not #f)" " #f)" -"(for-loop_0 result_82 rest_0)" -" result_82)))" -" result_119)))))" +"(for-loop_0 result_83 rest_0)" +" result_83)))" +" result_120)))))" " for-loop_0)" " #f" " lst_7)))))" @@ -49418,14 +49000,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_235) elem-config_0))" -"(let-values(((the-struct_88) v_235))" +"(let-values(((v_227) elem-config_0))" +"(let-values(((the-struct_88) v_227))" "(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_235)))" +"((inner21_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_88)" @@ -49445,13 +49027,13 @@ static const char *startup_source = "(lambda(init-c_4 read-one_2 config_35)" "(begin" " 'read-one/not-eof" -"(let-values(((e_77)(read-one_2 init-c_4 in_20 config_35)))" +"(let-values(((e_76)(read-one_2 init-c_4 in_20 config_35)))" "(begin" -"(if(eof-object? e_77)" +"(if(eof-object? e_76)" "(let-values()" "(let-values(((in22_0) in_20)" "((seq-config23_0) seq-config_0)" -"((e24_0) e_77)" +"((e24_0) e_76)" "((open-end-pos25_0) open-end-pos_0)" "((temp26_3)" " \"expected a ~a to close `~a`~a\")" @@ -49470,9 +49052,9 @@ static const char *startup_source = " temp26_3" "(list temp27_5 opener-c28_0 temp29_4))))" "(void))" -" e_77))))))" +" e_76))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_109)" +"((letrec-values(((loop_107)" "(lambda(depth_11" " accum_0" " init-c_5" @@ -49566,7 +49148,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_236)" +"(let-values(((v_228)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49587,11 +49169,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_236" +" v_228" "(append" "(reverse$1" " accum_0)" -" v_236)))" +" v_228)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49630,7 +49212,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_236))" +" v_228))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49686,7 +49268,7 @@ static const char *startup_source = " temp36_4" "(list))))" "(void))" -"(loop_109" +"(loop_107" " depth_11" " accum_0" " post-c_0" @@ -49715,14 +49297,14 @@ static const char *startup_source = " temp40_2" "(list)))))))))))))" "(let-values()" -"(let-values(((v_137)" +"(let-values(((v_128)" "(read-one/not-eof_0" " c_73" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_137)" +"(if(1/special-comment? v_128)" "(let-values()" -"(loop_109" +"(loop_107" " depth_11" " accum_0" " #f" @@ -49730,22 +49312,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_109" +"(loop_107" " depth_11" -"(cons v_137 accum_0)" +"(cons v_128 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_137" -"(loop_109" +" v_128" +"(loop_107" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_109)" +" loop_107)" " 0" " null" " #f" @@ -49767,7 +49349,7 @@ static const char *startup_source = "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_23 config_36 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1$1) (lambda (who_7 v_62) (begin 'not-an-fX (raise-argument-error who_7 \"flonum?\" v_62))))" +" (define-values (not-an-fX.1$1) (lambda (who_7 v_51) (begin 'not-an-fX (raise-argument-error who_7 \"flonum?\" v_51))))" "(define-values" "(read-digits12.1)" "(lambda(base1_0 init3_0 max-count2_0 zero-digits-result4_0 in10_1 config11_0 accum-str9_0)" @@ -49793,12 +49375,12 @@ static const char *startup_source = "(begin" "(consume-char in_6 c_67)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_67))(void))" -"((letrec-values(((loop_110)" -"(lambda(v_200 max-count_1)" +"((letrec-values(((loop_108)" +"(lambda(v_192 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_200)" +"(let-values() v_192)" "(let-values()" "(let-values(((c_75)" "(let-values(((in_25) in_6)" @@ -49821,11 +49403,11 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_75))" "(void))" -"(loop_110" -"(+(digit->number c_75)(* v_200 base_15))" +"(loop_108" +"(+(digit->number c_75)(* v_192 base_15))" "(sub1 max-count_1))))" -"(let-values() v_200)))))))))" -" loop_110)" +"(let-values() v_192)))))))))" +" loop_108)" "(+(digit->number c_67)(* init-v_0 base_15))" "(sub1 max-count_0))))" "(if zero-digits-result_0" @@ -49882,7 +49464,7 @@ static const char *startup_source = "(if(string? s_87)" "(void)" " (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)" +"(if((lambda(p_65)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" @@ -49896,9 +49478,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_65)" -"(let-values(((or-part_7)(eq? p_65 'decimal-as-inexact)))" -"(if or-part_7 or-part_7(eq? p_65 'decimal-as-exact))))" +"(if((lambda(p_56)" +"(let-values(((or-part_7)(eq? p_56 'decimal-as-inexact)))" +"(if or-part_7 or-part_7(eq? p_56 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -50118,19 +49700,19 @@ static const char *startup_source = " radix83_0" " exactness85_0" " temp86_2)))))))))))))))" -"(let-values(((c1_29)" +"(let-values(((c1_28)" "(if(char-sign? c_64)" "(read-special-number s_17 start_43 end_33 convert-mode_2)" " #f)))" -"(if c1_29" -"((lambda(v_237)" +"(if c1_28" +"((lambda(v_229)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_237))" +" (let-values () (format \"no exact representation for `~a`\" v_229))" "(let-values() #f)))" -"(let-values() v_237)))" -" c1_29)" +"(let-values() v_229)))" +" c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_64)" "(if(not in-complex_0)" @@ -50158,8 +49740,8 @@ static const char *startup_source = "((temp93_1) 'i)" "((v94_0) v_40)" "((temp95_0)" -"(lambda(v_238 v2_0)" -"(begin 'temp95(make-rectangular v_238 v2_0)))))" +"(lambda(v_230 v2_0)" +"(begin 'temp95(make-rectangular v_230 v2_0)))))" "(read-for-special-compound62.1" " temp93_1" " #f" @@ -50201,8 +49783,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_1)" -"(lambda(v2_2 v_215)" -"(begin 'temp105(make-rectangular v_215 v2_2)))))" +"(lambda(v2_2 v_207)" +"(begin 'temp105(make-rectangular v_207 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -50230,7 +49812,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_217)" +"((lambda(v_209)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -50238,10 +49820,10 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_217)" +"((v113_0) v_209)" "((temp114_3)" -"(lambda(v_142 v2_3)" -"(begin 'temp114(make-polar v_142 v2_3)))))" +"(lambda(v_133 v2_3)" +"(begin 'temp114(make-polar v_133 v2_3)))))" "(read-for-special-compound62.1" " temp112_1" " #f" @@ -50278,8 +49860,8 @@ static const char *startup_source = "((temp122_0) #t)" "((v2123_0) v2_4)" "((temp124_2)" -"(lambda(v2_5 v_83)" -"(begin 'temp124(make-polar v_83 v2_5)))))" +"(lambda(v2_5 v_72)" +"(begin 'temp124(make-polar v_72 v2_5)))))" "(read-for-special-compound62.1" " temp121_0" " temp122_0" @@ -50324,7 +49906,7 @@ 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_111)" +"((letrec-values(((loop_109)" "(lambda(i_170" " any-digits?_0" " any-hashes?_0" @@ -50439,7 +50021,7 @@ static const char *startup_source = "(let-values(((c_78)(string-ref s_425 i_170)))" "(if(digit? c_78 radix_5)" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " #t" " any-hashes?_0" @@ -50452,7 +50034,7 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_78 '#\\#)" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " #t" " #t" @@ -50474,7 +50056,7 @@ static const char *startup_source = "(substring s_425 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " any-digits?_0" " any-hashes?_0" @@ -50529,7 +50111,7 @@ static const char *startup_source = "(substring s_425 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " any-digits?_0" " any-hashes?_0" @@ -50580,7 +50162,7 @@ static const char *startup_source = "(substring s_425 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " any-digits?_0" " any-hashes?_0" @@ -50660,7 +50242,7 @@ static const char *startup_source = "(char-sign?(string-ref s_425(add1 i_170)))" " #f)" "(let-values()" -"(loop_111" +"(loop_109" "(+ i_170 2)" " any-digits?_0" " any-hashes?_0" @@ -50673,7 +50255,7 @@ static const char *startup_source = "(if or-part_329 or-part_329 i_170))" " must-i?_0))" "(let-values()" -"(loop_111" +"(loop_109" "(+ i_170 1)" " any-digits?_0" " any-hashes?_0" @@ -50723,7 +50305,7 @@ static const char *startup_source = "(substring s_425 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " any-digits?_0" " any-hashes?_0" @@ -50766,7 +50348,7 @@ static const char *startup_source = "(substring s_425 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_111" +"(loop_109" "(add1 i_170)" " any-digits?_0" " any-hashes?_0" @@ -50789,7 +50371,7 @@ static const char *startup_source = "(let-values()" " (format \"bad digit `~a`\" c_78))" "(let-values() #f))))))))))))))))))))" -" loop_111)" +" loop_109)" " start_44" " #f" " #f" @@ -50894,10 +50476,10 @@ static const char *startup_source = "(if(eq? in-complex_2 'i)" "(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_74)(make-polar v1_0 v2_6)))" +"(let-values(((p_66)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_74)" -" p_74))))))))))))))))))))))))))))" +"(inexact->exact p_66)" +" p_66))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" "(lambda(s_333 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" @@ -50952,7 +50534,7 @@ static const char *startup_source = " (format \"missing digits after exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_31)" +"(let-values(((n_30)" "(string->number$1" "(maybe-substring s_333 start_45 end_35)" " radix_7" @@ -50963,7 +50545,7 @@ static const char *startup_source = "(if or-part_147 or-part_147(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_148)(not n_31)))(if or-part_148 or-part_148(string? n_31)))" +"(if(let-values(((or-part_148)(not n_30)))(if or-part_148 or-part_148(string? n_30)))" "(let-values()" "(error" " 'string->number" @@ -50971,7 +50553,7 @@ static const char *startup_source = "(substring s_333 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" -"(if(extflonum? n_31)" +"(if(extflonum? n_30)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" @@ -50979,10 +50561,10 @@ static const char *startup_source = " \"cannot convert extflonum `~.a` to inexact\"" "(substring s_333 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_31 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" "(let-values() -0.0)" -"(let-values()(exact->inexact n_31)))))" -"(let-values() n_31))))))))" +"(let-values()(exact->inexact n_30)))))" +"(let-values() n_30))))))))" "(if exp-pos_1" "(let-values()" "(let-values(((m-v_0)" @@ -51000,7 +50582,7 @@ static const char *startup_source = "(let-values(((e-v_0)" "(string->exact-integer-number s_333(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_46)" +"(lambda(r_43)" "(begin" " 'real->precision-inexact" "(let-values(((tmp_40)(string-ref s_333 exp-pos_1)))" @@ -51009,16 +50591,16 @@ static const char *startup_source = "(if(equal? tmp_40 '#\\S)" " #t" "(if(equal? tmp_40 '#\\f) #t(equal? tmp_40 '#\\F))))" -"(let-values()(real->single-flonum r_46))" +"(let-values()(real->single-flonum r_43))" "(if(if(equal? tmp_40 '#\\t) #t(equal? tmp_40 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_46)" +"(real->extfl r_43)" "(string->number$1" "(replace-hashes s_333 start_45 end_35)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_46)))))))))" +"(let-values()(real->double-flonum r_43)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" "(if(let-values(((or-part_341)(not m-v_0)))(if or-part_341 or-part_341(not e-v_0)))" "(let-values() #f)" @@ -51049,15 +50631,15 @@ static const char *startup_source = " exactness_3))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))" +"(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" "(let-values(((or-part_343)(eq? exactness_3 'exact)))" "(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-exact)))" " #f)" -"(let-values() n_32)" -"(if(if(eqv? n_32 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" +"(let-values() n_31)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" -"(let-values()(real->precision-inexact_0 n_32)))))))))))))))))" +"(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" @@ -51110,8 +50692,8 @@ static const char *startup_source = " (format \"division by zero in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((n_33)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_45)(exact->inexact n_33) n_33)))))))))))" +"(let-values(((n_32)(/ n-v_0 d-v_0)))" +"(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" " s_333" @@ -51129,7 +50711,7 @@ static const char *startup_source = "(let-values(((or-part_187)(eq? exactness_4 'exact)))" "(if or-part_187 or-part_187(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_112)" +"((letrec-values(((loop_110)" "(lambda(i_171 j_3 hashes-pos_0)" "(begin" " 'loop" @@ -51142,31 +50724,31 @@ static const char *startup_source = " (format \"misplaced `#` in `~.a`\" (substring s_490 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(((n_33)(string->number$1 new-str_0 radix_8)))" +"(if(not n_33)" "(let-values()(fail-bad-number convert-mode_6 s_490 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_34 0)(char=?(string-ref s_490 start_46) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_490 start_46) '#\\-) #f)" " -0.0" -"(exact->inexact n_34)))" +"(exact->inexact n_33)))" "(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()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" +"(let-values() n_33))))))))" "(let-values()" "(let-values(((c_79)(string-ref s_490 i_171)))" "(if(char=? c_79 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_112" +"(loop_110" "(sub1 i_171)" " j_3" "(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_79)" -"(loop_112" +"(loop_110" "(sub1 i_171)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))))" @@ -51175,7 +50757,7 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_79)" -"(loop_112" +"(loop_110" "(sub1 i_171)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))" @@ -51185,7 +50767,7 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_112(sub1 i_171)(sub1 j_3) i_171)))" +"(loop_110(sub1 i_171)(sub1 j_3) i_171)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" @@ -51196,8 +50778,8 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_79)" -"(loop_112(sub1 i_171)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_112)" +"(loop_110(sub1 i_171)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_110)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" @@ -51211,13 +50793,13 @@ static const char *startup_source = " (let-values () (format \"misplaced `#` in `~.a`\" (substring s_491 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_35)(string->number$1(maybe-substring s_491 start_47 end_37) radix_9)))" -"(if(not n_35)" +"(let-values(((n_34)(string->number$1(maybe-substring s_491 start_47 end_37) radix_9)))" +"(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" " (let-values () (format \"bad exponent `~.a`\" (substring s_491 start_47 end_37)))" "(let-values() #f)))" -"(let-values() n_35))))))))" +"(let-values() n_34))))))))" "(define-values" "(read-special-number)" "(lambda(s_473 start_48 end_38 convert-mode_8)" @@ -51276,10 +50858,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_239)" +"(lambda(convert-mode_9 v_231)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_239))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_231))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -51303,19 +50885,19 @@ 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_240) v60_0))" +"(let-values(((v_232) 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_240))" +" (let-values () (format \"no exact representation for `~a`\" v_232))" "(let-values() #f)))" -"(if(if(extflonum? v_240)" +"(if(if(extflonum? v_232)" "(let-values(((or-part_190)(not reading-first?_0)))" "(if or-part_190 or-part_190(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_240))" +"(let-values()(fail-extflonum convert-mode_10 v_232))" "(let-values()" "(let-values(((v2_7)" "(let-values(((s173_0) s_492)" @@ -51339,19 +50921,19 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_240)" -"(let-values()(fail-extflonum convert-mode_10 v_240))" -"(let-values()(combine_1 v_240 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_232)" +"(let-values()(fail-extflonum convert-mode_10 v_232))" +"(let-values()(combine_1 v_232 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_263 start_50 end_40)" "(begin" -"(let-values(((v*_6 start*_5 stop*_6 step*_5)" +"(let-values(((v*_5 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_86)(string? x_86))" -"(lambda(x_87)(unsafe-string-length x_87))" +"(lambda(x_85)(string? x_85))" +"(lambda(x_86)(unsafe-string-length x_86))" " s_263" " start_50" " end_40" @@ -51359,20 +50941,20 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_271)" -"(lambda(result_121 idx_5)" +"(lambda(result_122 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_80)(string-ref v*_6 idx_5)))" -"(let-values(((result_122)" -"(let-values()" +"(let-values(((c_80)(string-ref v*_5 idx_5)))" "(let-values(((result_123)" +"(let-values()" +"(let-values(((result_124)" "(let-values()(let-values()(char=? c_80 '#\\#)))))" -"(values result_123)))))" -"(if(if(not((lambda x_88 result_122) c_80))(not #f) #f)" -"(for-loop_271 result_122(unsafe-fx+ idx_5 1))" -" result_122)))" -" result_121)))))" +"(values result_124)))))" +"(if(if(not((lambda x_87 result_123) c_80))(not #f) #f)" +"(for-loop_271 result_123(unsafe-fx+ idx_5 1))" +" result_123)))" +" result_122)))))" " for-loop_271)" " #f" " start*_5))))))" @@ -51382,12 +50964,12 @@ static const char *startup_source = "(begin" "(let-values(((new-s_9)(make-string(- end_41 start_51))))" "(begin" -"(let-values(((v*_7 start*_6 stop*_7 step*_6)" +"(let-values(((v*_6 start*_6 stop*_7 step*_6)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_89)(string? x_89))" -"(lambda(x_90)(unsafe-string-length x_90))" +"(lambda(x_88)(string? x_88))" +"(lambda(x_89)(unsafe-string-length x_89))" " s_271" " start_51" " end_41" @@ -51403,7 +50985,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_81)(string-ref v*_7 idx_6))((i_121) pos_115))" +"(let-values(((c_81)(string-ref v*_6 idx_6))((i_121) pos_115))" "(let-values((()" "(let-values()" "(let-values((()" @@ -51439,17 +51021,17 @@ static const char *startup_source = "(digit?)" "(lambda(c_83 radix_11)" "(begin" -"(let-values(((v_241)(char->integer c_83)))" +"(let-values(((v_233)(char->integer c_83)))" "(let-values(((or-part_355)" -"(if(>= v_241(char->integer '#\\0))(<(- v_241(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_233(char->integer '#\\0))(<(- v_233(char->integer '#\\0)) radix_11) #f)))" "(if or-part_355" " or-part_355" "(if(> radix_11 10)" "(let-values(((or-part_356)" -"(if(>= v_241(char->integer '#\\a))(<(- v_241(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_233(char->integer '#\\a))(<(- v_233(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_356" " or-part_356" -"(if(>= v_241(char->integer '#\\A))(<(- v_241(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_233(char->integer '#\\A))(<(- v_233(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" @@ -51475,14 +51057,14 @@ static const char *startup_source = "(let-values(((config_37)" "(if(string? mode_18)(override-parameter 1/read-cdot orig-config_0 #f) orig-config_0)))" "(let-values(((rt_10)(read-config-readtable config_37)))" -"(let-values(((c1_30)" +"(let-values(((c1_29)" "(if rt_10" "(if(let-values(((or-part_217)(eq? mode_18 'symbol-or-number)))" "(if or-part_217 or-part_217(eq? mode_18 'symbol/indirect)))" "(readtable-symbol-parser rt_10)" " #f)" " #f)))" -"(if c1_30" +"(if c1_29" "((lambda(handler_2)" "(readtable-apply" " handler_2" @@ -51492,7 +51074,7 @@ static const char *startup_source = "(read-config-line config_37)" "(read-config-col config_37)" "(read-config-pos config_37)))" -" c1_30)" +" c1_29)" "(let-values()" "(let-values(((accum-str_1)(accum-string-init! config_37)))" "(let-values(((quoted-ever?_0) #f))" @@ -51534,7 +51116,7 @@ static const char *startup_source = "(list temp15_2 after-c16_0 temp17_1)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_100)" "(lambda(init-c_7" " pipe-quote-c_0" " foldcase-from_0)" @@ -51620,7 +51202,7 @@ static const char *startup_source = "(consume-char" " in_26" " c_84)))" -"(loop_102" +"(loop_100" " #f" " #f" "(accum-string-count" @@ -51646,7 +51228,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_102" +"(loop_100" " #f" " c_84" "(accum-string-count" @@ -51696,7 +51278,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_102" +"(loop_100" " #f" " #f" "(accum-string-count" @@ -51712,11 +51294,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_84)" -"(loop_102" +"(loop_100" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_102)" +" loop_100)" " init-c_6" " #f" " 0)" @@ -51818,16 +51400,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_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 (((v_224) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_224)" +"(let-values() v_224)" +"(if(eof-object? v_224)" +"(let-values() v_224)" "(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_232))" +"((v4_1) v_224))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51957,7 +51539,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_104)" -"(let-values(((e_78)" +"(let-values(((e_77)" "(unsafe-car" " lst_104))" "((rest_145)" @@ -51971,7 +51553,7 @@ static const char *startup_source = "(begin" "(let-values(((elem_0)" "(let-values()" -" e_78)))" +" e_77)))" "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" @@ -51987,11 +51569,11 @@ static const char *startup_source = "(values" " i_173)))))" "(if(if(not" -"((lambda x_91" +"((lambda x_90" "(unsafe-fx=" " i_172" " len_37))" -" e_78))" +" e_77))" "(not #f)" " #f)" "(for-loop_273" @@ -52015,7 +51597,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_187)(make-flvector len_38 fill_1)))" +"(let-values(((v_179)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -52031,7 +51613,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((e_12)" +"(let-values(((e_10)" "(unsafe-car" " lst_25))" "((rest_9)" @@ -52045,11 +51627,11 @@ static const char *startup_source = "(begin" "(let-values(((elem_1)" "(let-values()" -" e_12)))" +" e_10)))" "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_187" +" v_179" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -52061,11 +51643,11 @@ static const char *startup_source = "(values" " i_153)))))" "(if(if(not" -"((lambda x_92" +"((lambda x_91" "(unsafe-fx=" " i_42" " len_38))" -" e_12))" +" e_10))" "(not #f)" " #f)" "(for-loop_21" @@ -52076,7 +51658,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_187))))))" +" v_179))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -52110,20 +51692,20 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_242)" +"(lambda(v_234)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_242 in_30 config_10 #f)" -"((letrec-values(((loop_113)" +"(wrap v_234 in_30 config_10 #f)" +"((letrec-values(((loop_111)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_113" +"(loop_111" "(cdr seq_3)))))))" -" loop_113)" +" loop_111)" " seq_2))))))" "(let-values((()" "(begin" @@ -52175,7 +51757,7 @@ static const char *startup_source = "(if(if(pair? lst_299)" " #t" " #f)" -"(let-values(((e_79)" +"(let-values(((e_78)" "(unsafe-car" " lst_299))" "((rest_175)" @@ -52192,7 +51774,7 @@ static const char *startup_source = "(vector-set!" " vec_69" " i_174" -" e_79))" +" e_78))" "(values)))))" "(values)))))" "(if(not #f)" @@ -52226,7 +51808,7 @@ static const char *startup_source = " lst_276)" " #t" " #f)" -"(let-values(((e_80)" +"(let-values(((e_79)" "(unsafe-car" " lst_276))" "((rest_123)" @@ -52243,7 +51825,7 @@ static const char *startup_source = "(fxvector-set!" " vec_69" " i_99" -" e_80))" +" e_79))" "(values)))))" "(values)))))" "(if(not #f)" @@ -52278,7 +51860,7 @@ static const char *startup_source = " lst_98)" " #t" " #f)" -"(let-values(((e_81)" +"(let-values(((e_80)" "(unsafe-car" " lst_98))" "((rest_176)" @@ -52295,7 +51877,7 @@ static const char *startup_source = "(flvector-set!" " vec_69" " i_46" -" e_81))" +" e_80))" "(values)))))" "(values)))))" "(if(not #f)" @@ -52441,7 +52023,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_42)))" "(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_243)" +"(let-values(((v_235)" "(let-values(((in69_0) in_34)" "((config70_0) config_42)" "((accum-str71_0) accum-str_2)" @@ -52451,7 +52033,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_243" +" v_235" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_42))" "(accum-string-get!6.1 0 accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_42)))" @@ -52546,9 +52128,9 @@ static const char *startup_source = "(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_4" -"(lambda(e_82)" +"(lambda(e_81)" "(select-handler/no-breaks" -" e_82" +" e_81" " bpz_4" "(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))" "(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))" @@ -52932,7 +52514,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_112)" "(lambda(mode_21)" "(begin" " 'loop" @@ -53098,7 +52680,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_50)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_114 'eq)))" +"(loop_112 'eq)))" "(if(if(equal? tmp_50 '#\\v)" " #t" "(equal? tmp_50 '#\\V))" @@ -53106,7 +52688,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_50)" "(if(eq? mode_21 'eq)" -"(loop_114 'eqv)" +"(loop_112 'eqv)" "(let-values(((in41_0) in_37)" "((config42_0) config_44)" "((temp43_4)" @@ -53157,7 +52739,7 @@ static const char *startup_source = " config48_1" " temp50_3" "(list temp51_2)))))))))))))))))" -" loop_114)" +" loop_112)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_44)) #t #f)))" "(wrap" @@ -53233,8 +52815,8 @@ static const char *startup_source = " temp63_5" "(list temp64_4))))" "(let-values()" -"(let-values(((v_244)(read-one_8 c_87 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_244)" +"(let-values(((v_236)(read-one_8 c_87 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_236)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53297,7 +52879,7 @@ static const char *startup_source = " temp72_2" "(list temp73_2)))))" "(values))))" -"(let-values(((v_245)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_237)(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_46)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53326,7 +52908,7 @@ static const char *startup_source = " temp75_2" " temp77_1" "(list temp78_3)))))" -"(cons(coerce-key k_42 elem-config_1) v_245))))))))))))))))))))))" +"(cons(coerce-key k_42 elem-config_1) v_237))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 in3_0 config4_0)" @@ -53376,7 +52958,7 @@ static const char *startup_source = "(list mode17_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_113)" "(lambda()" "(begin" " 'loop" @@ -53663,7 +53245,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_201)" +"(let-values(((v_193)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53687,7 +53269,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_201 255)" +"(if(<= v_193 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53729,13 +53311,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_201)))))))))" +" v_193)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_246)" +"(let-values(((v_238)" "(let-values(((in40_1)" " in_37)" "((config41_1)" @@ -53755,13 +53337,13 @@ static const char *startup_source = " config41_1" " accum-str42_0))))" "(begin" -"(if(integer? v_246)" +"(if(integer? v_238)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_44" -" v_246" +" v_238" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53770,7 +53352,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_246))))))" +" v_238))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53785,7 +53367,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_247)" +"(let-values(((v_239)" "(let-values(((in45_0)" " in_37)" "((config46_1)" @@ -53806,23 +53388,23 @@ static const char *startup_source = " accum-str47_0))))" "(begin" "(if(integer?" -" v_247)" +" v_239)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_44" -" v_247" +" v_239" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_63)" "(<" -" v_247" +" v_239" " 55296)))" "(if or-part_63" " or-part_63" "(>" -" v_247" +" v_239" " 57343)))" "(let-values()" "(begin" @@ -53832,7 +53414,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_247))))" +" v_239))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53913,7 +53495,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_247" +" v_239" " 55296)" " 10)" "(-" @@ -54009,7 +53591,7 @@ static const char *startup_source = "(let-values(((pos_20)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_248)" +"(let-values(((v_240)" "(let-values(((in72_0)" " in_37)" "((config73_0)" @@ -54030,26 +53612,26 @@ static const char *startup_source = " accum-str74_0))))" "(begin" "(if(integer?" -" v_248)" +" v_240)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_44" -" v_248" +" v_240" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_248" +" v_240" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_248" +" v_240" " 57343)))" "(<=" -" v_248" +" v_240" " 1114111)" " #f)" "(let-values()" @@ -54060,7 +53642,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_248))))" +" v_240))))" "(let-values()" "(let-values(((in77_1)" " in_37)" @@ -54092,7 +53674,7 @@ static const char *startup_source = "(list" " escaping-c80_0" " temp81_3)))))))))))))))))" -"(loop_115)))))))" +"(loop_113)))))))" " (if (char=? '#\\\" c_89)" "(let-values() null)" "(let-values()" @@ -54118,8 +53700,8 @@ static const char *startup_source = "(list c88_0))))))" "(void))" "(accum-string-add! accum-str_4 c_89)" -"(loop_115)))))))))))" -" loop_115))" +"(loop_113)))))))))))" +" loop_113))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_11 '|byte string|)" @@ -54138,7 +53720,7 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_67)" +"((letrec-values(((loop_65)" "(lambda()" "(begin" " 'loop" @@ -54179,8 +53761,8 @@ static const char *startup_source = "(list))))" "(if(char=? c_91 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_91(loop_67)))))))))))" -" loop_67)))))" +"(let-values()(cons c_91(loop_65)))))))))))" +" loop_65)))))" "(let-values((()" "(begin" "((letrec-values(((loop_53)" @@ -54374,7 +53956,7 @@ static const char *startup_source = "(let-values(((in_51) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_51 special1.1 source_6))))" -"(let-values(((v_230)" +"(let-values(((v_222)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -54383,7 +53965,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_230(<= v_230 255) #f)" +"(if(if v_222(<= v_222 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -54402,7 +53984,7 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_5)))))" -"(integer->char v_230))))))" +"(integer->char v_222))))))" "(let-values() c_95))))" "(if(let-values(((or-part_80)(char=? c_95 '#\\u)))" "(if or-part_80 or-part_80(char=? c_95 '#\\U)))" @@ -54469,7 +54051,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_104)" "(lambda()" "(begin" " 'loop" @@ -54505,16 +54087,16 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_106)))" +"(loop_104)))" "(void)))))))" -" loop_106))" +" loop_104))" "(values))))" -"(let-values(((name_68)" +"(let-values(((name_67)" "(string-foldcase" "(let-values(((accum-str27_0) accum-str_7)" "((config28_1) config_8))" "(accum-string-get!6.1 0 accum-str27_0 config28_1)))))" -"(let-values(((tmp_54) name_68))" +"(let-values(((tmp_54) name_67))" " (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" "(let-values() '#\\nul)" " (if (equal? tmp_54 \"backspace\")" @@ -54540,7 +54122,7 @@ static const char *startup_source = "((config30_0) config_8)" "((temp31_3)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_68))" +"((name32_0) name_67))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -54559,13 +54141,13 @@ static const char *startup_source = "(begin" "(let-values(((wrapped-sym_0)(wrap sym_31 in_49 config_22 c_35)))" "(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_49)))" -"(let-values(((e_83)(read-one_3 #f in_49 config_22)))" +"(let-values(((e_82)(read-one_3 #f in_49 config_22)))" "(begin" -"(if(eof-object? e_83)" +"(if(eof-object? e_82)" "(let-values()" "(let-values(((in1_8) in_49)" "((config2_7) config_22)" -"((e3_0) e_83)" +"((e3_0) e_82)" "((end-pos4_1) end-pos_3)" " ((temp5_7) \"expected an element for ~a, found end-of-file\")" "((desc6_0) desc_0))" @@ -54579,7 +54161,7 @@ static const char *startup_source = " temp5_7" "(list desc6_0))))" "(void))" -"(wrap(list wrapped-sym_0 e_83) in_49 config_22 #f))))))))" +"(wrap(list wrapped-sym_0 e_82) in_49 config_22 #f))))))))" "(define-values" "(read-delimited-constant)" "(lambda(init-c_1 can-match?_0 chars_0 val_79 in_49 config_22)" @@ -54587,7 +54169,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_114)" "(lambda(chars_1)" "(begin" " 'loop" @@ -54649,7 +54231,7 @@ static const char *startup_source = "(begin" "(consume-char in_49 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_116(cdr chars_1))))" +"(loop_114(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_49 config_22 c_37)" @@ -54670,7 +54252,7 @@ static const char *startup_source = " config15_2" " temp16_4" "(list temp17_4)))))))))))))" -" loop_116)" +" loop_114)" " chars_0)" "(wrap" " val_79" @@ -54702,13 +54284,13 @@ static const char *startup_source = "(list dispatch-c4_0)))))" "(values))))" "(let-values(((open-end-line_6 open-end-col_6 open-end-pos_6)(port-next-location in_5)))" -"(let-values(((e_84)(read-one_3 #f in_5(next-readtable config_15))))" +"(let-values(((e_83)(read-one_3 #f in_5(next-readtable config_15))))" "(begin" -"(if(eof-object? e_84)" +"(if(eof-object? e_83)" "(let-values()" "(let-values(((in5_1) in_5)" "((config6_0) config_15)" -"((e7_1) e_84)" +"((e7_1) e_83)" "((open-end-pos8_0) open-end-pos_6)" " ((temp9_6) \"expected an element for `~a&` box, found end-of-file\")" "((dispatch-c10_0) dispatch-c_1))" @@ -54722,7 +54304,7 @@ static const char *startup_source = " temp9_6" "(list dispatch-c10_0))))" "(void))" -"(wrap(box e_84) in_5 config_15 #f))))))))" +"(wrap(box e_83) in_5 config_15 #f))))))))" "(define-values" "(read-regexp)" "(lambda(mode-c_0 accum-str_9 in_5 config_15)" @@ -54988,7 +54570,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_115)" "(lambda()" "(begin" " 'loop" @@ -55040,7 +54622,7 @@ static const char *startup_source = "(begin" "(consume-char in_60 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_117)))" +"(loop_115)))" "(let-values()" "(begin" "(consume-char in_60 c_9)" @@ -55064,7 +54646,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_117))" +" loop_115))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))" @@ -55469,8 +55051,8 @@ static const char *startup_source = " keep-comment?14_1)))" "(let-values()" "(let-values(((config_55)" -"(let-values(((c1_31)(if recursive?_0(current-read-config) #f)))" -"(if c1_31" +"(let-values(((c1_30)(if recursive?_0(current-read-config) #f)))" +"(if c1_30" "((lambda(config_56)" "(let-values(((config52_0) config_56)" "((for-syntax?53_0) for-syntax?_9)" @@ -55487,7 +55069,7 @@ static const char *startup_source = " local-graph?57_0" " wrap54_0" " config52_0)))" -" c1_31)" +" c1_30)" "(let-values()" "(let-values(((readtable59_1) readtable_3)" "((next-readtable60_1) next-readtable_3)" @@ -55587,12 +55169,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_52)" "(let-values()" "(let-values(((line_11 col_10 pos_92)(port-next-location in_62)))" -"(let-values(((v_110)(read-undotted init-c_17 in_62 config_52)))" -"(if(1/special-comment? v_110)" -"(let-values() v_110)" +"(let-values(((v_101)(read-undotted init-c_17 in_62 config_52)))" +"(if(1/special-comment? v_101)" +"(let-values() v_101)" "(let-values()" -"((letrec-values(((loop_118)" -"(lambda(v_112)" +"((letrec-values(((loop_116)" +"(lambda(v_103)" "(begin" " 'loop" "(let-values(((c_103)" @@ -55608,9 +55190,9 @@ static const char *startup_source = "(if(eq? c_104 'special)(special1.1 'special) c_104)))))" "(let-values(((ec_9)(effective-char c_103 config_52)))" "(if(not(char? ec_9))" -"(let-values() v_112)" +"(let-values() v_103)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_62 c_103)(loop_118 v_112)))" +"(let-values()(begin(consume-char in_62 c_103)(loop_116 v_103)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55644,15 +55226,15 @@ static const char *startup_source = " temp82_2" "(list))))" "(void))" -"(loop_118" +"(loop_116" "(wrap" -"(list cdot_0 v_112 post-v_0)" +"(list cdot_0 v_103 post-v_0)" " in_62" "(reading-at config_52 line_11 col_10 pos_92)" " '#\\.)))))))))" -"(let-values() v_112))))))))))" -" loop_118)" -" v_110))))))" +"(let-values() v_103))))))))))" +" loop_116)" +" v_101))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55664,15 +55246,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_31))" "(let-values()" -"(let-values(((v_249)(special-value c_31)))" -"(if(1/special-comment? v_249)" -"(let-values()(if(read-config-keep-comment? config_58) v_249(read-undotted #f in_67 config_58)))" -"(let-values()(coerce v_249 in_67(reading-at config_58 line_12 col_11 pos_121))))))" +"(let-values(((v_241)(special-value c_31)))" +"(if(1/special-comment? v_241)" +"(let-values()(if(read-config-keep-comment? config_58) v_241(read-undotted #f in_67 config_58)))" +"(let-values()(coerce v_241 in_67(reading-at config_58 line_12 col_11 pos_121))))))" "(let-values(((c2_8)(readtable-handler config_58 c_31)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_250)(readtable-apply handler_3 c_31 in_67 config_58 line_12 col_11 pos_121)))" -"(retry-special-comment v_250 in_67 config_58)))" +"(let-values(((v_242)(readtable-apply handler_3 c_31 in_67 config_58 line_12 col_11 pos_121)))" +"(retry-special-comment v_242 in_67 config_58)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_31 config_58)))" @@ -55741,7 +55323,7 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_251)" +"(let-values(((v_243)" "(let-values(((c83_0) c_31)" "((in84_1) in_67)" "((r-config85_0) r-config_0)" @@ -55760,7 +55342,7 @@ static const char *startup_source = " c83_0" " in84_1" " r-config85_0))))" -"(retry-special-comment v_251 in_67 config_58)))" +"(retry-special-comment v_243 in_67 config_58)))" "(let-values()(read-dispatch c_31 in_67 r-config_0 config_58)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_31 in_67 r-config_0))" @@ -56105,9 +55687,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_59)))" "(let-values(((col_12)(read-config-col config_59)))" "(let-values(((pos_122)(read-config-pos config_59)))" -"(let-values(((v_252)" +"(let-values(((v_244)" "(readtable-apply handler_4 c_106 in_69 config_59 line_13 col_12 pos_122)))" -"(retry-special-comment v_252 in_69 orig-config_1))))))" +"(retry-special-comment v_244 in_69 orig-config_1))))))" " c3_9)" "(let-values()" "(let-values()" @@ -56674,11 +56256,11 @@ static const char *startup_source = "(list dispatch-c283_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_253 in_78 config_60)" +"(lambda(v_245 in_78 config_60)" "(begin" -"(if(1/special-comment? v_253)" -"(let-values()(if(read-config-keep-comment? config_60) v_253(read-undotted #f in_78 config_60)))" -"(let-values() v_253)))))" +"(if(1/special-comment? v_245)" +"(let-values()(if(read-config-keep-comment? config_60) v_245(read-undotted #f in_78 config_60)))" +"(let-values() v_245)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?3_0)" @@ -56698,10 +56280,10 @@ static const char *startup_source = "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" "(let-values(((ns_116)(1/current-namespace)))" -"(let-values(((name_40)" +"(let-values(((name_39)" "(let-values(((mod31_0) mod_4)((load?32_0) load?_3))" "(reference->resolved-module-path27.1 load?32_0 mod31_0))))" -"(if(namespace->module ns_116 name_40) #t #f)))))))))))))" +"(if(namespace->module ns_116 name_39) #t #f)))))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?3_0 mod_5 #f)))" "((mod_6 load?1_1)(module-declared?3_0 mod_6 load?1_1)))))" @@ -56719,10 +56301,10 @@ static const char *startup_source = "(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))" "(values))))" "(let-values(((ns_68)(1/current-namespace)))" -"(let-values(((name_69)" +"(let-values(((name_68)" "(let-values(((mod34_0) mod_7)((temp35_5) #f))" "(reference->resolved-module-path27.1 temp35_5 mod34_0))))" -"(let-values(((m_24)(namespace->module ns_68 name_69)))" +"(let-values(((m_24)(namespace->module ns_68 name_68)))" "(if m_24(module-is-predefined? m_24) #f))))))))))" "(define-values" "(module->)" @@ -56830,13 +56412,13 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'module->namespace \"namespace?\" ns_47)))" "(values))))" -"(let-values(((name_41)" +"(let-values(((name_40)" "(let-values(((mod44_0) mod_18)((temp45_1) #t))" "(reference->resolved-module-path27.1 temp45_1 mod44_0))))" "(let-values(((phase_137)(namespace-phase ns_47)))" "(let-values(((m-ns_17)" "(let-values(((ns46_0) ns_47)" -"((name47_1) name_41)" +"((name47_1) name_40)" "((phase48_1) phase_137))" "(namespace->module-namespace82.1" " #f" @@ -56850,12 +56432,12 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_47 name_41)" +"(namespace->module/complain 'module->namespace ns_47 name_40)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" " \"name\"" -" name_41))))" +" name_40))))" "(if(inspector-superior?" "(current-code-inspector)" "(namespace-inspector m-ns_17))" @@ -56865,7 +56447,7 @@ static const char *startup_source = " 'module->namespace" " \"current code inspector cannot access namespace of module\"" " \"module name\"" -" name_41)))" +" name_40)))" "(if(namespace-get-root-expand-ctx m-ns_17)" "(void)" "(let-values()" @@ -56932,13 +56514,13 @@ static const char *startup_source = " \"namespace?\"" " ns_117)))" "(values))))" -"(let-values(((name_70)" +"(let-values(((name_69)" "(let-values(((mod51_0) mod_21)((temp52_3) #f))" "(reference->resolved-module-path27.1 temp52_3 mod51_0))))" "(let-values(((phase_6)(namespace-phase ns_117)))" "(let-values(((m-ns_18)" "(let-values(((ns53_3) ns_117)" -"((name54_0) name_70)" +"((name54_0) name_69)" "((phase55_0) phase_6))" "(namespace->module-namespace82.1" " #f" @@ -56955,7 +56537,7 @@ static const char *startup_source = " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_70)))" +" name_69)))" "(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" "(let-values()" "(set-namespace-inspector!" @@ -56968,12 +56550,12 @@ static const char *startup_source = "((insp_9 mod_23 ns19_2)(namespace-unprotect-module22_0 insp_9 mod_23 ns19_2)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_33 ns_118 name_71)" +"(lambda(who_33 ns_118 name_70)" "(begin" -"(let-values(((or-part_211)(namespace->module ns_118 name_71)))" +"(let-values(((or-part_211)(namespace->module ns_118 name_70)))" "(if or-part_211" " or-part_211" -" (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" +" (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_70))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" @@ -57148,17 +56730,17 @@ 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_254 srcloc_12)" +"(lambda(for-syntax?_12 v_246 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_254)(let-values()(syntax->datum$1 v_254))(let-values() v_254)))" -"(if(syntax?$1 v_254)" -"(let-values() v_254)" -"(if(list? v_254)" +"(let-values()(if(syntax?$1 v_246)(let-values()(syntax->datum$1 v_246))(let-values() v_246)))" +"(if(syntax?$1 v_246)" +"(let-values() v_246)" +"(if(list? v_246)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_188) v_254))" +"(let-values(((lst_188) v_246))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -57168,7 +56750,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_287)" -"(let-values(((e_85)(unsafe-car lst_287))" +"(let-values(((e_84)(unsafe-car lst_287))" "((rest_162)(unsafe-cdr lst_287)))" "(let-values(((fold-var_240)" "(let-values(((fold-var_241) fold-var_235))" @@ -57176,7 +56758,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(read-coerce #t e_85 srcloc_12))" +"(read-coerce #t e_84 srcloc_12))" " fold-var_241))))" "(values fold-var_242)))))" "(if(not #f)(for-loop_121 fold-var_240 rest_162) fold-var_240)))" @@ -57186,13 +56768,13 @@ static const char *startup_source = " lst_188))))" " srcloc_12" " #f))" -"(if(pair? v_254)" +"(if(pair? v_246)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_254) srcloc_12)(read-coerce #t(cdr v_254) srcloc_12))" +"(cons(read-coerce #t(car v_246) srcloc_12)(read-coerce #t(cdr v_246) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_254 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_246 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_0 k_43)" @@ -57281,16 +56863,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if((lambda(x_93)" -"(let-values(((or-part_298)(not x_93)))" -"(if or-part_298 or-part_298(char? x_93))))" +"(if((lambda(x_92)" +"(let-values(((or-part_298)(not x_92)))" +"(if or-part_298 or-part_298(char? x_92))))" " start_59)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" -"(if((lambda(x_94)" -"(let-values(((or-part_90)(not x_94)))" -"(if or-part_90 or-part_90(1/readtable? x_94))))" +"(if((lambda(x_93)" +"(let-values(((or-part_90)(not x_93)))" +"(if or-part_90 or-part_90(1/readtable? x_93))))" " readtable_7)" "(void)" "(let-values()" @@ -57343,15 +56925,15 @@ static const char *startup_source = "(if(input-port? in_79)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_79)))" -"(if((lambda(x_95)" -"(let-values(((or-part_31)(not x_95)))" -"(if or-part_31 or-part_31(char? x_95))))" +"(if((lambda(x_94)" +"(let-values(((or-part_31)(not x_94)))" +"(if or-part_31 or-part_31(char? x_94))))" " start_61)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_96)" -"(let-values(((or-part_159)(not x_96)))" -"(if or-part_159 or-part_159(1/readtable? x_96))))" +"(if((lambda(x_95)" +"(let-values(((or-part_159)(not x_95)))" +"(if or-part_159 or-part_159(1/readtable? x_95))))" " readtable_9)" "(void)" "(let-values()" @@ -57379,7 +56961,7 @@ static const char *startup_source = "(if(input-port? in_17)" "(void)" " (let-values () (raise-argument-error 'read-language \"input-port?\" in_17)))" -"(if((lambda(p_75)(if(procedure? p_75)(procedure-arity-includes? p_75 0) #f))" +"(if((lambda(p_67)(if(procedure? p_67)(procedure-arity-includes? p_67 0) #f))" " fail-thunk_2)" "(void)" "(let-values()" @@ -57397,9 +56979,9 @@ static const char *startup_source = " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" "(declare-primitive-module!)" -"(lambda(name_72 inst_6 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_71 inst_6 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_72) #f)))" +"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_71) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_0)(1/current-module-declare-source))" @@ -57538,13 +57120,13 @@ static const char *startup_source = " temp4_0" " null" " #f)))" -"((temp3_9)(substitute-module-declare-name name_72)))" +"((temp3_9)(substitute-module-declare-name name_71)))" "(declare-module!58.1 #t in-ns1_0 temp2_6 temp3_9))))))" "(define-values" "(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" -"(lambda(v_30 info_6)" +"(lambda(v_30 info_5)" "(begin" "(if(if(procedure? v_30)(procedure-arity-includes? v_30 1) #f)" "(void)" @@ -57556,7 +57138,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:_84 make-_84 ?_84 -ref_84 -set!_84)" +"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57566,19 +57148,19 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_86)(1/exn:fail:filesystem:missing-module-path e_86))))" +"(cons 1/prop:exn:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" " #f" " #f" " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_84 make-_84 ?_84(make-struct-field-accessor -ref_84 0 'path))))" +"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 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:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57588,24 +57170,24 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_33)(1/exn:fail:syntax:missing-module-path e_33))))" +"(cons 1/prop:exn:missing-module(lambda(e_32)(1/exn:fail:syntax:missing-module-path e_32))))" " #f" " #f" " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_68 make-_68 ?_68(make-struct-field-accessor -ref_68 0 'path))))" +"(values struct:_61 make-_61 ?_61(make-struct-field-accessor -ref_61 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_234)" +"(lambda(v_226)" "(begin" -"(if(let-values(((or-part_67)(not v_234)))" +"(if(let-values(((or-part_67)(not v_226)))" "(if or-part_67" " or-part_67" -"(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)))))" +"(let-values(((or-part_68)(1/module-path? v_226)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_226)(1/module-path?(syntax->datum$1 v_226)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57614,11 +57196,11 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_234)))" -" v_234))))" +" v_226)))" +" v_226))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" "(let-values(((path_11)(1/current-module-path-for-load)))" "(if path_11" @@ -57634,7 +57216,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_73)" +"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_72)" "(syntax->datum$1 path_11)" " filename_0" " pre_0" @@ -57653,7 +57235,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_73" +" name_72" " path_11" " filename_0" " pre_0" @@ -58786,8 +58368,8 @@ static const char *startup_source = "(lambda(alts14_0 extras15_0 namespace12_0 primitive?16_0 protected?17_0 skip13_0 to11_0 name25_1)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_74) name25_1))" -"(let-values(((to-name_0)(if(eq? to11_0 unsafe-undefined) name_74 to11_0)))" +"(let-values(((name_73) name25_1))" +"(let-values(((to-name_0)(if(eq? to11_0 unsafe-undefined) name_73 to11_0)))" "(let-values(((ns_121) namespace12_0))" "(let-values(((skip-syms_0)(if(eq? skip13_0 unsafe-undefined)(seteq) skip13_0)))" "(let-values(((alts_0)(if(eq? alts14_0 unsafe-undefined) '#hasheq() alts14_0)))" @@ -58795,7 +58377,7 @@ static const char *startup_source = "(let-values(((primitive?_9) primitive?16_0))" "(let-values(((protected?_10) protected?17_0))" "(let-values()" -"(let-values(((prims_0)(1/primitive-table name_74)))" +"(let-values(((prims_0)(1/primitive-table name_73)))" "(let-values((()" "(begin" "(let-values(((ht_156) prims_0))" @@ -58893,7 +58475,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_169" -"(let-values(((k_44 v_49)" +"(let-values(((k_44 v_83)" "(hash-iterate-key+value" " ht_146" " i_169)))" @@ -58905,7 +58487,7 @@ static const char *startup_source = "(hash-set" " ht_160" " k_44" -" v_49))))" +" v_83))))" "(values ht_161)))))" "(if(not #f)" "(for-loop_253" @@ -58934,7 +58516,7 @@ static const char *startup_source = "(lambda(namespace29_0 primitive?30_0 protected32_0 protected?31_0 register-builtin?33_0 name39_0 ht40_0)" "(begin" " 'declare-hash-based-module!41" -"(let-values(((name_75) name39_0))" +"(let-values(((name_74) name39_0))" "(let-values(((ht_162) ht40_0))" "(let-values(((ns_122) namespace29_0))" "(let-values(((primitive?_10) primitive?30_0))" @@ -58942,7 +58524,7 @@ static const char *startup_source = "(let-values(((protected-syms_0) protected32_0))" "(let-values(((register-builtin?_0) register-builtin?33_0))" "(let-values()" -"(let-values(((mpi_5)(1/module-path-index-join(list 'quote name_75) #f)))" +"(let-values(((mpi_5)(1/module-path-index-join(list 'quote name_74) #f)))" "(let-values(((ns66_0) ns_122)" "((temp67_4)" "(let-values(((temp69_4) #t)" @@ -59110,12 +58692,12 @@ static const char *startup_source = "(lambda(namespace45_0 reexport?44_0 name48_0 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_76) name48_0))" +"(let-values(((name_75) name48_0))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0) reexport?44_0))" "(let-values(((ns_124) namespace45_0))" "(let-values()" -"(let-values(((mpi_52)(1/module-path-index-join(list 'quote name_76) #f)))" +"(let-values(((mpi_52)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" "(let-values(((lst_108) require-names_0))" @@ -59500,10 +59082,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_97)(TH-place-channel-ref x_97 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_96)(TH-place-channel-ref x_96 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_98)(TH-place-channel-ref x_98 0))(lambda(x_84)(TH-place-channel-ref x_84 1))))" +"(values(lambda(x_97)(TH-place-channel-ref x_97 0))(lambda(x_83)(TH-place-channel-ref x_83 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59641,8 +59223,8 @@ static const char *startup_source = "(if(if(syntax?$1 exp_0)" "(if(pair?(1/syntax-e exp_0))" "(if(eq? 'module(1/syntax-e(car(1/syntax-e exp_0))))" -"(let-values(((r_42)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_4)(if(syntax?$1 r_42)(1/syntax-e r_42) r_42)))" +"(let-values(((r_39)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_4)(if(syntax?$1 r_39)(1/syntax-e r_39) r_39)))" "(if(pair? r_4)(identifier?(car r_4)) #f)))" " #f)" " #f)" @@ -59706,8 +59288,8 @@ static const char *startup_source = "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_32)(linklet-directory-start i_179)))" -"(if c1_32" +"(let-values(((c1_31)(linklet-directory-start i_179)))" +"(if c1_31" "((lambda(pos_123)" "(let-values(((b-pos_0)" "(search-directory i_179 pos_123(encode-symbols expected-mod_0))))" @@ -59736,12 +59318,12 @@ static const char *startup_source = " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" "(object-name i_179)))))))" -" c1_32)" +" c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" "(let-values(((c2_17)(cached-bundle i_179)))" "(if c2_17" -"((lambda(thunk_8) thunk_8) c2_17)" +"((lambda(thunk_7) thunk_7) c2_17)" "(let-values()" "(let-values(((s_178)(1/read-syntax(object-name i_179) i_179)))" "(let-values((()" @@ -59871,7 +59453,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_237)" -"(lambda(result_124 pos_99)" +"(lambda(result_28 pos_99)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_99 len_37)" @@ -59882,10 +59464,10 @@ static const char *startup_source = "(let-values()" "(let-values()(not(eq? c_52 0))))))" "(values result_126)))))" -"(if(if(not((lambda x_99 result_125) c_52))(not #f) #f)" +"(if(if(not((lambda x_98 result_125) c_52))(not #f) #f)" "(for-loop_237 result_125(unsafe-fx+ 1 pos_99))" " result_125)))" -" result_124)))))" +" result_28)))))" " for-loop_237)" " #f" " 0)))" @@ -59909,7 +59491,7 @@ static const char *startup_source = "(lambda(i_182)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_187)(read-byte i_182)))(if(eof-object? v_187) 0 v_187))))))" +"(let-values(((v_179)(read-byte i_182)))(if(eof-object? v_179) 0 v_179))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59924,9 +59506,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_183 pos_124)(values))))" "(let-values(((name-len_0)(read-number i_183)))" -"(let-values(((v_255)(read-bytes name-len_0 i_183)))" +"(let-values(((v_247)(read-bytes name-len_0 i_183)))" "(begin" -"(if(if(bytes? v_255)(=(bytes-length v_255) name-len_0) #f)" +"(if(if(bytes? v_247)(=(bytes-length v_247) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59940,10 +59522,10 @@ static const char *startup_source = "(object-name i_183)" " pos_124" " name-len_0" -" v_255)))" -"(if(bytes=? bstr_5 v_255)" +" v_247)))" +"(if(bytes=? bstr_5 v_247)" "(let-values()(read-number i_183))" -"(if(bytescomplete-path path_13))" -"(let-values()(with-module-reading-parameterization thunk_9)))" -"(with-module-reading-parameterization thunk_9)))))" +"(let-values()(with-module-reading-parameterization thunk_8)))" +"(with-module-reading-parameterization thunk_8)))))" "(define-values" "(call-with-input-module-file)" "(lambda(path_14 proc_10)" @@ -60071,7 +59653,7 @@ static const char *startup_source = "(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))" " #f)))))" "(let-values(((with-dir*_0)" -"(lambda(base_23 t_60)" +"(lambda(base_23 t_59)" "(begin" " 'with-dir*" "(with-continuation-mark" @@ -60080,7 +59662,7 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" "(if(path? base_23) base_23(current-directory)))" -"(let-values()(t_60)))))))" +"(let-values()(t_59)))))))" "(lambda(path_15 expect-module_0)" "(begin" "(let-values((()" @@ -60112,12 +59694,12 @@ static const char *startup_source = " \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\"" " path_15)))" "(values))))" -"(let-values(((name_55)(if expect-module_0(1/current-module-declare-name) #f)))" +"(let-values(((name_54)(if expect-module_0(1/current-module-declare-name) #f)))" "(let-values(((ns-hts_0)" -"(if name_55" +"(if name_54" "(registry-table-ref(namespace-module-registry$1(1/current-namespace)))" " #f)))" -"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_55 #f) #f)))" +"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_54 #f) #f)))" "(if use-path/src_0" "(with-continuation-mark" " parameterization-key" @@ -60157,14 +59739,14 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_76 d_37)" +"(lambda(p_68 d_37)" "(begin" " 'reroot" "(if(eq? d_37 'same)" -"(let-values() p_76)" +"(let-values() p_68)" "(if(relative-path? d_37)" -"(let-values()(build-path p_76 d_37))" -"(let-values()(reroot-path p_76 d_37))))))))" +"(let-values()(build-path p_68 d_37))" +"(let-values()(reroot-path p_68 d_37))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -60218,11 +59800,11 @@ static const char *startup_source = "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" -"(lambda(t_61)" +"(lambda(t_60)" "(begin" " 'with-dir" -"(with-dir*_0 base_25 t_61)))))" -"(let-values(((c1_33)" +"(with-dir*_0 base_25 t_60)))))" +"(let-values(((c1_32)" "(if try-main?_0" "(date>=?_0" " modes_3" @@ -60230,7 +59812,7 @@ static const char *startup_source = " so_0" " path-d_0)" " #f)))" -"(if c1_33" +"(if c1_32" "((lambda(so-d_0)" "(with-continuation-mark" " parameterization-key" @@ -60246,7 +59828,7 @@ static const char *startup_source = "((current-load-extension)" "(car so-d_0)" " expect-module_0))))))" -" c1_33)" +" c1_32)" "(let-values(((c2_18)" "(if try-alt?_0" "(date>=?_0" @@ -60284,7 +59866,7 @@ static const char *startup_source = "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_55" +" name_54" " ns-hts_0" "(car zo-d_0)" " #f" @@ -60316,7 +59898,7 @@ static const char *startup_source = "((lambda(zo-d_1)" "(begin" "(register-zo-path" -" name_55" +" name_54" " ns-hts_0" "(car zo-d_1)" " alt-path_0" @@ -60344,14 +59926,14 @@ static const char *startup_source = " or-part_371" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_77)" +"(let-values(((p_69)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_77))" +"(file-exists? p_69))" " #f)" "(void)" "(let-values()" @@ -60364,51 +59946,51 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_77" +" p_69" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_77" +" p_69" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(lambda(name_77 ns-hts_1 path_17 src-path_0 base_26)" -"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_77(list path_17 src-path_0 base_26)))(void)))))" +"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_26)" +"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_26)))(void)))))" "(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))" "(define-values(-module-hash-table-table)(make-weak-hasheq))" "(define-values" "(registry-table-ref)" "(lambda(reg_0)" -"(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" +"(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_205)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_205)))))" +"(lambda(reg_1 v_197)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_197)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_47)" +"(lambda(p_38)" "(begin" -"(let-values(((i_45)(modulo(abs(equal-hash-code p_47)) CACHE-N)))" +"(let-values(((i_45)(modulo(abs(equal-hash-code p_38)) CACHE-N)))" "(let-values(((w_1)(vector-ref -path-cache i_45)))" "(let-values(((l_84)(if w_1(weak-box-value w_1) #f)))" -"(if l_84(let-values(((a_77)(1/assoc p_47 l_84)))(if a_77(cdr a_77) #f)) #f)))))))" +"(if l_84(let-values(((a_77)(1/assoc p_38 l_84)))(if a_77(cdr a_77) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_78 v_256)" +"(lambda(p_70 v_248)" "(begin" -"(let-values(((i_164)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" +"(let-values(((i_164)(modulo(abs(equal-hash-code p_70)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_164)))" "(let-values(((l_19)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" " i_164" "(make-weak-box" -"(cons(cons p_78 v_256)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" +"(cons(cons p_70 v_248)(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)" @@ -60577,7 +60159,7 @@ static const char *startup_source = "(lambda(base_27 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_117)" "(lambda(a_78 l_35)" "(begin" " 'loop" @@ -60604,12 +60186,12 @@ static const char *startup_source = " 'file)" " base_27)))" " orig-l_10))" -"(loop_119(cdr a_78)(cdr l_35))))" +"(loop_117(cdr a_78)(cdr l_35))))" "(let-values()" -"(loop_119" +"(loop_117" "(cons(car l_35) a_78)" "(cdr l_35)))))))))" -" loop_119)" +" loop_117)" " null" " orig-l_10)))))" "(if(if(pair? s_500)(eq?(car s_500) 'quote) #f)" @@ -60626,11 +60208,11 @@ static const char *startup_source = " (if (let-values (((or-part_101) (equal? (cadr s_500) \".\")))" " (if or-part_101 or-part_101 (equal? (cadr s_500) \"..\")))" "(if relto_1" -"(let-values(((p_79)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_372)(symbol? p_79)))" +"(let-values(((p_71)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_372)(symbol? p_71)))" "(if or-part_372" " or-part_372" -"(if(pair? p_79)(symbol?(car p_79)) #f))))" +"(if(pair? p_71)(symbol?(car p_71)) #f))))" " #f)" " #f)" " #f)" @@ -60640,9 +60222,9 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_47)" +"(let-values(((r_44)" " (if (equal? (cadr s_500) \"..\") (cdr s_500) (cddr s_500))))" -"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_44) r_44))))))" "(if(if(pair? s_500)(eq?(car s_500) 'planet) #f)" "(let-values()" "(begin" @@ -60672,19 +60254,19 @@ static const char *startup_source = "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_80)" +"(let-values(((p_72)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_81)" -"(if(pair? p_80)" -"(car p_80)" -" p_80)))" -"(if(path? p_81)" +"(let-values(((p_73)" +"(if(pair? p_72)" +"(car p_72)" +" p_72)))" +"(if(path? p_73)" "(let-values(((base_28" -" n_36" +" n_35" " d?_0)" "(split-path" -" p_81)))" +" p_73)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -60761,19 +60343,19 @@ static const char *startup_source = " \".rkt\")" " s_496)))))" "((path-ss->rkt_0)" -"(lambda(p_82)" +"(lambda(p_74)" "(begin" " 'path-ss->rkt" -"(let-values(((base_29 name_78 dir?_8)" -"(split-path p_82)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" -" (path-replace-extension p_82 #\".rkt\")" -" p_82)))))" +"(let-values(((base_29 name_77 dir?_8)" +"(split-path p_74)))" +" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" +" (path-replace-extension p_74 #\".rkt\")" +" p_74)))))" "((s_501)" "(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((v_257)(cadr s_500)))" -" (if (let-values (((or-part_375) (equal? v_257 \".\")))" -" (if or-part_375 or-part_375 (equal? v_257 \"..\")))" +"(let-values(((v_249)(cadr s_500)))" +" (if (let-values (((or-part_375) (equal? v_249 \".\")))" +" (if or-part_375 or-part_375 (equal? v_249 \"..\")))" "(if relto_1" "(let-values(((p_7)" "(1/resolved-module-path-name" @@ -60783,11 +60365,11 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_500))" -" v_257))" +" v_249))" " s_500))" "((subm-path_0)" "(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((p_83)" +"(let-values(((p_75)" "(if(if(let-values(((or-part_168)" "(equal?" "(cadr s_500)" @@ -60797,26 +60379,26 @@ static const char *startup_source = " (equal? (cadr s_500) \"..\")))" " relto_1" " #f)" -"(let-values(((p_84)" +"(let-values(((p_76)" "(1/resolved-module-path-name" " relto_1))" -"((r_48)" +"((r_45)" "(if(equal?" "(cadr s_500)" " \"..\")" "(cdr s_500)" "(cddr s_500))))" -"(if(pair? p_84)" +"(if(pair? p_76)" "(flatten-sub-path_0" -"(car p_84)" -"(append(cdr p_84) r_48))" -"(flatten-sub-path_0 p_84 r_48)))" +"(car p_76)" +"(append(cdr p_76) r_45))" +"(flatten-sub-path_0 p_76 r_45)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_500) \"..\")" "(cdr s_500)" "(cddr s_500))))))" -"(if(pair? p_83)(cdr p_83) #f))" +"(if(pair? p_75)(cdr p_75) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_501)" @@ -60963,7 +60545,7 @@ static const char *startup_source = "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 1)" "(normal-case-path filename_2))))" -"(let-values(((base_30 name_79 dir?_9)" +"(let-values(((base_30 name_78 dir?_9)" "(if(vector? s-parsed_0)" "(values" " 'ignored" @@ -60973,7 +60555,7 @@ static const char *startup_source = "(let-values(((no-sfx_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 3)" -" (path-replace-extension name_79 #\"\"))))" +" (path-replace-extension name_78 #\"\"))))" "(let-values(((root-modname_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 4)" @@ -61081,10 +60663,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_20" -"(lambda(p_85)" +"(lambda(p_77)" "(1/datum->syntax" " #f" -" p_85" +" p_77" " stx_20))" " values)" "(if(symbol? s_501)" @@ -61146,7 +60728,7 @@ static const char *startup_source = "(vector" " filename_2" " normal-filename_0" -" name_79" +" name_78" " no-sfx_0" " root-modname_0)))" "(void))" @@ -61160,13 +60742,13 @@ static const char *startup_source = " s_36" "(1/current-namespace)" "(let-values(((c_112)(1/current-compile)))" -"(lambda(e_88 ns_17)" +"(lambda(e_87 ns_17)" "(if(eq? ns_17(1/current-namespace))" -"(c_112 e_88 #t)" +"(c_112 e_87 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_17)" -"(let-values()(c_112 e_88 #t))))))))))" +"(let-values()(c_112 e_87 #t))))))))))" "(define-values" "(default-compile-handler)" "(lambda(s_502 immediate-eval?_0)(begin(1/compile s_502(1/current-namespace)(not immediate-eval?_0)))))" @@ -61283,8 +60865,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_258) ctx_77))" -"(let-values(((the-struct_90) v_258))" +"(let-values(((v_250) ctx_77))" +"(let-values(((the-struct_90) v_250))" "(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" @@ -61303,7 +60885,7 @@ static const char *startup_source = "(cons" " frame-id_7" "(expand-context-reference-records ctx_77)))" -"((inner60_0)(root-expand-context/outer-inner v_258)))" +"((inner60_0)(root-expand-context/outer-inner v_250)))" "(expand-context/outer1.1" " inner60_0" " post-expansion55_0" @@ -61333,8 +60915,8 @@ static const char *startup_source = "(expand-context-binding-layer ctx_77))" "(increment-binding-layer ids_29 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_80)(expand-context-name ctx_77)))" -"((letrec-values(((loop_120)" +"(let-values(((name_79)(expand-context-name ctx_77)))" +"((letrec-values(((loop_118)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -61360,7 +60942,7 @@ static const char *startup_source = "((temp69_5)(reverse$1 done-bodys_0))" "((s70_0) s_503)" "((stratified?71_0) stratified?_0)" -"((name72_0) name_80)" +"((name72_0) name_79)" "((temp73_4)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp73_4" @@ -61394,21 +60976,21 @@ static const char *startup_source = "(let-values(((exp-body_0)" "(let-values(((temp74_3)(car bodys_8))" "((temp75_5)" -"(if(if name_80" +"(if(if name_79" "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_259)" +"(let-values(((v_251)" " body-ctx_2))" "(let-values(((the-struct_91)" -" v_259))" +" v_251))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((name76_0)" -" name_80)" +" name_79)" "((inner77_0)" "(root-expand-context/outer-inner" -" v_259)))" +" v_251)))" "(expand-context/outer1.1" " inner77_0" "(root-expand-context/outer-post-expansion" @@ -61524,11 +61106,11 @@ static const char *startup_source = " begin78_1" " e79_1))))))" "(let-values(((track_0)" -"(lambda(e_89)" +"(lambda(e_88)" "(begin" " 'track" "(syntax-track-origin$1" -" e_89" +" e_88" " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" @@ -61546,7 +61128,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_120" +"(loop_118" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -61920,11 +61502,11 @@ static const char *startup_source = " body-ctx_2)" " lst_228" " lst_307)))))" -"(loop_120" -"(let-values(((v_260)" +"(loop_118" +"(let-values(((v_252)" " body-ctx_2))" "(let-values(((the-struct_92)" -" v_260))" +" v_252))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((env101_0)" @@ -61935,7 +61517,7 @@ static const char *startup_source = " body-ctx_2))" "((inner103_0)" "(root-expand-context/outer-inner" -" v_260)))" +" v_252)))" "(expand-context/outer1.1" " inner103_0" "(root-expand-context/outer-post-expansion" @@ -62604,11 +62186,11 @@ static const char *startup_source = " obs_74" " 'exit-bind)))" "(void)))" -"(loop_120" -"(let-values(((v_261)" +"(loop_118" +"(let-values(((v_253)" " body-ctx_2))" "(let-values(((the-struct_93)" -" v_261))" +" v_253))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((env123_0)" @@ -62619,7 +62201,7 @@ static const char *startup_source = " body-ctx_2))" "((inner125_0)" "(root-expand-context/outer-inner" -" v_261)))" +" v_253)))" "(expand-context/outer1.1" " inner125_0" "(root-expand-context/outer-post-expansion" @@ -62679,7 +62261,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_120" +"(loop_118" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -62707,7 +62289,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_120" +"(loop_118" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -62718,7 +62300,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_120)" +" loop_118)" " body-ctx_0" " init-bodys_0" " null" @@ -62757,7 +62339,7 @@ static const char *startup_source = "(let-values(((done-bodys_1) done-bodys26_0))" "(let-values(((s_233) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_81) name12_0))" +"(let-values(((name_80) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -62771,11 +62353,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_262)" +"(let-values(((v_254)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_262))" +"(let-values(((the-struct_94) v_254))" "(if(expand-context/outer? the-struct_94)" "(let-values(((context126_0) 'expression)" "((use-site-scopes127_0)(box null))" @@ -62789,7 +62371,7 @@ static const char *startup_source = "((def-ctx-scopes130_0) #f)" "((post-expansion131_0) #f)" "((inner132_0)" -"(root-expand-context/outer-inner v_262)))" +"(root-expand-context/outer-inner v_254)))" "(expand-context/outer1.1" " inner132_0" " post-expansion131_0" @@ -62903,22 +62485,22 @@ static const char *startup_source = "(let-values(((done-body133_0)" " done-body_4)" "((temp134_3)" -"(if(if name_81" +"(if(if name_80" "(=" " i_14" " last-i_1)" " #f)" -"(let-values(((v_263)" +"(let-values(((v_255)" " finish-ctx_0))" "(let-values(((the-struct_95)" -" v_263))" +" v_255))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((name135_0)" -" name_81)" +" name_80)" "((inner136_0)" "(root-expand-context/outer-inner" -" v_263)))" +" v_255)))" "(expand-context/outer1.1" " inner136_0" "(root-expand-context/outer-post-expansion" @@ -63645,15 +63227,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_264) ctx_81))" -"(let-values(((the-struct_96) v_264))" +"(let-values(((v_256) ctx_81))" +"(let-values(((the-struct_96) v_256))" "(if(expand-context/outer? the-struct_96)" "(let-values(((env41_0) body-env_0)" "((scopes42_0)(cons sc_37(expand-context-scopes ctx_81)))" "((binding-layer43_0)" "(increment-binding-layer ids_34 ctx_81 sc_37))" "((frame-id44_0) #f)" -"((inner45_0)(root-expand-context/outer-inner v_264)))" +"((inner45_0)(root-expand-context/outer-inner v_256)))" "(expand-context/outer1.1" " inner45_0" "(root-expand-context/outer-post-expansion the-struct_96)" @@ -64076,7 +63658,7 @@ static const char *startup_source = "(parse-and-flatten-formals)" "(lambda(all-formals_0 sc_38 s_530)" "(begin" -"((letrec-values(((loop_121)" +"((letrec-values(((loop_119)" "(lambda(formals_9)" "(begin" " 'loop" @@ -64084,12 +63666,12 @@ static const char *startup_source = "(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))" -"(if(null? p_86)" +"(let-values(((p_78)(syntax-e$1 formals_9)))" +"(if(pair? p_78)" +"(let-values()(loop_119 p_78))" +"(if(null? p_78)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_530 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_530 p_78))))))" "(if(pair? formals_9)" "(let-values()" "(begin" @@ -64099,29 +63681,29 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"not an identifier\" s_530 (car formals_9))))" "(cons" "(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))" -"(loop_121(cdr formals_9)))))" +"(loop_119(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" " (raise-syntax-error$1 \"bad argument sequence\" s_530 all-formals_0))))))))))" -" loop_121)" +" loop_119)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_120)" "(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_120(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_120 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_122)" +" loop_120)" " keys_8" " formals_10))))" "(define-values" @@ -66056,8 +65638,8 @@ static const char *startup_source = "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_182) expr-ctx_0))" -"(let-values(((the-struct_97) v_182))" +"(let-values(((v_174) expr-ctx_0))" +"(let-values(((the-struct_97) v_174))" "(if(expand-context/outer?" " the-struct_97)" "(let-values(((env184_0)" @@ -66082,7 +65664,7 @@ static const char *startup_source = " sc_39))" "((inner188_0)" "(root-expand-context/outer-inner" -" v_182)))" +" v_174)))" "(expand-context/outer1.1" " inner188_0" "(root-expand-context/outer-post-expansion" @@ -66267,17 +65849,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_265)" +"(let-values(((v_257)" " rec-ctx_0))" "(let-values(((the-struct_98)" -" v_265))" +" v_257))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" "(root-expand-context/outer-inner" -" v_265)))" +" v_257)))" "(expand-context/outer1.1" " inner196_0" "(root-expand-context/outer-post-expansion" @@ -66841,7 +66423,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_405)" -"(let-values(((e_90)(unsafe-car lst_405))" +"(let-values(((e_89)(unsafe-car lst_405))" "((rest_238)" "(unsafe-cdr lst_405)))" "(let-values(((fold-var_373)" @@ -66863,7 +66445,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(let-values(((e255_0)" -" e_90)" +" e_89)" "((expr-ctx256_0)" " expr-ctx_1))" "(expand9.1" @@ -67545,7 +67127,7 @@ static const char *startup_source = "(let-values(((ctx354_0) ctx_93)((s355_0) s_678))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_121)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -67595,8 +67177,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_121 rest-es_1(sub1 index_6))))))))))))" +" loop_121)" " e351_0" " list-start-index_0)))" "(begin" @@ -67955,7 +67537,7 @@ static const char *startup_source = "(let-values()(raise-ambiguous-error id_124 ctx_99))" "(void))" "(values))))" -"(let-values(((t_62 primitive?_11 insp_24 protected?_12)" +"(let-values(((t_61 primitive?_11 insp_24 protected?_12)" "(if binding_29" "(let-values(((binding405_0) binding_29)" "((ctx406_0) ctx_99)" @@ -67968,7 +67550,7 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_120 'resolve id_124)))" "(void)))" -"(if(let-values(((or-part_390)(variable? t_62)))" +"(if(let-values(((or-part_390)(variable? t_61)))" "(if or-part_390" " or-part_390" "(if(not binding_29)" @@ -68027,7 +67609,7 @@ static const char *startup_source = "(list" " set!392_0" "(let-values(((id414_0) id_124)" -"((t415_0) t_62)" +"((t415_0) t_61)" "((temp416_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops ctx_99)" @@ -68048,9 +67630,9 @@ static const char *startup_source = " id_124" " null" "(syntax-debug-info-string id_124 ctx_99)))" -"(if(1/set!-transformer? t_62)" +"(if(1/set!-transformer? t_61)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_99)" +"(if(not-in-this-expand-context? t_61 ctx_99)" "(let-values()" "(let-values(((temp417_0)" "(avoid-current-expand-context" @@ -68062,13 +67644,13 @@ static const char *startup_source = " id_124" " from-rename?_0" " ctx_99)" -" t_62" +" t_61" " ctx_99))" "((ctx418_0) ctx_99))" "(expand9.1 #f #f #f temp417_0 ctx418_0)))" "(let-values()" "(let-values(((exp-s_13 re-ctx_1)" -"(let-values(((t419_0) t_62)" +"(let-values(((t419_0) t_61)" "((insp420_0) insp_24)" "((s421_0) s_705)" "((orig-id422_0) orig-id_1)" @@ -68089,9 +67671,9 @@ static const char *startup_source = "(let-values(((exp-s426_0) exp-s_13)" "((re-ctx427_0) re-ctx_1))" "(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))" -"(if(1/rename-transformer? t_62)" +"(if(1/rename-transformer? t_61)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_99)" +"(if(not-in-this-expand-context? t_61 ctx_99)" "(let-values()" "(let-values(((temp428_0)" "(avoid-current-expand-context" @@ -68103,15 +67685,15 @@ static const char *startup_source = " id_124" " from-rename?_0" " ctx_99" -" t_62)" -" t_62" +" t_61)" +" t_61" " ctx_99))" "((ctx429_0) ctx_99))" "(expand9.1 #f #f #f temp428_0 ctx429_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_62 ctx_99)" +"(rename-transformer-target-in-context t_61 ctx_99)" " id_124" " id_124)" " #t))))" @@ -68137,14 +67719,14 @@ static const char *startup_source = "(let-values(((rhs-s_0) rhs-s28_0))" "(let-values(((from-rename?_1) from-rename?29_0))" "(let-values(((ctx_100) ctx30_0))" -"(let-values(((t_63) t23_0))" +"(let-values(((t_62) t23_0))" "(let-values()" -"(if(let-values(((or-part_392) t_63))" +"(if(let-values(((or-part_392) t_62))" "(if or-part_392 or-part_392 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" -"(if t_63" -"(rename-transformer-target-in-context t_63 ctx_100)" +"(if t_62" +"(rename-transformer-target-in-context t_62 ctx_100)" " id_125)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -68338,7 +67920,7 @@ static const char *startup_source = " null" "(syntax-debug-info-string var-id_0 ctx_103))))" "(values))))" -"(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)" +"(let-values(((t_63 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_30" "(let-values(((binding450_0) binding_30)" "((ctx451_0) ctx_103)" @@ -68348,7 +67930,7 @@ static const char *startup_source = "(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)" +"(if(if t_63(not(variable? t_63)) #f)" "(let-values()" " (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_720))" "(void))" @@ -68471,7 +68053,7 @@ static const char *startup_source = "(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_107)" "(begin" "(let-values(((ns_125)(expand-context-namespace ctx_107)))" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_114)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" @@ -68714,13 +68296,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_87)" +"(let-values(((p_79)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_87)" +" p_79)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68731,10 +68313,10 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_116" +"(loop_114" " spec5_0" "(phase+" -" p_87" +" p_79" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -68820,7 +68402,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_116" +"(loop_114" " spec14_0" "(phase+" " 1" @@ -68908,7 +68490,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_116" +"(loop_114" " spec20_0" " #f" " protected?_15" @@ -69005,7 +68587,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_116" +"(loop_114" " p-spec26_0" " at-phase_13" " #t" @@ -70379,10 +69961,10 @@ static const char *startup_source = "(let-values(((temp104_3)" " form96_0)" "((temp105_4)" -"(let-values(((v_266)" +"(let-values(((v_258)" " ctx_107))" "(let-values(((the-struct_99)" -" v_266))" +" v_258))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((def-ctx-scopes106_0)" @@ -70390,7 +69972,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_266)))" +" v_258)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((stops108_0)" @@ -70576,7 +70158,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_116" +"(loop_114" " spec101_0" " at-phase_13" " protected?_15" @@ -70614,7 +70196,7 @@ static const char *startup_source = " lst_81)))))" "(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_114)" " specs_0" " phase_46" " #f" @@ -70663,18 +70245,18 @@ static const char *startup_source = "(lambda(id:struct_0 orig-s_79 fields_0 at-phase_15 ns_127 rp_3 protected?_17)" "(begin" "(let-values(((mk_0)" -"(lambda(fmt_1)" +"(lambda(fmt_0)" "(begin" " 'mk" -"(let-values(((sym_107)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" +"(let-values(((sym_107)(string->symbol(format fmt_0(syntax-e$1 id:struct_0)))))" "(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" "(let-values(((mk2_0)" -"(lambda(fmt_2 field-id_0)" +"(lambda(fmt_1 field-id_0)" "(begin" " 'mk2" "(let-values(((sym_108)" "(string->symbol" -"(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" +"(format fmt_1(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_108 id:struct_0))))))" "(begin" " (let-values (((lst_412) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" @@ -70687,14 +70269,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_413)" -"(let-values(((fmt_3)(unsafe-car lst_413))((rest_244)(unsafe-cdr lst_413)))" +"(let-values(((fmt_2)(unsafe-car lst_413))((rest_244)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_142)(mk_0 fmt_3)))" +"(let-values(((id_142)(mk_0 fmt_2)))" "(parse-identifier!" " id_142" " orig-s_79" @@ -70884,7 +70466,7 @@ static const char *startup_source = "(values" " result_129)))))" "(if(if(not" -"((lambda x_100" +"((lambda x_99" " result_128)" " except-id_0))" "(not" @@ -71028,7 +70610,7 @@ static const char *startup_source = "(values" " result_132)))))" "(if(if(not" -"((lambda x_101" +"((lambda x_100" " result_131)" " i_185))" "(not" @@ -71087,39 +70669,39 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((p_46)" +"(let-values(((p_37)" "(if(expanded+parsed?" " body_19)" "(expanded+parsed-parsed" " body_19)" " body_19)))" "(if(parsed-define-values?" -" p_46)" +" p_37)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_46)" +" p_37)" "(length" "(parsed-define-values-syms" -" p_46))" -" p_46))" +" p_37))" +" p_37))" "(if(let-values(((or-part_217)" "(parsed-#%declare?" -" p_46)))" +" p_37)))" "(if or-part_217" " or-part_217" "(let-values(((or-part_3)" "(parsed-module?" -" p_46)))" +" p_37)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_46)))))" +" p_37)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_46))))))" +" p_37))))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_325 rest_40)(values))))" @@ -71128,23 +70710,23 @@ static const char *startup_source = " lst_424)))" "(void)))))" "((check-expr_0)" -"(lambda(e_91 num-results_0 enclosing_15)" +"(lambda(e_90 num-results_0 enclosing_15)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_91)" +"(if(parsed-lambda? e_90)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))" -"(if(parsed-case-lambda? e_91)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))" +"(if(parsed-case-lambda? e_90)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))" -"(if(parsed-quote? e_91)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))" +"(if(parsed-quote? e_90)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_91) e_91)" +"(check-datum(parsed-quote-datum e_90) e_90)" "(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_91)" +"(if(parsed-app? e_90)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_91)))" +"(let-values(((rands_1)(parsed-app-rands e_90)))" "(begin" "(let-values(((lst_82) rands_1))" "(begin" @@ -71167,7 +70749,7 @@ static const char *startup_source = "(check-expr_0" " rand_0" " 1" -" e_91))" +" e_90))" "(values)))))" "(values)))))" "(if(not #f)" @@ -71177,7 +70759,7 @@ static const char *startup_source = " for-loop_326)" " lst_82)))" "(void)" -"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_91))))" +"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_90))))" "(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" "(if(equal? tmp_63 'make-struct-type)" @@ -71193,24 +70775,24 @@ static const char *startup_source = "(quoted-string?(car rands_1))" " #f)))" "(void)" -"(let-values()(disallow e_91))))" +"(let-values()(disallow e_90))))" "(if(equal? tmp_63 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" -"(let-values()(disallow e_91))))" -"(let-values()(disallow e_91)))))))))))" -"(let-values()(check-no-disallowed-expr_0 e_91)))))))))" +"(let-values()(disallow e_90))))" +"(let-values()(disallow e_90)))))))))))" +"(let-values()(check-no-disallowed-expr_0 e_90)))))))))" "((check-no-disallowed-expr_0)" -"(lambda(e_92)" +"(lambda(e_91)" "(begin" " 'check-no-disallowed-expr" -"(if(parsed-lambda? e_92)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_92)))" -"(if(parsed-case-lambda? e_92)" +"(if(parsed-lambda? e_91)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_91)))" +"(if(parsed-case-lambda? e_91)" "(let-values()" "(begin" -"(let-values(((lst_269)(parsed-case-lambda-clauses e_92)))" +"(let-values(((lst_269)(parsed-case-lambda-clauses e_91)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -71237,11 +70819,11 @@ static const char *startup_source = " for-loop_243)" " lst_269)))" "(void)))" -"(if(parsed-app? e_92)" +"(if(parsed-app? e_91)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-app-rator e_92))" -"(let-values(((lst_220)(parsed-app-rands e_92)))" +"(check-no-disallowed-expr_0(parsed-app-rator e_91))" +"(let-values(((lst_220)(parsed-app-rands e_91)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -71251,7 +70833,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_163)" -"(let-values(((e_93)(unsafe-car lst_163))" +"(let-values(((e_92)(unsafe-car lst_163))" "((rest_84)(unsafe-cdr lst_163)))" "(let-values((()" "(let-values()" @@ -71260,7 +70842,7 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_93))" +" e_92))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_109 rest_84)(values))))" @@ -71268,15 +70850,15 @@ static const char *startup_source = " for-loop_109)" " lst_220)))" "(void)))" -"(if(parsed-if? e_92)" +"(if(parsed-if? e_91)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-if-tst e_92))" -"(check-no-disallowed-expr_0(parsed-if-thn e_92))" -"(check-no-disallowed-expr_0(parsed-if-els e_92))))" -"(if(parsed-set!? e_92)" +"(check-no-disallowed-expr_0(parsed-if-tst e_91))" +"(check-no-disallowed-expr_0(parsed-if-thn e_91))" +"(check-no-disallowed-expr_0(parsed-if-els e_91))))" +"(if(parsed-set!? e_91)" "(let-values()" -"(let-values(((id_4)(parsed-set!-id e_92)))" +"(let-values(((id_4)(parsed-set!-id e_91)))" "(let-values(((normal-b_1)(parsed-id-binding id_4)))" "(begin" "(if(let-values(((or-part_83)(not normal-b_1)))" @@ -71288,23 +70870,23 @@ static const char *startup_source = "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" -"(let-values()(disallow e_92))" +"(let-values()(disallow e_91))" "(void))" -"(check-no-disallowed-expr_0(parsed-set!-rhs e_92))))))" -"(if(parsed-with-continuation-mark? e_92)" +"(check-no-disallowed-expr_0(parsed-set!-rhs e_91))))))" +"(if(parsed-with-continuation-mark? e_91)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_92))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_92))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_92))))" -"(if(parsed-begin? e_92)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_92)))" -"(if(parsed-begin0? e_92)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_92)))" -"(if(parsed-let_-values? e_92)" +"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_91))" +"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_91))" +"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_91))))" +"(if(parsed-begin? e_91)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_91)))" +"(if(parsed-begin0? e_91)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_91)))" +"(if(parsed-let_-values? e_91)" "(let-values()" "(begin" -"(let-values(((lst_23)(parsed-let_-values-clauses e_92)))" +"(let-values(((lst_23)(parsed-let_-values-clauses e_91)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -71336,10 +70918,10 @@ static const char *startup_source = " for-loop_192)" " lst_23)))" "(void)" -"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))" -"(if(let-values(((or-part_357)(parsed-quote-syntax? e_92)))" -"(if or-part_357 or-part_357(parsed-#%variable-reference? e_92)))" -"(let-values()(disallow e_92))" +"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_91))))" +"(if(let-values(((or-part_357)(parsed-quote-syntax? e_91)))" +"(if or-part_357 or-part_357(parsed-#%variable-reference? e_91)))" +"(let-values()(disallow e_91))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" "(lambda(l_48)" @@ -71356,7 +70938,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_58)" -"(let-values(((e_82)(unsafe-car lst_58))" +"(let-values(((e_81)(unsafe-car lst_58))" "((rest_196)(unsafe-cdr lst_58)))" "(let-values((()" "(let-values()" @@ -71365,7 +70947,7 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_82))" +" e_81))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_327 rest_196)(values))))" @@ -71380,7 +70962,7 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_38 e_12)" +"(lambda(d_38 e_10)" "(begin" "(if(let-values(((or-part_159)(number? d_38)))" "(if or-part_159" @@ -71396,10 +70978,10 @@ static const char *startup_source = " or-part_165" "(let-values(((or-part_259)(bytes? d_38)))(if or-part_259 or-part_259(null? d_38)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_12))))))" +"(let-values()(disallow e_10))))))" "(define-values" "(quoted-string?)" -"(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))" +"(lambda(e_93)(begin(if(parsed-quote? e_93)(string?(parsed-quote-datum e_93)) #f))))" "(define-values" "(cross-phase-primitive-name)" "(lambda(id_145)" @@ -71459,11 +71041,11 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" "((expand-context-module-begin-k ctx_111)" " s_91" -"(let-values(((v_267) ctx_111))" -"(let-values(((the-struct_101) v_267))" +"(let-values(((v_259) ctx_111))" +"(let-values(((the-struct_101) v_259))" "(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_267)))" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_259)))" "(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -71797,12 +71379,12 @@ static const char *startup_source = " unsafe-undefined" " temp266_0))))" "(let-values(((ctx_113)" -"(let-values(((v_260)" +"(let-values(((v_252)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" "(let-values(((the-struct_92)" -" v_260))" +" v_252))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((post-expansion267_0)" @@ -71815,7 +71397,7 @@ static const char *startup_source = "((inner268_0)" "(let-values(((the-struct_103)" "(root-expand-context/outer-inner" -" v_260)))" +" v_252)))" "(if(expand-context/inner?" " the-struct_103)" "(let-values(((allow-unbound?269_0)" @@ -72163,10 +71745,10 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_23)" -"(let-values(((v_268)" +"(let-values(((v_260)" " mb-init-ctx_0))" "(let-values(((the-struct_104)" -" v_268))" +" v_260))" "(if(expand-context/outer?" " the-struct_104)" "(let-values(((post-expansion306_0)" @@ -72179,7 +71761,7 @@ static const char *startup_source = "((inner307_0)" "(let-values(((the-struct_18)" "(root-expand-context/outer-inner" -" v_268)))" +" v_260)))" "(if(expand-context/inner?" " the-struct_18)" "(let-values(((module-begin-k308_0)" @@ -72434,10 +72016,10 @@ static const char *startup_source = "(box" " null)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_269)" +"(let-values(((v_261)" " ctx_23))" "(let-values(((the-struct_105)" -" v_269))" +" v_261))" "(if(expand-context/outer?" " the-struct_105)" "(let-values(((context329_0)" @@ -72449,7 +72031,7 @@ static const char *startup_source = "((inner332_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_269)))" +" v_261)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((phase333_0)" @@ -72653,12 +72235,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_270)" +"(let-values(((v_262)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_107)" -" v_270))" +" v_262))" "(if(expand-context/outer?" " the-struct_107)" "(let-values(((def-ctx-scopes366_0)" @@ -72668,7 +72250,7 @@ static const char *startup_source = "((inner368_0)" "(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_270)))" +" v_262)))" "(if(expand-context/inner?" " the-struct_108)" "(let-values(((stops369_0)" @@ -72896,10 +72478,10 @@ static const char *startup_source = " temp382_1" " m-ns381_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_190)" +"(let-values(((v_182)" " ctx_23))" "(let-values(((the-struct_58)" -" v_190))" +" v_182))" "(if(expand-context/outer?" " the-struct_58)" "(let-values(((frame-id383_0)" @@ -72909,7 +72491,7 @@ static const char *startup_source = "((inner385_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_190)))" +" v_182)))" "(if(expand-context/inner?" " the-struct_109)" "(let-values(((namespace386_0)" @@ -73003,10 +72585,8 @@ static const char *startup_source = " \"expand-context/outer?\"" " the-struct_58))))))" "(let-values(((declare-enclosing-module_0)" -"(delay" +"(promise1.1" "(lambda()" -"(begin" -" 'declare-enclosing-module" "(let-values(((fully-expanded-bodys-except-post-submodules387_0)" " fully-expanded-bodys-except-post-submodules_0)" "((temp388_0)" @@ -73040,7 +72620,8 @@ static const char *startup_source = " requires+provides390_0" " root-ctx394_0" " self392_0" -" fully-expanded-bodys-except-post-submodules387_0)))))))" +" fully-expanded-bodys-except-post-submodules387_0)))" +" #f)))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" " submod-ctx_0)" @@ -73117,10 +72698,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_271)" +"(let-values(((v_263)" " ctx_113))" "(let-values(((the-struct_110)" -" v_271))" +" v_263))" "(if(expand-context/outer?" " the-struct_110)" "(let-values(((context412_0)" @@ -73128,7 +72709,7 @@ static const char *startup_source = "((inner413_0)" "(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_271)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_111)" "(let-values(((module-begin-k414_0)" @@ -73266,19 +72847,19 @@ static const char *startup_source = "(let-values(((mb428_0)" " mb_0)" "((temp429_0)" -"(let-values(((v_272)" +"(let-values(((v_264)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" "(let-values(((the-struct_112)" -" v_272))" +" v_264))" "(if(expand-context/outer?" " the-struct_112)" "(let-values(((def-ctx-scopes430_0)" " #f)" "((inner431_0)" "(root-expand-context/outer-inner" -" v_272)))" +" v_264)))" "(expand-context/outer1.1" " inner431_0" "(root-expand-context/outer-post-expansion" @@ -73490,13 +73071,13 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_273) ctx_115))" -"(let-values(((the-struct_113) v_273))" +"(let-values(((v_265) ctx_115))" +"(let-values(((the-struct_113) v_265))" "(if(expand-context/outer? the-struct_113)" "(let-values(((context437_0) 'module-begin)" "((only-immediate?438_0) #t)" "((def-ctx-scopes439_0) def-ctx-scopes_9)" -"((inner440_0)(root-expand-context/outer-inner v_273)))" +"((inner440_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner440_0" "(root-expand-context/outer-post-expansion the-struct_113)" @@ -73729,7 +73310,7 @@ static const char *startup_source = "(let-values()" "(begin" "(namespace-visit-available-modules! m-ns_20 phase_108)" -"((letrec-values(((loop_124)" +"((letrec-values(((loop_122)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" @@ -73775,7 +73356,7 @@ static const char *startup_source = "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_124" +"(loop_122" " #t" "(add-post-expansion-scope" " bodys_22" @@ -73902,11 +73483,11 @@ static const char *startup_source = " begin469_1" " e470_1))))))" "(let-values(((track_1)" -"(lambda(e_95)" +"(lambda(e_94)" "(begin" " 'track" "(syntax-track-origin$1" -" e_95" +" e_94" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -73926,7 +73507,7 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_124" +"(loop_122" " tail?_53" " spliced-bodys_0))))))" "(if(equal?" @@ -74129,7 +73710,7 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" @@ -74476,7 +74057,7 @@ static const char *startup_source = " syms_23" " ids_44" " rhs479_0)" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" @@ -74795,10 +74376,10 @@ static const char *startup_source = "((ids537_0)" " ids_45)" "((temp538_0)" -"(let-values(((v_274)" +"(let-values(((v_266)" " partial-body-ctx_1))" "(let-values(((the-struct_114)" -" v_274))" +" v_266))" "(if(expand-context/outer?" " the-struct_114)" "(let-values(((need-eventually-defined540_0)" @@ -74806,7 +74387,7 @@ static const char *startup_source = "((inner541_0)" "(let-values(((the-struct_115)" "(root-expand-context/outer-inner" -" v_274)))" +" v_266)))" "(if(expand-context/inner?" " the-struct_115)" "(let-values(((lifts542_0)" @@ -75045,7 +74626,7 @@ static const char *startup_source = " exp-body545_0" " temp546_0))" " parsed-body_0))" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1)))))))))))))))))" "(if(equal?" @@ -75177,7 +74758,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1)))))))" "(if(equal?" @@ -75186,7 +74767,7 @@ static const char *startup_source = "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1)))" "(if(equal?" @@ -75229,7 +74810,7 @@ static const char *startup_source = " partial-body-ctx562_0))))" "(cons" " submod_2" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1)))))" "(if(equal?" @@ -75258,7 +74839,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1))))" "(if(equal?" @@ -75411,13 +74992,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_122" " tail?_53" " rest-bodys_1)))))))))))))))))" "(let-values(((l_88)" @@ -75426,7 +75007,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_124" +"(loop_122" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -75438,7 +75019,7 @@ static const char *startup_source = "(append" " l_88" "(finish_2)))))))))))))))))" -" loop_124)" +" loop_122)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" @@ -75557,7 +75138,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_123)" "(lambda(tail?_54 bodys_24)" "(begin" " 'loop" @@ -75599,7 +75180,7 @@ static const char *startup_source = "(void)))" " null))" "(let-values()" -"(loop_125" +"(loop_123" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" @@ -75937,7 +75518,7 @@ static const char *startup_source = " self603_0" " body-ctx604_0))))" "(let-values(((exp-lifted-defns_0)" -"(loop_125 #f lifted-defns_1)))" +"(loop_123 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" @@ -75958,10 +75539,10 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_125" +"(loop_123" " tail?_54" " rest-bodys_2)))))))))))))))))))))" -" loop_125)" +" loop_123)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" @@ -76119,7 +75700,7 @@ static const char *startup_source = "(let-values(((ctx_118) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_126)" +"((letrec-values(((loop_124)" "(lambda(bodys_26 phase_155)" "(begin" " 'loop" @@ -76128,11 +75709,11 @@ static const char *startup_source = "(if(let-values(((or-part_412)(parsed?(car bodys_26))))" "(if or-part_412 or-part_412(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_155)))" +"(cons(car bodys_26)(loop_124(cdr bodys_26) phase_155)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_126" +"(loop_124" "(semi-parsed-begin-for-syntax-body(car bodys_26))" "(add1 phase_155))))" "(cons" @@ -76146,7 +75727,7 @@ static const char *startup_source = " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_116)))" -"(loop_126(cdr bodys_26) phase_155))))" +"(loop_124(cdr bodys_26) phase_155))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_66)" @@ -76228,9 +75809,9 @@ static const char *startup_source = " requires+provides_10" " self_38" " phase_155" -"(let-values(((v_275) ctx_118))" +"(let-values(((v_267) ctx_118))" "(let-values(((the-struct_117)" -" v_275))" +" v_267))" "(if(expand-context/outer?" " the-struct_117)" "(let-values(((context616_0)" @@ -76238,7 +75819,7 @@ static const char *startup_source = "((inner617_0)" "(let-values(((the-struct_118)" "(root-expand-context/outer-inner" -" v_275)))" +" v_267)))" "(if(expand-context/inner?" " the-struct_118)" "(let-values(((phase618_0)" @@ -76339,7 +75920,7 @@ static const char *startup_source = " the-struct_117)))))))" "(if(expand-context-to-parsed? ctx_118)" "(let-values()" -"(loop_126(cdr bodys_26) phase_155))" +"(loop_124(cdr bodys_26) phase_155))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -76368,14 +75949,14 @@ static const char *startup_source = "(void)))" "(cons" " new-s_10" -"(loop_126" +"(loop_124" "(cdr bodys_26)" " phase_155))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_155))))))))))))))" -" loop_126)" +"(loop_124(cdr bodys_26) phase_155))))))))))))))" +" loop_124)" " expression-expanded-bodys_1" " phase_154)))))))))))))" "(define-values" @@ -76514,7 +76095,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_125)" "(lambda(bodys_27 phase_157)" "(begin" " 'loop" @@ -76592,7 +76173,7 @@ static const char *startup_source = " submod-ctx638_0" " body-s639_0))))" "(let-values(((nested-bodys_3)" -"(loop_127" +"(loop_125" "(semi-parsed-begin-for-syntax-body" " body_23)" "(add1 phase_157))))" @@ -76617,13 +76198,13 @@ static const char *startup_source = " rebuild-body-s640_0" " temp641_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_157))))))))" +"(loop_125 rest-bodys_3 phase_157))))))))" "(if(let-values(((or-part_414)(parsed? body_23)))" "(if or-part_414" " or-part_414" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_127 rest-bodys_3 phase_157)))" +"(cons body_23(loop_125 rest-bodys_3 phase_157)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" @@ -76892,16 +76473,16 @@ static const char *startup_source = " submod-ctx666_0))))))" "(cons" " submod_3" -"(loop_127" +"(loop_125" " rest-bodys_3" " phase_157)))))))" "(let-values()" "(cons" " body_23" -"(loop_127" +"(loop_125" " rest-bodys_3" " phase_157)))))))))))))))))" -" loop_127)" +" loop_125)" " fully-expanded-bodys-except-post-submodules_2" " phase_156)))))))))))))))))" "(define-values" @@ -76986,22 +76567,22 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((p_88)" +"(let-values(((p_80)" "(if(expanded+parsed? body_24)" "(expanded+parsed-parsed" " body_24)" " body_24)))" -"(if(parsed-define-values? p_88)" +"(if(parsed-define-values? p_80)" "(let-values()" "(let-values(((ids_49)" "(parsed-define-values-ids" -" p_88)))" +" p_80)))" "(let-values(((vals_11)" "(eval-for-bindings" " 'define-values" " ids_49" "(parsed-define-values-rhs" -" p_88)" +" p_80)" " phase_159" " m-ns_23" " ctx_121)))" @@ -77009,7 +76590,7 @@ static const char *startup_source = "(let-values(((lst_451) ids_49)" "((lst_452)" "(parsed-define-values-syms" -" p_88))" +" p_80))" "((lst_453) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -77087,18 +76668,18 @@ static const char *startup_source = "(void)))))" "(if(let-values(((or-part_415)" "(parsed-define-syntaxes?" -" p_88)))" +" p_80)))" "(if or-part_415" " or-part_415" "(semi-parsed-begin-for-syntax?" -" p_88)))" +" p_80)))" "(let-values()(void))" "(if(let-values(((or-part_416)" "(parsed-#%declare?" -" p_88)))" +" p_80)))" "(if or-part_416" " or-part_416" -"(syntax?$1 p_88)))" +"(syntax?$1 p_80)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -77114,7 +76695,7 @@ static const char *startup_source = "(let-values()" "(eval-single-top" "(compile-single" -" p_88" +" p_80" "(let-values(((m-ns677_0)" " m-ns_23)" "((phase678_0)" @@ -77220,23 +76801,23 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_94)))))" "(values #t module679_1 name680_1 _681_1))))))" -"(let-values(((name_82)(syntax-e$1 name680_0)))" +"(let-values(((name_81)(syntax-e$1 name680_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_82 #f)" +"(if(hash-ref declared-submodule-names_8 name_81 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" " s_738" -" name_82))" +" name_81))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_82" +" name_81" "(syntax-e$1 module679_0))" "(values))))" "(let-values((()" @@ -77251,15 +76832,15 @@ static const char *startup_source = "(let-values(((submod_5)" "(let-values(((s687_0) s_738)" "((temp688_0)" -"(let-values(((v_276) ctx_122))" -"(let-values(((the-struct_120) v_276))" +"(let-values(((v_268) ctx_122))" +"(let-values(((the-struct_120) v_268))" "(if(expand-context/outer? the-struct_120)" "(let-values(((context697_0) 'module)" "((post-expansion698_0) #f)" "((inner699_0)" "(let-values(((the-struct_121)" "(root-expand-context/outer-inner" -" v_276)))" +" v_268)))" "(if(expand-context/inner?" " the-struct_121)" "(let-values(((stops700_0)" @@ -77428,7 +77009,7 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_82" +" name_81" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" @@ -78393,12 +77974,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_96) trans-ctx_1))" -"(let-values(((the-struct_125) v_96))" +"(let-values(((v_87) trans-ctx_1))" +"(let-values(((the-struct_125) v_87))" "(if(expand-context/outer? the-struct_125)" "(let-values(((inner37_0)" "(let-values(((the-struct_126)" -"(root-expand-context/outer-inner v_96)))" +"(root-expand-context/outer-inner v_87)))" "(if(expand-context/inner? the-struct_126)" "(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" @@ -78453,7 +78034,7 @@ static const char *startup_source = "(expand-context/outer-name the-struct_125)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_125))))))" "(let-values(((all-exp-forms_0)" -"((letrec-values(((loop_67)" +"((letrec-values(((loop_65)" "(lambda(forms_0)" "(begin" " 'loop" @@ -78471,7 +78052,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-forms_0)" -"((letrec-values(((loop_128)" +"((letrec-values(((loop_126)" "(lambda(forms_1 accum_1)" "(begin" " 'loop" @@ -78522,12 +78103,12 @@ static const char *startup_source = " #f" " temp40_3" " capture-ctx41_0))))" -"(loop_128" +"(loop_126" "(cdr forms_1)" "(cons" " exp-form_0" " accum_1))))))))))" -" loop_128)" +" loop_126)" " forms_0" " null)))" "(let-values(((lifts_15)(get-and-clear-lifts! lift-ctx_7)))" @@ -78566,9 +78147,9 @@ static const char *startup_source = "(reverse$1" "(cdr(syntax-e$1 beg_0)))))))" "(append" -"(loop_67 exprs_1)" +"(loop_65 exprs_1)" " exp-forms_0)))))))))))))" -" loop_67)" +" loop_65)" " form30_0)))" "(if(expand-context-to-parsed? ctx_113)" "(parsed-begin-for-syntax21.1 s_309 all-exp-forms_0)" @@ -78720,7 +78301,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_83)(hash-iterate-key ht_167 i_3)))" +"(let-values(((name_82)(hash-iterate-key ht_167 i_3)))" "(let-values(((table_210)" "(let-values(((table_222) table_221))" "(let-values(((table_182)" @@ -78728,7 +78309,7 @@ static const char *startup_source = "(let-values(((key_93 val_89)" "(let-values()" "(values" -"(let-values() name_83)" +"(let-values() name_82)" " #t))))" "(hash-set table_222 key_93 val_89)))))" "(values table_182)))))" @@ -78750,7 +78331,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_182" -"(let-values(((name_84)(hash-iterate-key ht_127 i_182)))" +"(let-values(((name_83)(hash-iterate-key ht_127 i_182)))" "(let-values(((table_120)" "(let-values(((table_113) table_223))" "(let-values(((table_114)" @@ -78758,7 +78339,7 @@ static const char *startup_source = "(let-values(((key_94 val_90)" "(let-values()" "(values" -"(let-values() name_84)" +"(let-values() name_83)" " #t))))" "(hash-set table_113 key_94 val_90)))))" "(values table_114)))))" @@ -78779,33 +78360,33 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_20)" -"(let-values(((name_85)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" +"(let-values(((name_84)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" "(let-values((()" "(let-values()" -"(if(eq? name_85 '#%kernel)" +"(if(eq? name_84 '#%kernel)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name30_0) name_85)" +"(let-values(((name30_0) name_84)" "((ns31_0) ns)" "((temp32_3)" "(let-values(((or-part_166)" "(eq?" -" name_85" +" name_84" " '#%foreign)))" "(if or-part_166" " or-part_166" "(let-values(((or-part_287)" "(eq?" -" name_85" +" name_84" " '#%futures)))" "(if or-part_287" " or-part_287" "(eq?" -" name_85" +" name_84" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " unsafe-undefined"