diff --git a/racket/collects/racket/private/more-scheme.rkt b/racket/collects/racket/private/more-scheme.rkt index 7c9dd99041..34957af9a4 100644 --- a/racket/collects/racket/private/more-scheme.rkt +++ b/racket/collects/racket/private/more-scheme.rkt @@ -337,50 +337,52 @@ (printf "cpu time: ~s real time: ~s gc time: ~s\n" cpu user gc) (apply values v)))]))) - (define-values (hash-update hash-update! hash-has-key? hash-ref!) - (let* ([not-there (gensym)] - [up (lambda (who mut? set ht key xform default) - (unless (and (hash? ht) - (if mut? - (not (immutable? ht)) - (immutable? ht))) - (raise-argument-error who (if mut? "(and/c hash? (not/c immutable?))" "(and/c hash? immutable?)") ht)) - (unless (and (procedure? xform) - (procedure-arity-includes? xform 1)) - (raise-argument-error who "(any/c . -> . any/c)" xform)) - (let ([v (hash-ref ht key default)]) - (if (eq? v not-there) - (raise-mismatch-error who "no value found for key: " key) - (set ht key (xform v)))))]) - (let ([hash-update - (case-lambda - [(ht key xform default) - (up 'hash-update #f hash-set ht key xform default)] - [(ht key xform) - (hash-update ht key xform not-there)])] - [hash-update! - (case-lambda - [(ht key xform default) - (up 'hash-update! #t hash-set! ht key xform default)] - [(ht key xform) - (hash-update! ht key xform not-there)])] - [hash-has-key? - (lambda (ht key) - (unless (hash? ht) - (raise-argument-error 'hash-has-key? "hash?" 0 ht key)) - (not (eq? not-there (hash-ref ht key not-there))))] - [hash-ref! - (lambda (ht key new) - (unless (and (hash? ht) - (not (immutable? ht))) - (raise-argument-error 'hash-ref! "(and/c hash? (not/c immutable?))" 0 ht key new)) - (let ([v (hash-ref ht key not-there)]) - (if (eq? not-there v) - (let ([n (if (procedure? new) (new) new)]) - (hash-set! ht key n) - n) - v)))]) - (values hash-update hash-update! hash-has-key? hash-ref!)))) + (define not-there (gensym)) + + (define (do-hash-update who mut? set ht key xform default) + (unless (variable-reference-from-unsafe? (#%variable-reference)) + (unless (and (hash? ht) + (if mut? + (not (immutable? ht)) + (immutable? ht))) + (raise-argument-error who (if mut? "(and/c hash? (not/c immutable?))" "(and/c hash? immutable?)") ht)) + (unless (and (procedure? xform) + (procedure-arity-includes? xform 1)) + (raise-argument-error who "(any/c . -> . any/c)" xform))) + (let ([v (hash-ref ht key default)]) + (if (eq? v not-there) + (raise-mismatch-error who "no value found for key: " key) + (set ht key (xform v))))) + + (define hash-update + (case-lambda + [(ht key xform default) + (do-hash-update 'hash-update #f hash-set ht key xform default)] + [(ht key xform) + (hash-update ht key xform not-there)])) + + (define hash-update! + (case-lambda + [(ht key xform default) + (do-hash-update 'hash-update! #t hash-set! ht key xform default)] + [(ht key xform) + (hash-update! ht key xform not-there)])) + + (define (hash-has-key? ht key) + (unless (hash? ht) + (raise-argument-error 'hash-has-key? "hash?" 0 ht key)) + (not (eq? not-there (hash-ref ht key not-there)))) + + (define (hash-ref! ht key new) + (unless (and (hash? ht) + (not (immutable? ht))) + (raise-argument-error 'hash-ref! "(and/c hash? (not/c immutable?))" 0 ht key new)) + (let ([v (hash-ref ht key not-there)]) + (if (eq? not-there v) + (let ([n (if (procedure? new) (new) new)]) + (hash-set! ht key n) + n) + v))) (#%provide case old-case do parameterize parameterize* current-parameterization call-with-parameterization diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 83482dd784..6fbaf98d00 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -205,62 +205,48 @@ static const char *startup_source = "(define-values" "(call-with-exception-handler)" "(lambda(exnh_0 thunk_0)(begin(begin0(with-continuation-mark exception-handler-key exnh_0(thunk_0))(void)))))" +"(define-values(not-there)(gensym))" "(define-values" -"(hash-update hash-update! hash-has-key? hash-ref!)" -"(let-values(((not-there_0)(gensym)))" -"(let-values(((up_0)" +"(do-hash-update)" "(lambda(who_1 mut?_0 set_0 ht_0 key_0 xform_0 default_1)" "(begin" -" 'up" "(begin" "(if(if(hash? ht_0)(if mut?_0(not(immutable? ht_0))(immutable? ht_0)) #f)" "(void)" "(let-values()" "(raise-argument-error" " who_1" -" (if mut?_0 \"(and/c hash? (not/c immutable?))\" \"(and/c hash? immutable?)\")" +" (if mut?_0 \"(and/c hash? (not/c immutable?))\" \"(and/c hash? immutable?)\")" " ht_0)))" "(if(if(procedure? xform_0)(procedure-arity-includes? xform_0 1) #f)" "(void)" -" (let-values () (raise-argument-error who_1 \"(any/c . -> . any/c)\" xform_0)))" +" (let-values () (raise-argument-error who_1 \"(any/c . -> . any/c)\" xform_0)))" "(let-values(((v_6)(hash-ref ht_0 key_0 default_1)))" -"(if(eq? v_6 not-there_0)" -" (raise-mismatch-error who_1 \"no value found for key: \" key_0)" -"(set_0 ht_0 key_0(xform_0 v_6)))))))))" -"(let-values(((hash-update_0)" +"(if(eq? v_6 not-there)" +" (raise-mismatch-error who_1 \"no value found for key: \" key_0)" +"(set_0 ht_0 key_0(xform_0 v_6))))))))" +"(define-values" +"(hash-update)" "(case-lambda" -"((ht_1 key_1 xform_1 default_2)" -"(begin 'hash-update(up_0 'hash-update #f hash-set ht_1 key_1 xform_1 default_2)))" -"((ht_2 key_2 xform_2)(hash-update ht_2 key_2 xform_2 not-there_0))))" -"((hash-update!_0)" +"((ht_1 key_1 xform_1 default_2)(begin(do-hash-update 'hash-update #f hash-set ht_1 key_1 xform_1 default_2)))" +"((ht_2 key_2 xform_2)(hash-update ht_2 key_2 xform_2 not-there))))" +"(define-values" +"(hash-update!)" "(case-lambda" -"((ht_3 key_3 xform_3 default_3)" -"(begin 'hash-update!(up_0 'hash-update! #t hash-set! ht_3 key_3 xform_3 default_3)))" -"((ht_4 key_4 xform_4)(hash-update! ht_4 key_4 xform_4 not-there_0))))" -"((hash-has-key?_0)" -"(lambda(ht_5 key_5)" +"((ht_3 key_3 xform_3 default_3)(begin(do-hash-update 'hash-update! #t hash-set! ht_3 key_3 xform_3 default_3)))" +"((ht_4 key_4 xform_4)(hash-update! ht_4 key_4 xform_4 not-there))))" +"(define-values" +"(hash-ref!)" +"(lambda(ht_5 key_5 new_0)" "(begin" -" 'hash-has-key?" "(begin" -"(if(hash? ht_5)" +"(if(if(hash? ht_5)(not(immutable? ht_5)) #f)" "(void)" -" (let-values () (raise-argument-error 'hash-has-key? \"hash?\" 0 ht_5 key_5)))" -"(not(eq? not-there_0(hash-ref ht_5 key_5 not-there_0)))))))" -"((hash-ref!_0)" -"(lambda(ht_6 key_6 new_0)" -"(begin" -" 'hash-ref!" -"(begin" -"(if(if(hash? ht_6)(not(immutable? ht_6)) #f)" -"(void)" -"(let-values()" -" (raise-argument-error 'hash-ref! \"(and/c hash? (not/c immutable?))\" 0 ht_6 key_6 new_0)))" -"(let-values(((v_7)(hash-ref ht_6 key_6 not-there_0)))" -"(if(eq? not-there_0 v_7)" -"(let-values(((n_0)(if(procedure? new_0)(new_0) new_0)))" -"(begin(hash-set! ht_6 key_6 n_0) n_0))" -" v_7)))))))" -"(values hash-update_0 hash-update!_0 hash-has-key?_0 hash-ref!_0)))))" +" (let-values () (raise-argument-error 'hash-ref! \"(and/c hash? (not/c immutable?))\" 0 ht_5 key_5 new_0)))" +"(let-values(((v_7)(hash-ref ht_5 key_5 not-there)))" +"(if(eq? not-there v_7)" +"(let-values(((n_0)(if(procedure? new_0)(new_0) new_0)))(begin(hash-set! ht_5 key_5 n_0) n_0))" +" v_7))))))" "(define-values" "(path-string?)" "(lambda(s_0)" @@ -872,7 +858,7 @@ static const char *startup_source = " Amid2_1" " Alo_1)))))))))))))" "(let-values(((generic-sort/key_0)" -"(lambda(A_1 less-than?_1 n_3 key_7)" +"(lambda(A_1 less-than?_1 n_3 key_6)" "(begin" " 'generic-sort/key" "(let-values()" @@ -891,8 +877,8 @@ static const char *startup_source = "(let-values(((x_3)(unsafe-vector-ref A_1 Alo_2))" "((y_3)" "(unsafe-vector-ref A_1(unsafe-fx+ Alo_2 1))))" -"(if(if key_7" -"(less-than?_1(key_7 y_3)(key_7 x_3))" +"(if(if key_6" +"(less-than?_1(key_6 y_3)(key_6 x_3))" "(less-than?_1 y_3 x_3))" "(begin" "(unsafe-vector-set! A_1 Blo_1 y_3)" @@ -932,11 +918,11 @@ static const char *startup_source = "(if(if(unsafe-fx<" " Blo_1" " j_1)" -"(if key_7" +"(if key_6" "(less-than?_1" -"(key_7" +"(key_6" " ref-i_1)" -"(key_7" +"(key_6" " ref-j-1_1))" "(less-than?_1" " ref-i_1" @@ -988,10 +974,10 @@ static const char *startup_source = " A_1" " b1_4)))" "(if(not" -"(if key_7" +"(if key_6" "(less-than?_1" -"(key_7 y_4)" -"(key_7 x_4))" +"(key_6 y_4)" +"(key_6 x_4))" "(less-than?_1" " y_4" " x_4)))" @@ -1085,8 +1071,8 @@ static const char *startup_source = " 'loop" "(let-values(((x_5)(unsafe-vector-ref A_1 a1_9))" "((y_5)(unsafe-vector-ref A_1 b1_6)))" -"(if(if key_7" -"(less-than?_1(key_7 x_5)(key_7 y_5))" +"(if(if key_6" +"(less-than?_1(key_6 x_5)(key_6 y_5))" "(less-than?_1 x_5 y_5))" "(begin" "(unsafe-vector-set! A_1 c1_12 x_5)" @@ -1811,37 +1797,37 @@ static const char *startup_source = " (lambda (l_5) (begin (if (list? l_5) (void) (let-values () (raise-argument-error 'in-list \"list?\" l_5))))))" "(define-values" "(check-in-hash)" -"(lambda(ht_7)" +"(lambda(ht_6)" "(begin" -" (if ((lambda (ht_8) (hash? ht_8)) ht_7) (void) (let-values () (raise-argument-error 'in-hash \"hash?\" ht_7))))))" +" (if ((lambda (ht_7) (hash? ht_7)) ht_6) (void) (let-values () (raise-argument-error 'in-hash \"hash?\" ht_6))))))" "(define-values" "(check-in-immutable-hash)" -"(lambda(ht_9)" +"(lambda(ht_8)" "(begin" -"(if((lambda(ht_10)(if(hash? ht_10)(immutable? ht_10) #f)) ht_9)" +"(if((lambda(ht_9)(if(hash? ht_9)(immutable? ht_9) #f)) ht_8)" "(void)" -" (let-values () (raise-argument-error 'in-immutable-hash \"(and/c hash? immutable?)\" ht_9))))))" +" (let-values () (raise-argument-error 'in-immutable-hash \"(and/c hash? immutable?)\" ht_8))))))" "(define-values" "(check-in-hash-keys)" -"(lambda(ht_11)" +"(lambda(ht_10)" "(begin" -"(if((lambda(ht_12)(hash? ht_12)) ht_11)" +"(if((lambda(ht_11)(hash? ht_11)) ht_10)" "(void)" -" (let-values () (raise-argument-error 'in-hash-keys \"hash?\" ht_11))))))" +" (let-values () (raise-argument-error 'in-hash-keys \"hash?\" ht_10))))))" "(define-values" "(check-in-immutable-hash-keys)" -"(lambda(ht_13)" +"(lambda(ht_12)" "(begin" -"(if((lambda(ht_14)(if(hash? ht_14)(immutable? ht_14) #f)) ht_13)" +"(if((lambda(ht_13)(if(hash? ht_13)(immutable? ht_13) #f)) ht_12)" "(void)" -" (let-values () (raise-argument-error 'in-immutable-hash-keys \"(and/c hash? immutable?)\" ht_13))))))" +" (let-values () (raise-argument-error 'in-immutable-hash-keys \"(and/c hash? immutable?)\" ht_12))))))" "(define-values" "(check-in-hash-values)" -"(lambda(ht_15)" +"(lambda(ht_14)" "(begin" -"(if((lambda(ht_16)(hash? ht_16)) ht_15)" +"(if((lambda(ht_15)(hash? ht_15)) ht_14)" "(void)" -" (let-values () (raise-argument-error 'in-hash-values \"hash?\" ht_15))))))" +" (let-values () (raise-argument-error 'in-hash-values \"hash?\" ht_14))))))" "(define-values" "(check-ranges)" "(lambda(who_3 vec_7 start_4 stop_0 step_1 len_0)" @@ -2655,73 +2641,73 @@ static const char *startup_source = "(set-subtract)" "(lambda(s1_2 s2_2)" "(begin" -"(let-values(((ht_17) s2_2))" +"(let-values(((ht_16) s2_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_17)))" +"(let-values()(check-in-immutable-hash-keys ht_16)))" "((letrec-values(((for-loop_2)" "(lambda(s1_3 i_21)" "(begin" " 'for-loop" "(if i_21" -"(let-values(((k_0)(unsafe-immutable-hash-iterate-key ht_17 i_21)))" +"(let-values(((k_0)(unsafe-immutable-hash-iterate-key ht_16 i_21)))" "(let-values(((s1_4)" "(let-values(((s1_5) s1_3))" "(let-values(((s1_6)(let-values()(hash-remove s1_5 k_0))))" "(values s1_6)))))" "(if(not #f)" -"(for-loop_2 s1_4(unsafe-immutable-hash-iterate-next ht_17 i_21))" +"(for-loop_2 s1_4(unsafe-immutable-hash-iterate-next ht_16 i_21))" " s1_4)))" " s1_3)))))" " for-loop_2)" " s1_2" -"(unsafe-immutable-hash-iterate-first ht_17)))))))" +"(unsafe-immutable-hash-iterate-first ht_16)))))))" "(define-values" "(set-union)" "(lambda(s1_7 s2_3)" "(begin" "(if(<(set-count s1_7)(set-count s2_3))" "(set-union s2_3 s1_7)" -"(let-values(((ht_18) s2_3))" +"(let-values(((ht_17) s2_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_18)))" +"(let-values()(check-in-immutable-hash-keys ht_17)))" "((letrec-values(((for-loop_3)" "(lambda(s1_8 i_22)" "(begin" " 'for-loop" "(if i_22" -"(let-values(((k_1)(unsafe-immutable-hash-iterate-key ht_18 i_22)))" +"(let-values(((k_1)(unsafe-immutable-hash-iterate-key ht_17 i_22)))" "(let-values(((s1_9)" "(let-values(((s1_10) s1_8))" "(let-values(((s1_11)(let-values()(hash-set s1_10 k_1 #t))))" "(values s1_11)))))" "(if(not #f)" -"(for-loop_3 s1_9(unsafe-immutable-hash-iterate-next ht_18 i_22))" +"(for-loop_3 s1_9(unsafe-immutable-hash-iterate-next ht_17 i_22))" " s1_9)))" " s1_8)))))" " for-loop_3)" " s1_7" -"(unsafe-immutable-hash-iterate-first ht_18))))))))" +"(unsafe-immutable-hash-iterate-first ht_17))))))))" "(define-values" "(set-intersect)" "(lambda(s1_12 s2_4)" "(begin" "(if(<(set-count s1_12)(set-count s2_4))" "(set-intersect s2_4 s1_12)" -"(let-values(((ht_19) s2_4))" +"(let-values(((ht_18) s2_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_19)))" +"(let-values()(check-in-immutable-hash-keys ht_18)))" "((letrec-values(((for-loop_4)" "(lambda(s_26 i_23)" "(begin" " 'for-loop" "(if i_23" -"(let-values(((k_2)(unsafe-immutable-hash-iterate-key ht_19 i_23)))" +"(let-values(((k_2)(unsafe-immutable-hash-iterate-key ht_18 i_23)))" "(let-values(((s_27)" "(let-values(((s_28) s_26))" "(let-values(((s_29)" @@ -2731,27 +2717,27 @@ static const char *startup_source = "(hash-remove s_28 k_2)))))" "(values s_29)))))" "(if(not #f)" -"(for-loop_4 s_27(unsafe-immutable-hash-iterate-next ht_19 i_23))" +"(for-loop_4 s_27(unsafe-immutable-hash-iterate-next ht_18 i_23))" " s_27)))" " s_26)))))" " for-loop_4)" " s2_4" -"(unsafe-immutable-hash-iterate-first ht_19))))))))" +"(unsafe-immutable-hash-iterate-first ht_18))))))))" "(define-values" "(set-partition)" "(lambda(s_30 pred_0 empty-y-set_0 empty-n-set_0)" "(begin" -"(let-values(((ht_20) s_30))" +"(let-values(((ht_19) s_30))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_20)))" +"(let-values()(check-in-immutable-hash-keys ht_19)))" "((letrec-values(((for-loop_5)" "(lambda(y_6 n_14 i_24)" "(begin" " 'for-loop" "(if i_24" -"(let-values(((v_25)(unsafe-immutable-hash-iterate-key ht_20 i_24)))" +"(let-values(((v_25)(unsafe-immutable-hash-iterate-key ht_19 i_24)))" "(let-values(((y_7 n_15)" "(let-values(((y_8) y_6)((n_16) n_14))" "(let-values(((y_9 n_17)" @@ -2761,29 +2747,29 @@ static const char *startup_source = "(values y_8(set-add n_16 v_25))))))" "(values y_9 n_17)))))" "(if(not #f)" -"(for-loop_5 y_7 n_15(unsafe-immutable-hash-iterate-next ht_20 i_24))" +"(for-loop_5 y_7 n_15(unsafe-immutable-hash-iterate-next ht_19 i_24))" "(values y_7 n_15))))" "(values y_6 n_14))))))" " for-loop_5)" " empty-y-set_0" " empty-n-set_0" -"(unsafe-immutable-hash-iterate-first ht_20)))))))" +"(unsafe-immutable-hash-iterate-first ht_19)))))))" "(define-values" "(set->list)" "(lambda(s_31)" "(begin" "(reverse$1" -"(let-values(((ht_21) s_31))" +"(let-values(((ht_20) s_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_21)))" +"(let-values()(check-in-immutable-hash-keys ht_20)))" "((letrec-values(((for-loop_6)" "(lambda(fold-var_0 i_25)" "(begin" " 'for-loop" "(if i_25" -"(let-values(((k_3)(unsafe-immutable-hash-iterate-key ht_21 i_25)))" +"(let-values(((k_3)(unsafe-immutable-hash-iterate-key ht_20 i_25)))" "(let-values(((fold-var_1)" "(let-values(((fold-var_2) fold-var_0))" "(let-values(((fold-var_3)" @@ -2791,12 +2777,12 @@ static const char *startup_source = "(cons(let-values() k_3) fold-var_2))))" "(values fold-var_3)))))" "(if(not #f)" -"(for-loop_6 fold-var_1(unsafe-immutable-hash-iterate-next ht_21 i_25))" +"(for-loop_6 fold-var_1(unsafe-immutable-hash-iterate-next ht_20 i_25))" " fold-var_1)))" " fold-var_0)))))" " for-loop_6)" " null" -"(unsafe-immutable-hash-iterate-first ht_21))))))))" +"(unsafe-immutable-hash-iterate-first ht_20))))))))" "(define-values" "(list->set)" "(lambda(l_41)" @@ -2814,10 +2800,10 @@ static const char *startup_source = "(let-values(((table_2) table_0))" "(let-values(((table_3)" "(let-values()" -"(let-values(((key_8 val_0)" +"(let-values(((key_7 val_0)" "(let-values()" "(values(let-values() k_4) #t))))" -"(hash-set table_2 key_8 val_0)))))" +"(hash-set table_2 key_7 val_0)))))" "(values table_3)))))" "(if(not #f)(for-loop_7 table_1 rest_2) table_1)))" " table_0)))))" @@ -2841,10 +2827,10 @@ static const char *startup_source = "(let-values(((table_6) table_4))" "(let-values(((table_7)" "(let-values()" -"(let-values(((key_9 val_1)" +"(let-values(((key_8 val_1)" "(let-values()" "(values(let-values() k_5) #t))))" -"(hash-set table_6 key_9 val_1)))))" +"(hash-set table_6 key_8 val_1)))))" "(values table_7)))))" "(if(not #f)(for-loop_8 table_5 rest_3) table_5)))" " table_4)))))" @@ -3613,10 +3599,10 @@ static const char *startup_source = "(if or-part_31" " or-part_31" "(let-values(((pruned-t_0)(if(=(table-count t_10)(table-prune-at t_10))(prune-table t_10) t_10)))" -"(let-values(((ht_22)(table-ht pruned-t_0)))" +"(let-values(((ht_21)(table-ht pruned-t_0)))" "(let-values(((new-t_0)" "(table2.1" -"(hash-set ht_22 code_0(cons(make-weak-box v_39)(hash-ref ht_22 code_0 null)))" +"(hash-set ht_21 code_0(cons(make-weak-box v_39)(hash-ref ht_21 code_0 null)))" "(add1(table-count pruned-t_0))" "(table-prune-at pruned-t_0))))" "(let-values(((or-part_33)(if(box-cas! b_8 t_10 new-t_0) v_39 #f)))" @@ -3626,17 +3612,17 @@ static const char *startup_source = "(lambda(t_11)" "(begin" "(let-values(((new-ht_0)" -"(let-values(((ht_23)(table-ht t_11)))" +"(let-values(((ht_22)(table-ht t_11)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_23)))" +"(let-values()(check-in-hash ht_22)))" "((letrec-values(((for-loop_16)" "(lambda(table_8 i_34)" "(begin" " 'for-loop" "(if i_34" -"(let-values(((k_6 vals_1)(hash-iterate-key+value ht_23 i_34)))" +"(let-values(((k_6 vals_1)(hash-iterate-key+value ht_22 i_34)))" "(let-values(((table_9)" "(let-values(((new-vals_0)" "(reverse$1" @@ -3702,7 +3688,7 @@ static const char *startup_source = " table_12))" "(let-values(((table_14)" "(let-values()" -"(let-values(((key_10" +"(let-values(((key_9" " val_2)" "(let-values()" "(values" @@ -3710,7 +3696,7 @@ static const char *startup_source = " new-vals_0))))" "(hash-set" " table_13" -" key_10" +" key_9" " val_2)))))" "(values" " table_14)))" @@ -3719,24 +3705,24 @@ static const char *startup_source = " for-loop_18)" " table_8)))))" "(if(not #f)" -"(for-loop_16 table_9(hash-iterate-next ht_23 i_34))" +"(for-loop_16 table_9(hash-iterate-next ht_22 i_34))" " table_9)))" " table_8)))))" " for-loop_16)" " '#hash()" -"(hash-iterate-first ht_23))))))" +"(hash-iterate-first ht_22))))))" "(let-values(((count_0)" -"(let-values(((ht_24) new-ht_0))" +"(let-values(((ht_23) new-ht_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_24)))" +"(let-values()(check-in-hash ht_23)))" "((letrec-values(((for-loop_19)" "(lambda(result_23 i_35)" "(begin" " 'for-loop" "(if i_35" -"(let-values(((k_7 vals_2)(hash-iterate-key+value ht_24 i_35)))" +"(let-values(((k_7 vals_2)(hash-iterate-key+value ht_23 i_35)))" "(let-values(((result_24)" "(let-values(((result_25) result_23))" "(let-values(((result_26)" @@ -3746,12 +3732,12 @@ static const char *startup_source = "(let-values()(length vals_2))))))" "(values result_26)))))" "(if(not #f)" -"(for-loop_19 result_24(hash-iterate-next ht_24 i_35))" +"(for-loop_19 result_24(hash-iterate-next ht_23 i_35))" " result_24)))" " result_23)))))" " for-loop_19)" " 0" -"(hash-iterate-first ht_24))))))" +"(hash-iterate-first ht_23))))))" "(table2.1 new-ht_0 count_0(max 128(* 2 count_0))))))))" "(define-values" "(struct:resolved-module-path resolved-module-path1.1 1/resolved-module-path? 1/resolved-module-path-name)" @@ -4975,10 +4961,10 @@ static const char *startup_source = "(define-values(make-small-hasheqv)(lambda()(begin(box '#hasheqv()))))" "(define-values" "(small-hash-ref)" -"(lambda(small-ht_0 key_11 default_4)(begin(hash-ref(unbox small-ht_0) key_11 default_4))))" +"(lambda(small-ht_0 key_10 default_4)(begin(hash-ref(unbox small-ht_0) key_10 default_4))))" "(define-values" "(small-hash-set!)" -"(lambda(small-ht_1 key_12 val_3)(begin(set-box! small-ht_1(hash-set(unbox small-ht_1) key_12 val_3)))))" +"(lambda(small-ht_1 key_11 val_3)(begin(set-box! small-ht_1(hash-set(unbox small-ht_1) key_11 val_3)))))" "(define-values(small-hash-keys)(lambda(small-ht_2)(begin(hash-keys(unbox small-ht_2)))))" "(define-values" "(struct:serialize-state" @@ -5077,8 +5063,8 @@ static const char *startup_source = "(let-values(((or-part_65)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))" "(if or-part_65" " or-part_65" -"(let-values(((ht_25)(make-hasheq)))" -"(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_25) ht_25))))))" +"(let-values(((ht_24)(make-hasheq)))" +"(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_24) ht_24))))))" "(let-values(((or-part_66)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" "(if or-part_66" " or-part_66" @@ -5092,13 +5078,13 @@ static const char *startup_source = "(let-values(((or-part_67)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))" "(if or-part_67" " or-part_67" -"(let-values(((ht_26)(make-hasheq)))" -"(begin(hash-set!(serialize-state-context-triples state_5) scs_1 ht_26) ht_26))))))" +"(let-values(((ht_25)(make-hasheq)))" +"(begin(hash-set!(serialize-state-context-triples state_5) scs_1 ht_25) ht_25))))))" "(let-values(((sms-ht_0)" "(let-values(((or-part_36)(hash-ref scs-ht_0 sms_1 #f)))" "(if or-part_36" " or-part_36" -"(let-values(((ht_24)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_24) ht_24))))))" +"(let-values(((ht_23)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_23) ht_23))))))" "(let-values(((or-part_68)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" "(if or-part_68" " or-part_68" @@ -5268,12 +5254,12 @@ static const char *startup_source = "(let-values()(f_19 #f(box-immutable(loop_59 #f(unbox s_7) seen_1))))" "(let-values(((c1_20)(immutable-prefab-struct-key s_7)))" "(if c1_20" -"((lambda(key_13)" +"((lambda(key_12)" "(f_19" " #f" "(apply" " make-prefab-struct" -" key_13" +" key_12" "(reverse$1" "(let-values(((v*_1 start*_0 stop*_1 step*_0)" "(normalise-inputs" @@ -5326,11 +5312,11 @@ static const char *startup_source = "(let-values()" "(f_19" " #f" -"(let-values(((ht_27) s_7))" +"(let-values(((ht_26) s_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_27)))" +"(let-values()(check-in-hash ht_26)))" "((letrec-values(((for-loop_27)" "(lambda(table_15 i_42)" "(begin" @@ -5338,14 +5324,14 @@ static const char *startup_source = "(if i_42" "(let-values(((k_10 v_36)" "(hash-iterate-key+value" -" ht_27" +" ht_26" " i_42)))" "(let-values(((table_16)" "(let-values(((table_17)" " table_15))" "(let-values(((table_18)" "(let-values()" -"(let-values(((key_14" +"(let-values(((key_13" " val_4)" "(let-values()" "(values" @@ -5356,28 +5342,28 @@ static const char *startup_source = " seen_1)))))" "(hash-set" " table_17" -" key_14" +" key_13" " val_4)))))" "(values" " table_18)))))" "(if(not #f)" "(for-loop_27" " table_16" -"(hash-iterate-next ht_27 i_42))" +"(hash-iterate-next ht_26 i_42))" " table_16)))" " table_15)))))" " for-loop_27)" " '#hasheq()" -"(hash-iterate-first ht_27))))))" +"(hash-iterate-first ht_26))))))" "(if(hash-eqv? s_7)" "(let-values()" "(f_19" " #f" -"(let-values(((ht_28) s_7))" +"(let-values(((ht_27) s_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_28)))" +"(let-values()(check-in-hash ht_27)))" "((letrec-values(((for-loop_28)" "(lambda(table_19 i_26)" "(begin" @@ -5385,14 +5371,14 @@ static const char *startup_source = "(if i_26" "(let-values(((k_11 v_59)" "(hash-iterate-key+value" -" ht_28" +" ht_27" " i_26)))" "(let-values(((table_10)" "(let-values(((table_11)" " table_19))" "(let-values(((table_12)" "(let-values()" -"(let-values(((key_15" +"(let-values(((key_14" " val_5)" "(let-values()" "(values" @@ -5403,7 +5389,7 @@ static const char *startup_source = " seen_1)))))" "(hash-set" " table_11" -" key_15" +" key_14" " val_5)))))" "(values" " table_12)))))" @@ -5411,21 +5397,21 @@ static const char *startup_source = "(for-loop_28" " table_10" "(hash-iterate-next" -" ht_28" +" ht_27" " i_26))" " table_10)))" " table_19)))))" " for-loop_28)" " '#hasheqv()" -"(hash-iterate-first ht_28))))))" +"(hash-iterate-first ht_27))))))" "(let-values()" "(f_19" " #f" -"(let-values(((ht_26) s_7))" +"(let-values(((ht_25) s_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_26)))" +"(let-values()(check-in-hash ht_25)))" "((letrec-values(((for-loop_29)" "(lambda(table_20 i_43)" "(begin" @@ -5433,14 +5419,14 @@ static const char *startup_source = "(if i_43" "(let-values(((k_12 v_60)" "(hash-iterate-key+value" -" ht_26" +" ht_25" " i_43)))" "(let-values(((table_21)" "(let-values(((table_22)" " table_20))" "(let-values(((table_23)" "(let-values()" -"(let-values(((key_16" +"(let-values(((key_15" " val_6)" "(let-values()" "(values" @@ -5451,7 +5437,7 @@ static const char *startup_source = " seen_1)))))" "(hash-set" " table_22" -" key_16" +" key_15" " val_6)))))" "(values" " table_23)))))" @@ -5459,13 +5445,13 @@ static const char *startup_source = "(for-loop_29" " table_21" "(hash-iterate-next" -" ht_26" +" ht_25" " i_43))" " table_21)))" " table_20)))))" " for-loop_29)" " '#hash()" -"(hash-iterate-first ht_26)))))))))" +"(hash-iterate-first ht_25)))))))))" "(let-values()(f_19 #f s_7)))))))))))))))" " loop_59)" " tail?_0" @@ -5667,11 +5653,11 @@ static const char *startup_source = "(if(propagation?$1 prop_1)((propagation-ref prop_1) s_45)(syntax-content s_45)))" "(reach_0(syntax-scopes s_45))" "(reach_0(syntax-shifted-multi-scopes s_45))" -"(let-values(((ht_29)(syntax-props s_45)))" +"(let-values(((ht_28)(syntax-props s_45)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_29)))" +"(let-values()(check-in-immutable-hash ht_28)))" "((letrec-values(((for-loop_30)" "(lambda(i_44)" "(begin" @@ -5679,7 +5665,7 @@ static const char *startup_source = "(if i_44" "(let-values(((k_13 v_69)" "(unsafe-immutable-hash-iterate-key+value" -" ht_29" +" ht_28" " i_44)))" "(let-values((()" "(let-values()" @@ -5697,11 +5683,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_30" -"(unsafe-immutable-hash-iterate-next ht_29 i_44))" +"(unsafe-immutable-hash-iterate-next ht_28 i_44))" "(values))))" "(values))))))" " for-loop_30)" -"(unsafe-immutable-hash-iterate-first ht_29))))" +"(unsafe-immutable-hash-iterate-first ht_28))))" "(void)" "(reach_0(syntax-srcloc s_45))))))" "(cons" @@ -5716,11 +5702,11 @@ static const char *startup_source = "(intern-properties" "(syntax-props s_46)" "(lambda()" -"(let-values(((ht_30)(syntax-props s_46)))" +"(let-values(((ht_29)(syntax-props s_46)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_30)))" +"(let-values()(check-in-hash ht_29)))" "((letrec-values(((for-loop_31)" "(lambda(table_24 i_45)" "(begin" @@ -5728,7 +5714,7 @@ static const char *startup_source = "(if i_45" "(let-values(((k_14 v_70)" "(hash-iterate-key+value" -" ht_30" +" ht_29" " i_45)))" "(let-values(((table_25)" "(let-values(((table_26)" @@ -5739,7 +5725,7 @@ static const char *startup_source = " table_26))" "(let-values(((table_28)" "(let-values()" -"(let-values(((key_17" +"(let-values(((key_16" " val_7)" "(let-values()" "(values" @@ -5750,19 +5736,19 @@ static const char *startup_source = " syntax?$1)))))" "(hash-set" " table_27" -" key_17" +" key_16" " val_7)))))" "(values table_28)))" " table_26))))" "(if(not #f)" "(for-loop_31" " table_25" -"(hash-iterate-next ht_30 i_45))" +"(hash-iterate-next ht_29 i_45))" " table_25)))" " table_24)))))" " for-loop_31)" " '#hasheq()" -"(hash-iterate-first ht_30)))))" +"(hash-iterate-first ht_29)))))" " state_10)))" "(let-values(((tamper_0)(serialize-tamper(syntax-tamper s_46))))" "(let-values(((context-triple_0)" @@ -6172,36 +6158,36 @@ static const char *startup_source = "(vector*-ref context-triple_1 2)" " srcloc_1" "(if props_0" -"(let-values(((ht_31) props_0))" +"(let-values(((ht_30) props_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_31)))" +"(let-values()(check-in-immutable-hash ht_30)))" "((letrec-values(((for-loop_32)" "(lambda(table_29 i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((k_15 v_73)(unsafe-immutable-hash-iterate-key+value ht_31 i_46)))" +"(let-values(((k_15 v_73)(unsafe-immutable-hash-iterate-key+value ht_30 i_46)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" "(let-values()" -"(let-values(((key_18 val_8)" +"(let-values(((key_17 val_8)" "(let-values()" "(values" " k_15" "(preserved-property-value1.1" " v_73)))))" -"(hash-set table_31 key_18 val_8)))))" +"(hash-set table_31 key_17 val_8)))))" "(values table_32)))))" "(if(not #f)" -"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_31 i_46))" +"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_30 i_46))" " table_30)))" " table_29)))))" " for-loop_32)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_31))))" +"(unsafe-immutable-hash-iterate-first ht_30))))" " empty-props)" " inspector_0))))" "(define-values" @@ -6823,18 +6809,18 @@ static const char *startup_source = "(let-values(((bulk-symbols_0)(bulk-binding-symbols bulk_2 #f null)))" "(if(<(hash-count syms_2)(hash-count bulk-symbols_0))" "(let-values()" -"(let-values(((ht_32) syms_2))" +"(let-values(((ht_31) syms_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_32)))" +"(let-values()(check-in-immutable-hash ht_31)))" "((letrec-values(((for-loop_33)" "(lambda(syms_3 i_31)" "(begin" " 'for-loop" "(if i_31" "(let-values(((sym_5 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_32 i_31)))" +"(unsafe-immutable-hash-iterate-key+value ht_31 i_31)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" @@ -6862,24 +6848,24 @@ static const char *startup_source = "(if(not #f)" "(for-loop_33" " syms_4" -"(unsafe-immutable-hash-iterate-next ht_32 i_31))" +"(unsafe-immutable-hash-iterate-next ht_31 i_31))" " syms_4)))" " syms_3)))))" " for-loop_33)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_32)))))" +"(unsafe-immutable-hash-iterate-first ht_31)))))" "(let-values()" -"(let-values(((ht_33) bulk-symbols_0))" +"(let-values(((ht_32) bulk-symbols_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_33)))" +"(let-values()(check-in-immutable-hash-keys ht_32)))" "((letrec-values(((for-loop_34)" "(lambda(syms_7 i_47)" "(begin" " 'for-loop" "(if i_47" -"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_33 i_47)))" +"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_32 i_47)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" @@ -6909,12 +6895,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_34" " syms_8" -"(unsafe-immutable-hash-iterate-next ht_33 i_47))" +"(unsafe-immutable-hash-iterate-next ht_32 i_47))" " syms_8)))" " syms_7)))))" " for-loop_34)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_33)))))))))))))))" +"(unsafe-immutable-hash-iterate-first ht_32)))))))))))))))" "(define-values" "(remove-matching-binding26.1)" "(lambda(except20_0 syms22_0 sym23_0 sym-bindings24_0 scopes25_0)" @@ -6936,30 +6922,30 @@ static const char *startup_source = "(binding-table-symbols)" "(lambda(table_33 scs_2 s_70 extra-shifts_1)" "(begin" -"(let-values(((ht_31 bulk-bindings_1)" +"(let-values(((ht_30 bulk-bindings_1)" "(if(hash? table_33)" "(values table_33 null)" "(values" "(table-with-bulk-bindings-syms table_33)" "(table-with-bulk-bindings-bulk-bindings table_33)))))" "(set-union" -"(let-values(((ht_34) ht_31))" +"(let-values(((ht_33) ht_30))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_34)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_33)))" "((letrec-values(((for-loop_35)" "(lambda(table_34 i_48)" "(begin" " 'for-loop" "(if i_48" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_34 i_48)))" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_33 i_48)))" "(let-values(((table_32)" "(let-values(((table_35) table_34))" -"(if(let-values(((ht_35) at-sym_0))" +"(if(let-values(((ht_34) at-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_35)))" +"(let-values()(check-in-hash-keys ht_34)))" "((letrec-values(((for-loop_36)" "(lambda(result_29 i_49)" "(begin" @@ -6967,7 +6953,7 @@ static const char *startup_source = "(if i_49" "(let-values(((an-scs_0)" "(hash-iterate-key" -" ht_35" +" ht_34" " i_49)))" "(let-values(((result_30)" "(let-values()" @@ -6988,29 +6974,29 @@ static const char *startup_source = "(for-loop_36" " result_30" "(hash-iterate-next" -" ht_35" +" ht_34" " i_49))" " result_30)))" " result_29)))))" " for-loop_36)" " #f" -"(hash-iterate-first ht_35))))" +"(hash-iterate-first ht_34))))" "(let-values(((table_36) table_35))" "(let-values(((table_37)" "(let-values()" -"(let-values(((key_19 val_9)" +"(let-values(((key_18 val_9)" "(let-values()" "(values" "(let-values() sym_8)" " #t))))" -"(hash-set table_36 key_19 val_9)))))" +"(hash-set table_36 key_18 val_9)))))" "(values table_37)))" " table_35))))" -"(if(not #f)(for-loop_35 table_32(hash-iterate-next ht_34 i_48)) table_32)))" +"(if(not #f)(for-loop_35 table_32(hash-iterate-next ht_33 i_48)) table_32)))" " table_34)))))" " for-loop_35)" " '#hasheq()" -"(hash-iterate-first ht_34))))" +"(hash-iterate-first ht_33))))" "(let-values(((lst_35) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" @@ -7023,7 +7009,7 @@ static const char *startup_source = "(let-values(((table_39)" "(let-values(((table_40) table_38))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" -"(let-values(((ht_36)" +"(let-values(((ht_35)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" " s_70" @@ -7032,7 +7018,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_36)))" +"(let-values()(check-in-hash-keys ht_35)))" "((letrec-values(((for-loop_38)" "(lambda(table_41 i_50)" "(begin" @@ -7040,14 +7026,14 @@ static const char *startup_source = "(if i_50" "(let-values(((sym_9)" "(hash-iterate-key" -" ht_36" +" ht_35" " i_50)))" "(let-values(((table_42)" "(let-values(((table_43)" " table_41))" "(let-values(((table_44)" "(let-values()" -"(let-values(((key_20" +"(let-values(((key_19" " val_10)" "(let-values()" "(values" @@ -7056,7 +7042,7 @@ static const char *startup_source = " #t))))" "(hash-set" " table_43" -" key_20" +" key_19" " val_10)))))" "(values" " table_44)))))" @@ -7064,13 +7050,13 @@ static const char *startup_source = "(for-loop_38" " table_42" "(hash-iterate-next" -" ht_36" +" ht_35" " i_50))" " table_42)))" " table_41)))))" " for-loop_38)" " table_40" -"(hash-iterate-first ht_36))))" +"(hash-iterate-first ht_35))))" " table_40))))" "(if(not #f)(for-loop_37 table_39 rest_14) table_39)))" " table_38)))))" @@ -7086,11 +7072,11 @@ static const char *startup_source = " or-part_92" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" -"(let-values(((ht_37)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" +"(let-values(((ht_36)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_37)))" +"(let-values()(check-in-immutable-hash ht_36)))" "((letrec-values(((for-loop_39)" "(lambda(table_45 i_51)" "(begin" @@ -7098,11 +7084,11 @@ static const char *startup_source = "(if i_51" "(let-values(((sym_2 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" -" ht_37" +" ht_36" " i_51)))" "(let-values(((table_46)" "(let-values(((new-bindings-for-sym_0)" -"(let-values(((ht_38)" +"(let-values(((ht_37)" " bindings-for-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -7110,7 +7096,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash" -" ht_38)))" +" ht_37)))" "((letrec-values(((for-loop_40)" "(lambda(table_47" " i_52)" @@ -7120,7 +7106,7 @@ static const char *startup_source = "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" -" ht_38" +" ht_37" " i_52)))" "(let-values(((table_48)" "(let-values(((table_49)" @@ -7132,7 +7118,7 @@ static const char *startup_source = " table_49))" "(let-values(((table_51)" "(let-values()" -"(let-values(((key_21" +"(let-values(((key_20" " val_11)" "(let-values()" "(values" @@ -7142,7 +7128,7 @@ static const char *startup_source = " binding_1))))" "(hash-set" " table_50" -" key_21" +" key_20" " val_11)))))" "(values" " table_51)))" @@ -7152,14 +7138,14 @@ static const char *startup_source = "(for-loop_40" " table_48" "(unsafe-immutable-hash-iterate-next" -" ht_38" +" ht_37" " i_52))" " table_48)))" " table_47)))))" " for-loop_40)" " '#hash()" "(unsafe-immutable-hash-iterate-first" -" ht_38))))))" +" ht_37))))))" "(begin" " #t" "((letrec-values(((for-loop_41)" @@ -7177,7 +7163,7 @@ static const char *startup_source = " table_54))" "(let-values(((table_56)" "(let-values()" -"(let-values(((key_22" +"(let-values(((key_21" " val_12)" "(let-values()" "(values" @@ -7185,7 +7171,7 @@ static const char *startup_source = " new-bindings-for-sym_0))))" "(hash-set" " table_55" -" key_22" +" key_21" " val_12)))))" "(values" " table_56)))" @@ -7196,12 +7182,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_39" " table_46" -"(unsafe-immutable-hash-iterate-next ht_37 i_51))" +"(unsafe-immutable-hash-iterate-next ht_36 i_51))" " table_46)))" " table_45)))))" " for-loop_39)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_37))))))" +"(unsafe-immutable-hash-iterate-first ht_36))))))" "(let-values(((new-bulk-bindings_0)" "(if(hash? bt_3)" " null" @@ -7265,24 +7251,24 @@ static const char *startup_source = "(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)" "(begin" "(begin" -"(let-values(((ht_39)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" +"(let-values(((ht_38)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_39)))" +"(let-values()(check-in-immutable-hash ht_38)))" "((letrec-values(((for-loop_43)" "(lambda(i_53)" "(begin" " 'for-loop" "(if i_53" "(let-values(((sym_10 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_39 i_53)))" +"(unsafe-immutable-hash-iterate-key+value ht_38 i_53)))" "(let-values((()" -"(let-values(((ht_40) bindings-for-sym_1))" +"(let-values(((ht_39) bindings-for-sym_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_40)))" +"(let-values()(check-in-immutable-hash ht_39)))" "((letrec-values(((for-loop_44)" "(lambda(i_54)" "(begin" @@ -7290,7 +7276,7 @@ static const char *startup_source = "(if i_54" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" -" ht_40" +" ht_39" " i_54)))" "(let-values((()" "(let-values()" @@ -7316,18 +7302,18 @@ static const char *startup_source = "(if(not #f)" "(for-loop_44" "(unsafe-immutable-hash-iterate-next" -" ht_40" +" ht_39" " i_54))" "(values))))" "(values))))))" " for-loop_44)" -"(unsafe-immutable-hash-iterate-first ht_40))))))" +"(unsafe-immutable-hash-iterate-first ht_39))))))" "(if(not #f)" -"(for-loop_43(unsafe-immutable-hash-iterate-next ht_39 i_53))" +"(for-loop_43(unsafe-immutable-hash-iterate-next ht_38 i_53))" "(values))))" "(values))))))" " for-loop_43)" -"(unsafe-immutable-hash-iterate-first ht_39))))" +"(unsafe-immutable-hash-iterate-first ht_38))))" "(void)" "(if(table-with-bulk-bindings? bt_4)" "(let-values()" @@ -7372,18 +7358,18 @@ static const char *startup_source = "(let-values()(reach_3 v_75))" "(let-values()" "(let-values(((pending-scopes_0)" -"(let-values(((ht_41) scopes_7))" +"(let-values(((ht_40) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_41)))" +"(let-values()(check-in-immutable-hash-keys ht_40)))" "((letrec-values(((for-loop_46)" "(lambda(table_57 i_55)" "(begin" " 'for-loop" "(if i_55" "(let-values(((sc_0)" -"(unsafe-immutable-hash-iterate-key ht_41 i_55)))" +"(unsafe-immutable-hash-iterate-key ht_40 i_55)))" "(let-values(((table_58)" "(let-values(((table_59) table_57))" "(if(let-values(((or-part_93)" @@ -7397,7 +7383,7 @@ static const char *startup_source = "(let-values(((table_60) table_59))" "(let-values(((table_61)" "(let-values()" -"(let-values(((key_23" +"(let-values(((key_22" " val_13)" "(let-values()" "(values" @@ -7406,18 +7392,18 @@ static const char *startup_source = " #t))))" "(hash-set" " table_60" -" key_23" +" key_22" " val_13)))))" "(values table_61)))))))" "(if(not #f)" "(for-loop_46" " table_58" -"(unsafe-immutable-hash-iterate-next ht_41 i_55))" +"(unsafe-immutable-hash-iterate-next ht_40 i_55))" " table_58)))" " table_57)))))" " for-loop_46)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_41))))))" +"(unsafe-immutable-hash-iterate-first ht_40))))))" "(let-values(((check-trigger_0)" "(lambda(reach_4)" "(begin" @@ -7426,11 +7412,11 @@ static const char *startup_source = "(let-values()" "(begin" "(reach_4 v_75)" -"(let-values(((ht_42) scopes_7))" +"(let-values(((ht_41) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_42)))" +"(let-values()(check-in-immutable-hash-keys ht_41)))" "((letrec-values(((for-loop_47)" "(lambda(i_56)" "(begin" @@ -7438,7 +7424,7 @@ static const char *startup_source = "(if i_56" "(let-values(((sc_1)" "(unsafe-immutable-hash-iterate-key" -" ht_42" +" ht_41" " i_56)))" "(let-values((()" "(let-values()" @@ -7457,26 +7443,26 @@ static const char *startup_source = "(if(not #f)" "(for-loop_47" "(unsafe-immutable-hash-iterate-next" -" ht_42" +" ht_41" " i_56))" "(values))))" "(values))))))" " for-loop_47)" -"(unsafe-immutable-hash-iterate-first ht_42))))" +"(unsafe-immutable-hash-iterate-first ht_41))))" "(void)))" "(void))))))" "(begin" -"(let-values(((ht_43) pending-scopes_0))" +"(let-values(((ht_42) pending-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_43)))" +"(let-values()(check-in-immutable-hash-keys ht_42)))" "((letrec-values(((for-loop_48)" "(lambda(i_8)" "(begin" " 'for-loop" "(if i_8" -"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_43 i_8)))" +"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_42 i_8)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7495,11 +7481,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_48(unsafe-immutable-hash-iterate-next ht_43 i_8))" +"(for-loop_48(unsafe-immutable-hash-iterate-next ht_42 i_8))" "(values))))" "(values))))))" " for-loop_48)" -"(unsafe-immutable-hash-iterate-first ht_43))))" +"(unsafe-immutable-hash-iterate-first ht_42))))" "(void)" "(check-trigger_0 reach_3))))))))))" "(define-values" @@ -7507,7 +7493,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_71 key_24)" +"((s_71 key_23)" "(begin" " 'syntax-property" "(let-values((()" @@ -7516,18 +7502,18 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))" "(values))))" -"(let-values(((v_65)(hash-ref(syntax-props s_71) key_24 #f)))(plain-property-value v_65)))))" -"((s_72 key_25 val_14)" +"(let-values(((v_65)(hash-ref(syntax-props s_71) key_23 #f)))(plain-property-value v_65)))))" +"((s_72 key_24 val_14)" "(let-values((()" "(begin" "(if(syntax?$1 s_72)" "(void)" " (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))" "(values))))" -"(let-values(((pval_0)(if(eq? key_25 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" +"(let-values(((pval_0)(if(eq? key_24 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" "(let-values(((the-struct_3) s_72))" "(if(syntax?$1 the-struct_3)" -"(let-values(((props2_0)(hash-set(syntax-props s_72) key_25 pval_0)))" +"(let-values(((props2_0)(hash-set(syntax-props s_72) key_24 pval_0)))" "(syntax1.1" "(syntax-content the-struct_3)" "(syntax-scopes the-struct_3)" @@ -7538,7 +7524,7 @@ static const char *startup_source = " props2_0" "(syntax-inspector the-struct_3)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))" -"((s_73 key_26 val_15 preserved?_0)" +"((s_73 key_25 val_15 preserved?_0)" "(let-values((()" "(begin" "(if(syntax?$1 s_73)" @@ -7549,14 +7535,14 @@ static const char *startup_source = "(begin" "(if preserved?_0" "(let-values()" -"(if(if(symbol? key_26)(symbol-interned? key_26) #f)" +"(if(if(symbol? key_25)(symbol-interned? key_25) #f)" "(void)" "(let-values()" "(raise-arguments-error" " 'syntax-property" " \"key for a perserved property must be an interned symbol\"" " \"given key\"" -" key_26" +" key_25" " \"given value\"" " val_15))))" "(void))" @@ -7564,7 +7550,7 @@ static const char *startup_source = "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))" "(let-values(((the-struct_4) s_73))" "(if(syntax?$1 the-struct_4)" -"(let-values(((props3_0)(hash-set(syntax-props s_73) key_26 pval_1)))" +"(let-values(((props3_0)(hash-set(syntax-props s_73) key_25 pval_1)))" "(syntax1.1" "(syntax-content the-struct_4)" "(syntax-scopes the-struct_4)" @@ -7577,7 +7563,7 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_74 key_27)" +"(lambda(s_74 key_26)" "(begin" " 'syntax-property-preserved?" "(let-values()" @@ -7586,11 +7572,11 @@ static const char *startup_source = "(if(syntax?$1 s_74)" "(void)" " (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_74)))" -"(if(if(symbol? key_27)(symbol-interned? key_27) #f)" +"(if(if(symbol? key_26)(symbol-interned? key_26) #f)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_27)))" -"(preserved-property-value?(hash-ref(syntax-props s_74) key_27 #f))))))))" +" (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_26)))" +"(preserved-property-value?(hash-ref(syntax-props s_74) key_26 #f))))))))" "(define-values" "(1/syntax-property-symbol-keys)" "(lambda(s_10)" @@ -7603,18 +7589,18 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))" "(reverse$1" -"(let-values(((ht_44)(syntax-props s_10)))" +"(let-values(((ht_43)(syntax-props s_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_44)))" +"(let-values()(check-in-immutable-hash ht_43)))" "((letrec-values(((for-loop_49)" "(lambda(fold-var_26 i_57)" "(begin" " 'for-loop" "(if i_57" "(let-values(((k_16 v_30)" -"(unsafe-immutable-hash-iterate-key+value ht_44 i_57)))" +"(unsafe-immutable-hash-iterate-key+value ht_43 i_57)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -7627,25 +7613,25 @@ static const char *startup_source = "(values fold-var_30)))" " fold-var_28))))" "(if(not #f)" -"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_44 i_57))" +"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_43 i_57))" " fold-var_27)))" " fold-var_26)))))" " for-loop_49)" " null" -"(unsafe-immutable-hash-iterate-first ht_44)))))))))))" +"(unsafe-immutable-hash-iterate-first ht_43)))))))))))" "(define-values" "(1/syntax-property-remove)" -"(lambda(s_75 key_28)" +"(lambda(s_75 key_27)" "(begin" " 'syntax-property-remove" "(let-values()" "(let-values()" "(begin" " (if (syntax?$1 s_75) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_75)))" -"(if(hash-ref(syntax-props s_75) key_28 #f)" +"(if(hash-ref(syntax-props s_75) key_27 #f)" "(let-values(((the-struct_5) s_75))" "(if(syntax?$1 the-struct_5)" -"(let-values(((props7_0)(hash-remove(syntax-props s_75) key_28)))" +"(let-values(((props7_0)(hash-remove(syntax-props s_75) key_27)))" "(syntax1.1" "(syntax-content the-struct_5)" "(syntax-scopes the-struct_5)" @@ -7757,18 +7743,18 @@ static const char *startup_source = "(let-values(((or-part_94)(set-member? t_17 insp_0)))" "(if or-part_94" " or-part_94" -"(let-values(((ht_45) t_17))" +"(let-values(((ht_44) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_45)))" +"(let-values()(check-in-immutable-hash-keys ht_44)))" "((letrec-values(((for-loop_50)" "(lambda(result_32 i_58)" "(begin" " 'for-loop" "(if i_58" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_45 i_58)))" +"(unsafe-immutable-hash-iterate-key ht_44 i_58)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -7781,12 +7767,12 @@ static const char *startup_source = "(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)" "(for-loop_50" " result_33" -"(unsafe-immutable-hash-iterate-next ht_45 i_58))" +"(unsafe-immutable-hash-iterate-next ht_44 i_58))" " result_33)))" " result_32)))))" " for-loop_50)" " #f" -"(unsafe-immutable-hash-iterate-first ht_45))))))" +"(unsafe-immutable-hash-iterate-first ht_44))))))" " #f)" "(let-values() s_6)" "(let-values()" @@ -7811,17 +7797,17 @@ static const char *startup_source = "(remove-inferior)" "(lambda(t_19 insp_1)" "(begin" -"(let-values(((ht_46) t_19))" +"(let-values(((ht_45) t_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_46)))" +"(let-values()(check-in-immutable-hash-keys ht_45)))" "((letrec-values(((for-loop_51)" "(lambda(table_62 i_59)" "(begin" " 'for-loop" "(if i_59" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_59)))" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_45 i_59)))" "(let-values(((table_63)" "(let-values(((table_64) table_62))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" @@ -7829,20 +7815,20 @@ static const char *startup_source = "(let-values(((table_65) table_64))" "(let-values(((table_66)" "(let-values()" -"(let-values(((key_29 val_16)" +"(let-values(((key_28 val_16)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_65 key_29 val_16)))))" +"(hash-set table_65 key_28 val_16)))))" "(values table_66)))))))" "(if(not #f)" -"(for-loop_51 table_63(unsafe-immutable-hash-iterate-next ht_46 i_59))" +"(for-loop_51 table_63(unsafe-immutable-hash-iterate-next ht_45 i_59))" " table_63)))" " table_62)))))" " for-loop_51)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_46)))))))" +"(unsafe-immutable-hash-iterate-first ht_45)))))))" "(define-values" "(syntax-disarm$1)" "(let-values(((syntax-disarm4_0)" @@ -7956,11 +7942,11 @@ static const char *startup_source = "(if(syntax?$1 the-struct_12)" "(let-values(((scope-propagations+tamper12_0)" "(let-values(((t_26)" -"(let-values(((ht_47) from-t_0))" +"(let-values(((ht_46) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_47)))" +"(let-values()(check-in-immutable-hash-keys ht_46)))" "((letrec-values(((for-loop_52)" "(lambda(t_27 i_60)" "(begin" @@ -7968,7 +7954,7 @@ static const char *startup_source = "(if i_60" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" -" ht_47" +" ht_46" " i_60)))" "(let-values(((t_3)" "(let-values(((t_28)" @@ -7997,13 +7983,13 @@ static const char *startup_source = "(for-loop_52" " t_3" "(unsafe-immutable-hash-iterate-next" -" ht_47" +" ht_46" " i_60))" " t_3)))" " t_27)))))" " for-loop_52)" " t_23" -"(unsafe-immutable-hash-iterate-first ht_47)))))" +"(unsafe-immutable-hash-iterate-first ht_46)))))" "((p_11)(syntax-scope-propagations+tamper stx_6)))" "(if(tamper? p_11) t_26((propagation-set-tamper-ref p_11) p_11 t_26)))))" "(syntax1.1" @@ -8044,17 +8030,17 @@ static const char *startup_source = "(any-superior?)" "(lambda(t_31 from-i_1)" "(begin" -"(let-values(((ht_48) t_31))" +"(let-values(((ht_47) t_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_48)))" +"(let-values()(check-in-immutable-hash-keys ht_47)))" "((letrec-values(((for-loop_53)" "(lambda(result_35 i_61)" "(begin" " 'for-loop" "(if i_61" -"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_48 i_61)))" +"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_47 i_61)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" @@ -8063,12 +8049,12 @@ static const char *startup_source = "(inspector-superior-or-same? i_62 from-i_1)))))" "(values result_37)))))" "(if(if(not((lambda x_29 result_36) i_62))(not #f) #f)" -"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_48 i_61))" +"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_47 i_61))" " result_36)))" " result_35)))))" " for-loop_53)" " #f" -"(unsafe-immutable-hash-iterate-first ht_48)))))))" +"(unsafe-immutable-hash-iterate-first ht_47)))))))" "(define-values" "(inspector-superior-or-same?)" "(lambda(sup-i_0 i_45)" @@ -8471,17 +8457,17 @@ static const char *startup_source = " prop:scope-with-bindings" "(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)" "(begin" -"(let-values(((ht_49)(multi-scope-scopes ms_0)))" +"(let-values(((ht_48)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-values ht_49)))" +"(let-values()(check-in-hash-values ht_48)))" "((letrec-values(((for-loop_55)" "(lambda(i_63)" "(begin" " 'for-loop" "(if i_63" -"(let-values(((sc_4)(hash-iterate-value ht_49 i_63)))" +"(let-values(((sc_4)(hash-iterate-value ht_48 i_63)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8497,11 +8483,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_55(hash-iterate-next ht_49 i_63))" +"(for-loop_55(hash-iterate-next ht_48 i_63))" "(values))))" "(values))))))" " for-loop_55)" -"(hash-iterate-first ht_49))))" +"(hash-iterate-first ht_48))))" "(void))))" "(cons prop:reach-scopes(lambda(s_87 reach_9)(void)))" "(cons" @@ -8515,20 +8501,20 @@ static const char *startup_source = "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" "(if or-part_100" " or-part_100" -"(let-values(((ht_50)(make-hasheqv)))" +"(let-values(((ht_49)(make-hasheqv)))" "(begin" -"(let-values(((ht_18)(multi-scope-scopes ms_1)))" +"(let-values(((ht_17)(multi-scope-scopes ms_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_18)))" +"(let-values()(check-in-hash ht_17)))" "((letrec-values(((for-loop_3)" "(lambda(i_64)" "(begin" " 'for-loop" "(if i_64" "(let-values(((phase_8 sc_5)" -"(hash-iterate-key+value ht_18 i_64)))" +"(hash-iterate-key+value ht_17 i_64)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8541,21 +8527,21 @@ static const char *startup_source = " sc_5)" "(let-values()" "(hash-set!" -" ht_50" +" ht_49" " phase_8" " sc_5))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_3(hash-iterate-next ht_18 i_64))" +"(for-loop_3(hash-iterate-next ht_17 i_64))" "(values))))" "(values))))))" " for-loop_3)" -"(hash-iterate-first ht_18))))" +"(hash-iterate-first ht_17))))" "(void)" -"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_50)" -" ht_50)))))))))))" +"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_49)" +" ht_49)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" @@ -8700,7 +8686,7 @@ static const char *startup_source = "(lambda(phase_11 multi-scope_1)" "(begin" "(letrec-values(((transaction-loop_0)" -"(lambda(boxed-table_0 key_30 make_0)" +"(lambda(boxed-table_0 key_29 make_0)" "(begin" " 'transaction-loop" "(let-values(((or-part_101)(hash-ref(unbox boxed-table_0) phase_11 #f)))" @@ -8708,10 +8694,10 @@ static const char *startup_source = " or-part_101" "(let-values(((val_17)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" -"(let-values(((next_3)(hash-set current_0 key_30 val_17)))" +"(let-values(((next_3)(hash-set current_0 key_29 val_17)))" "(if(box-cas! boxed-table_0 current_0 next_3)" " val_17" -"(transaction-loop_0 boxed-table_0 key_30 make_0)))))))))))" +"(transaction-loop_0 boxed-table_0 key_29 make_0)))))))))))" "(if(phase? phase_11)" "(let-values()" "(let-values(((or-part_102)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" @@ -9456,18 +9442,18 @@ static const char *startup_source = "(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_50)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_51)))" +"(let-values()(check-in-immutable-hash ht_50)))" "((letrec-values(((for-loop_60)" "(lambda(scs_9 i_65)" "(begin" " 'for-loop" "(if i_65" "(let-values(((sc_20 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_51 i_65)))" +"(unsafe-immutable-hash-iterate-key+value ht_50 i_65)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_20))" @@ -9494,12 +9480,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_60" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_51 i_65))" +"(unsafe-immutable-hash-iterate-next ht_50 i_65))" " scs_10)))" " scs_9)))))" " for-loop_60)" " scs_8" -"(unsafe-immutable-hash-iterate-first ht_51))))))" +"(unsafe-immutable-hash-iterate-first ht_50))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" "(syntax-scopes parent-s_0)" "(cache-or-reuse-set new-scs_0))))))))" @@ -9511,18 +9497,18 @@ static const char *startup_source = "(let-values()(syntax-shifted-multi-scopes parent-s_1))" "(let-values()" "(let-values(((new-smss_0)" -"(let-values(((ht_52)(propagation-scope-ops prop_9)))" +"(let-values(((ht_51)(propagation-scope-ops prop_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_52)))" +"(let-values()(check-in-immutable-hash ht_51)))" "((letrec-values(((for-loop_61)" "(lambda(smss_14 i_66)" "(begin" " 'for-loop" "(if i_66" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_52 i_66)))" +"(unsafe-immutable-hash-iterate-key+value ht_51 i_66)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -9555,12 +9541,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_61" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_52 i_66))" +"(unsafe-immutable-hash-iterate-next ht_51 i_66))" " smss_15)))" " smss_14)))))" " for-loop_61)" " smss_13" -"(unsafe-immutable-hash-iterate-first ht_52))))))" +"(unsafe-immutable-hash-iterate-first ht_51))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" "(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)" " parent-smss_0" @@ -9621,11 +9607,11 @@ static const char *startup_source = "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_53)(propagation-scope-ops prop_13)))" +"(let-values(((ht_52)(propagation-scope-ops prop_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_53)))" +"(let-values()(check-in-immutable-hash ht_52)))" "((letrec-values(((for-loop_62)" "(lambda(ops_1 i_68)" "(begin" @@ -9633,7 +9619,7 @@ static const char *startup_source = "(if i_68" "(let-values(((sc_21 op_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_53" +" ht_52" " i_68)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" @@ -9692,12 +9678,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_62" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_53 i_68))" +"(unsafe-immutable-hash-iterate-next ht_52 i_68))" " ops_2)))" " ops_1)))))" " for-loop_62)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_53))))))" +"(unsafe-immutable-hash-iterate-first ht_52))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" @@ -9775,11 +9761,11 @@ static const char *startup_source = "(fallback-map" " smss_20" "(lambda(smss_21)" -"(let-values(((ht_54) smss_21))" +"(let-values(((ht_53) smss_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_54)))" +"(let-values()(check-in-immutable-hash-keys ht_53)))" "((letrec-values(((for-loop_63)" "(lambda(table_67 i_69)" "(begin" @@ -9787,7 +9773,7 @@ static const char *startup_source = "(if i_69" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" -" ht_54" +" ht_53" " i_69)))" "(let-values(((table_68)" "(let-values(((new-sms_0)" @@ -9809,7 +9795,7 @@ static const char *startup_source = " table_71))" "(let-values(((table_73)" "(let-values()" -"(let-values(((key_31" +"(let-values(((key_30" " val_18)" "(let-values()" "(values" @@ -9818,7 +9804,7 @@ static const char *startup_source = " #t))))" "(hash-set" " table_72" -" key_31" +" key_30" " val_18)))))" "(values" " table_73)))" @@ -9830,13 +9816,13 @@ static const char *startup_source = "(for-loop_63" " table_68" "(unsafe-immutable-hash-iterate-next" -" ht_54" +" ht_53" " i_69))" " table_68)))" " table_67)))))" " for-loop_63)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_54)))))))))" +"(unsafe-immutable-hash-iterate-first ht_53)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" "(let-values(((s_130) s_129)" "((f_32)(lambda(tail?_30 d_4)(begin 'f d_4)))" @@ -9939,23 +9925,23 @@ static const char *startup_source = " s_137" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" -"(let-values(((ht_55) src-scopes_0))" +"(let-values(((ht_54) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_55)))" +"(let-values()(check-in-immutable-hash-keys ht_54)))" "((letrec-values(((for-loop_65)" "(lambda(table_74 i_70)" "(begin" " 'for-loop" "(if i_70" "(let-values(((sc_22)" -"(unsafe-immutable-hash-iterate-key ht_55 i_70)))" +"(unsafe-immutable-hash-iterate-key ht_54 i_70)))" "(let-values(((table_75)" "(let-values(((table_76) table_74))" "(let-values(((table_77)" "(let-values()" -"(let-values(((key_32 val_19)" +"(let-values(((key_31 val_19)" "(let-values()" "(values" "(let-values()" @@ -9964,40 +9950,40 @@ static const char *startup_source = " #t))))" "(hash-set" " table_76" -" key_32" +" key_31" " val_19)))))" "(values table_77)))))" "(if(not #f)" "(for-loop_65" " table_75" -"(unsafe-immutable-hash-iterate-next ht_55 i_70))" +"(unsafe-immutable-hash-iterate-next ht_54 i_70))" " table_75)))" " table_74)))))" " for-loop_65)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_55))))" +"(unsafe-immutable-hash-iterate-first ht_54))))" " shifted-multi-scope?" "(seteq)" "(seteq)))" "((dest-smss_0 dest-scs_0)" "(set-partition" -"(let-values(((ht_56) dest-scopes_0))" +"(let-values(((ht_55) dest-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" +"(let-values()(check-in-immutable-hash-keys ht_55)))" "((letrec-values(((for-loop_66)" "(lambda(table_78 i_71)" "(begin" " 'for-loop" "(if i_71" "(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_56 i_71)))" +"(unsafe-immutable-hash-iterate-key ht_55 i_71)))" "(let-values(((table_79)" "(let-values(((table_80) table_78))" "(let-values(((table_81)" "(let-values()" -"(let-values(((key_33 val_20)" +"(let-values(((key_32 val_20)" "(let-values()" "(values" "(let-values()" @@ -10006,18 +9992,18 @@ static const char *startup_source = " #t))))" "(hash-set" " table_80" -" key_33" +" key_32" " val_20)))))" "(values table_81)))))" "(if(not #f)" "(for-loop_66" " table_79" -"(unsafe-immutable-hash-iterate-next ht_56 i_71))" +"(unsafe-immutable-hash-iterate-next ht_55 i_71))" " table_79)))" " table_78)))))" " for-loop_66)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_56))))" +"(unsafe-immutable-hash-iterate-first ht_55))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" @@ -10157,17 +10143,17 @@ static const char *startup_source = "(scope-set-at-fallback)" "(lambda(s_146 smss_24 phase_15)" "(begin" -"(let-values(((ht_57) smss_24))" +"(let-values(((ht_56) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" +"(let-values()(check-in-immutable-hash-keys ht_56)))" "((letrec-values(((for-loop_67)" "(lambda(scopes_9 i_72)" "(begin" " 'for-loop" "(if i_72" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_72)))" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_56 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" "(if(let-values(((or-part_124)(label-phase? phase_15)))" @@ -10192,29 +10178,29 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_72))" +"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_56 i_72))" " scopes_10)))" " scopes_9)))))" " for-loop_67)" "(syntax-scopes s_146)" -"(unsafe-immutable-hash-iterate-first ht_57)))))))" +"(unsafe-immutable-hash-iterate-first ht_56)))))))" "(define-values" "(find-max-scope)" "(lambda(scopes_14)" "(begin" "(begin" " (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))" -"(let-values(((ht_58) scopes_14))" +"(let-values(((ht_57) scopes_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_58)))" +"(let-values()(check-in-immutable-hash-keys ht_57)))" "((letrec-values(((for-loop_68)" "(lambda(max-sc_0 i_73)" "(begin" " 'for-loop" "(if i_73" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_58 i_73)))" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_57 i_73)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -10222,12 +10208,12 @@ static const char *startup_source = "(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_73))" +"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_57 i_73))" " max-sc_1)))" " max-sc_0)))))" " for-loop_68)" "(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_58))))))))" +"(unsafe-immutable-hash-iterate-first ht_57))))))))" "(define-values" "(add-binding-in-scopes!20.1)" "(lambda(just-for-nominal?15_0 just-for-nominal?16_0 scopes17_0 sym18_0 binding19_0)" @@ -10268,17 +10254,17 @@ static const char *startup_source = "(syntax-any-macro-scopes?)" "(lambda(s_147)" "(begin" -"(let-values(((ht_59)(syntax-scopes s_147)))" +"(let-values(((ht_58)(syntax-scopes s_147)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_59)))" +"(let-values()(check-in-immutable-hash-keys ht_58)))" "((letrec-values(((for-loop_69)" "(lambda(result_45 i_74)" "(begin" " 'for-loop" "(if i_74" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_59 i_74)))" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_58 i_74)))" "(let-values(((result_46)" "(let-values()" "(let-values(((result_47)" @@ -10286,12 +10272,12 @@ static const char *startup_source = "(let-values()(eq?(scope-kind sc_25) 'macro)))))" "(values result_47)))))" "(if(if(not((lambda x_35 result_46) sc_25))(not #f) #f)" -"(for-loop_69 result_46(unsafe-immutable-hash-iterate-next ht_59 i_74))" +"(for-loop_69 result_46(unsafe-immutable-hash-iterate-next ht_58 i_74))" " result_46)))" " result_45)))))" " for-loop_69)" " #f" -"(unsafe-immutable-hash-iterate-first ht_59)))))))" +"(unsafe-immutable-hash-iterate-first ht_58)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0" @@ -10344,13 +10330,13 @@ static const char *startup_source = "(fallback-first smss_25)" " phase_16)))" "(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_60) scopes_17))" +"(let-values(((ht_59) scopes_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_60)))" +"(check-in-immutable-hash-keys ht_59)))" "((letrec-values(((for-loop_70)" "(lambda(best-scopes_1" " best-binding_1" @@ -10360,11 +10346,11 @@ static const char *startup_source = "(if i_75" "(let-values(((sc_26)" "(unsafe-immutable-hash-iterate-key" -" ht_60" +" ht_59" " i_75)))" "(let-values(((best-scopes_2" " best-binding_2)" -"(let-values(((ht_61" +"(let-values(((ht_60" " bulk-bindings_2)" "(let-values(((table_82)" "(scope-binding-table" @@ -10409,7 +10395,7 @@ static const char *startup_source = " i_76)))" "(let-values()" "(hash-iterate-key" -" ht_61" +" ht_60" " i_76))))" "((binding_4)" "(if(pair?" @@ -10439,7 +10425,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_61" +" ht_60" " i_76)))))" "(let-values(((best-scopes_4" " best-binding_4)" @@ -10567,7 +10553,7 @@ static const char *startup_source = "(let-values()" "(let-values(((or-part_125)" "(hash-iterate-next" -" ht_61" +" ht_60" " i_76)))" "(if or-part_125" " or-part_125" @@ -10583,7 +10569,7 @@ static const char *startup_source = " best-binding_1" "(let-values(((or-part_126)" "(hash-iterate-first" -" ht_61)))" +" ht_60)))" "(if or-part_126" " or-part_126" " bulk-bindings_2)))))))" @@ -10592,7 +10578,7 @@ static const char *startup_source = " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" -" ht_60" +" ht_59" " i_75))" "(values" " best-scopes_2" @@ -10603,7 +10589,7 @@ static const char *startup_source = " for-loop_70)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_60))))))" +"(unsafe-immutable-hash-iterate-first ht_59))))))" "(if(pair? best-scopes_0)" "(let-values()" "(if(fallback? smss_25)" @@ -10679,30 +10665,30 @@ static const char *startup_source = "(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'key))))" "(define-values" "(deserialize-full-local-binding)" -"(lambda(key_34 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_34))))" +"(lambda(key_33 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_33))))" "(define-values" "(make-local-binding7.1)" "(lambda(frame-id2_0 frame-id4_0 free=id3_0 free=id5_0 key6_0)" "(begin" " 'make-local-binding7" -"(let-values(((key_35) key6_0))" +"(let-values(((key_34) key6_0))" "(let-values(((frame-id_2)(if frame-id4_0 frame-id2_0 #f)))" "(let-values(((free=id_4)(if free=id5_0 free=id3_0 #f)))" "(let-values()" "(if(if(not frame-id_2)(not free=id_4) #f)" -"(let-values() key_35)" -"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_35))))))))))" +"(let-values() key_34)" +"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_34))))))))))" "(define-values" "(local-binding-update17.1)" "(lambda(frame-id11_0 frame-id14_0 free=id12_0 free=id15_0 key10_0 key13_0 b16_0)" "(begin" " 'local-binding-update17" "(let-values(((b_43) b16_0))" -"(let-values(((key_13)(if key13_0 key10_0(local-binding-key b_43))))" +"(let-values(((key_12)(if key13_0 key10_0(local-binding-key b_43))))" "(let-values(((frame-id_3)(if frame-id14_0 frame-id11_0(binding-frame-id b_43))))" "(let-values(((free=id_5)(if free=id15_0 free=id12_0(binding-free=id b_43))))" "(let-values()" -"(let-values(((key21_0) key_13)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" +"(let-values(((key21_0) key_12)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" "(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key21_0))))))))))" "(define-values" "(local-binding-key)" @@ -11707,15 +11693,15 @@ static const char *startup_source = "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" "(begin" -"(let-values(((ht_62) provides_1))" +"(let-values(((ht_61) provides_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" "((letrec-values(((for-loop_77)" "(lambda(table_84 i_78)" "(begin" " 'for-loop" "(if i_78" -"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_62 i_78)))" +"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_61 i_78)))" "(let-values(((table_85)" "(let-values(((table_86) table_84))" "(if(hash-ref excepts_2 sym_17 #f)" @@ -11725,7 +11711,7 @@ static const char *startup_source = "(let-values(((table_88) table_87))" "(let-values(((table_89)" "(let-values()" -"(let-values(((key_36 val_24)" +"(let-values(((key_35 val_24)" "(let-values()" "(values" "(if prefix_2" @@ -11736,14 +11722,14 @@ static const char *startup_source = " sym_17))" " sym_17)" " val_23))))" -"(hash-set table_88 key_36 val_24)))))" +"(hash-set table_88 key_35 val_24)))))" "(values table_89)))" " table_87))))))" -"(if(not #f)(for-loop_77 table_85(hash-iterate-next ht_62 i_78)) table_85)))" +"(if(not #f)(for-loop_77 table_85(hash-iterate-next ht_61 i_78)) table_85)))" " table_84)))))" " for-loop_77)" " '#hash()" -"(hash-iterate-first ht_62)))))))" +"(hash-iterate-first ht_61)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" "(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" @@ -11956,29 +11942,29 @@ static const char *startup_source = "((new-self20_0) new-self_0))" "(syntax-module-path-index-shift15.1 #f #f temp18_2 orig-self19_0 new-self20_0 #f #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" -"(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_62)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" "((letrec-values(((for-loop_78)" "(lambda(table_90 i_79)" "(begin" " 'for-loop" "(if i_79" -"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_79)))" +"(let-values(((phase_24 ht_63)(hash-iterate-key+value ht_62 i_79)))" "(let-values(((table_91)" "(let-values(((table_92) table_90))" "(let-values(((table_93)" "(let-values()" -"(let-values(((key_37 val_25)" +"(let-values(((key_36 val_25)" "(let-values()" -"(values phase_24 ht_64))))" -"(hash-set table_92 key_37 val_25)))))" +"(values phase_24 ht_63))))" +"(hash-set table_92 key_36 val_25)))))" "(values table_93)))))" -"(if(not #f)(for-loop_78 table_91(hash-iterate-next ht_63 i_79)) table_91)))" +"(if(not #f)(for-loop_78 table_91(hash-iterate-next ht_62 i_79)) table_91)))" " table_90)))))" " for-loop_78)" " '#hasheqv()" -"(hash-iterate-first ht_63))))" +"(hash-iterate-first ht_62))))" "(root-expand-context-frame-id ctx_0)" "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" @@ -12021,15 +12007,15 @@ static const char *startup_source = "(defined-syms-hash?)" "(lambda(v_89)" "(begin" -"(let-values(((ht_65) v_89))" +"(let-values(((ht_64) v_89))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" "((letrec-values(((for-loop_8)" "(lambda(result_55 i_80)" "(begin" " 'for-loop" "(if i_80" -"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_80)))" +"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_64 i_80)))" "(let-values(((result_56)" "(let-values()" "(let-values(((result_57)" @@ -12037,12 +12023,12 @@ static const char *startup_source = "(let-values()" "(if(phase? phase_25)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_66)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_65)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_66)))" +"(let-values()(check-in-hash ht_65)))" "((letrec-values(((for-loop_79)" "(lambda(result_58 i_81)" "(begin" @@ -12051,7 +12037,7 @@ static const char *startup_source = "(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" -" ht_66" +" ht_65" " i_81)))" "(let-values(((result_59)" "(let-values()" @@ -12076,23 +12062,23 @@ static const char *startup_source = "(for-loop_79" " result_59" "(hash-iterate-next" -" ht_66" +" ht_65" " i_81))" " result_59)))" " result_58)))))" " for-loop_79)" " #t" -"(hash-iterate-first ht_66))))" +"(hash-iterate-first ht_65))))" " #f)" " #f)))))" "(values result_57)))))" "(if(if(not((lambda x_39(not result_56)) phase_25 ht-s_0))(not #f) #f)" -"(for-loop_8 result_56(hash-iterate-next ht_65 i_80))" +"(for-loop_8 result_56(hash-iterate-next ht_64 i_80))" " result_56)))" " result_55)))))" " for-loop_8)" " #t" -"(hash-iterate-first ht_65)))))))" +"(hash-iterate-first ht_64)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))" @@ -12107,25 +12093,25 @@ static const char *startup_source = "(lambda(v_90)" "(begin" "(hash-copy" -"(let-values(((ht_67)(syntax-e$1 v_90)))" +"(let-values(((ht_66)(syntax-e$1 v_90)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" "((letrec-values(((for-loop_80)" "(lambda(table_94 i_82)" "(begin" " 'for-loop" "(if i_82" -"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_82)))" +"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_66 i_82)))" "(let-values(((table_95)" "(let-values(((table_96) table_94))" "(let-values(((table_97)" "(let-values()" -"(let-values(((key_38 val_17)" +"(let-values(((key_37 val_17)" "(let-values()" "(values" " phase_26" "(hash-copy" -"(let-values(((ht_68)" +"(let-values(((ht_67)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -12133,7 +12119,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_68)))" +"(check-in-hash ht_67)))" "((letrec-values(((for-loop_13)" "(lambda(table_98" " i_83)" @@ -12143,14 +12129,14 @@ static const char *startup_source = "(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" -" ht_68" +" ht_67" " i_83)))" "(let-values(((table_99)" "(let-values(((table_100)" " table_98))" "(let-values(((table_101)" "(let-values()" -"(let-values(((key_39" +"(let-values(((key_38" " val_26)" "(let-values()" "(values" @@ -12158,7 +12144,7 @@ static const char *startup_source = " id_9))))" "(hash-set" " table_100" -" key_39" +" key_38" " val_26)))))" "(values" " table_101)))))" @@ -12167,21 +12153,21 @@ static const char *startup_source = "(for-loop_13" " table_99" "(hash-iterate-next" -" ht_68" +" ht_67" " i_83))" " table_99)))" " table_98)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" -" ht_68)))))))))" -"(hash-set table_96 key_38 val_17)))))" +" ht_67)))))))))" +"(hash-set table_96 key_37 val_17)))))" "(values table_97)))))" -"(if(not #f)(for-loop_80 table_95(hash-iterate-next ht_67 i_82)) table_95)))" +"(if(not #f)(for-loop_80 table_95(hash-iterate-next ht_66 i_82)) table_95)))" " table_94)))))" " for-loop_80)" " '#hasheqv()" -"(hash-iterate-first ht_67))))))))" +"(hash-iterate-first ht_66))))))))" "(define-values(1/primitive-table) primitive-table)" "(define-values(1/primitive->compiled-position) primitive->compiled-position)" "(define-values(1/compiled-position->primitive) compiled-position->primitive)" @@ -12658,12 +12644,12 @@ static const char *startup_source = "(hash-count old-props-with-origin_0)" "(hash-count new-props_0))" "(let-values()" -"(let-values(((ht_69) old-props-with-origin_0))" +"(let-values(((ht_68) old-props-with-origin_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_69)))" +"(let-values()(check-in-immutable-hash ht_68)))" "((letrec-values(((for-loop_81)" "(lambda(new-props_1 i_84)" "(begin" @@ -12671,7 +12657,7 @@ static const char *startup_source = "(if i_84" "(let-values(((k_17 v_92)" "(unsafe-immutable-hash-iterate-key+value" -" ht_69" +" ht_68" " i_84)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" @@ -12699,20 +12685,20 @@ static const char *startup_source = "(for-loop_81" " new-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_69" +" ht_68" " i_84))" " new-props_2)))" " new-props_1)))))" " for-loop_81)" " new-props_0" -"(unsafe-immutable-hash-iterate-first ht_69)))))" +"(unsafe-immutable-hash-iterate-first ht_68)))))" "(let-values()" -"(let-values(((ht_70) new-props_0))" +"(let-values(((ht_69) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_70)))" +"(let-values()(check-in-immutable-hash ht_69)))" "((letrec-values(((for-loop_82)" "(lambda(old-props_1 i_85)" "(begin" @@ -12720,7 +12706,7 @@ static const char *startup_source = "(if i_85" "(let-values(((k_18 v_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_70" +" ht_69" " i_85)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" @@ -12748,13 +12734,13 @@ static const char *startup_source = "(for-loop_82" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_70" +" ht_69" " i_85))" " old-props_2)))" " old-props_1)))))" " for-loop_82)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_70))))))))" +"(unsafe-immutable-hash-iterate-first ht_69))))))))" "(let-values(((the-struct_35) new-stx_0))" "(if(syntax?$1 the-struct_35)" "(let-values(((props9_0) updated-props_0))" @@ -14438,27 +14424,27 @@ static const char *startup_source = "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_71)(module-provides m_10)))" +"(let-values(((ht_70)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_71)))" +"(let-values()(check-in-hash ht_70)))" "((letrec-values(((for-loop_92)" "(lambda(table_102 i_86)" "(begin" " 'for-loop" "(if i_86" "(let-values(((phase_33 at-phase_6)" -"(hash-iterate-key+value ht_71 i_86)))" +"(hash-iterate-key+value ht_70 i_86)))" "(let-values(((table_103)" "(let-values(((table_104) table_102))" "(let-values(((table_105)" "(let-values()" -"(let-values(((key_40 val_32)" +"(let-values(((key_39 val_32)" "(let-values()" "(values" " phase_33" -"(let-values(((ht_72)" +"(let-values(((ht_71)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14466,7 +14452,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_72)))" +" ht_71)))" "((letrec-values(((for-loop_93)" "(lambda(table_106" " i_87)" @@ -14476,14 +14462,14 @@ static const char *startup_source = "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" -" ht_72" +" ht_71" " i_87)))" "(let-values(((table_107)" "(let-values(((table_108)" " table_106))" "(let-values(((table_109)" "(let-values()" -"(let-values(((key_41" +"(let-values(((key_40" " val_33)" "(let-values()" "(values" @@ -14496,7 +14482,7 @@ static const char *startup_source = " 'provided)))))" "(hash-set" " table_108" -" key_41" +" key_40" " val_33)))))" "(values" " table_109)))))" @@ -14505,26 +14491,26 @@ static const char *startup_source = "(for-loop_93" " table_107" "(hash-iterate-next" -" ht_72" +" ht_71" " i_87))" " table_107)))" " table_106)))))" " for-loop_93)" " '#hash()" "(hash-iterate-first" -" ht_72))))))))" +" ht_71))))))))" "(hash-set" " table_104" -" key_40" +" key_39" " val_32)))))" "(values table_105)))))" "(if(not #f)" -"(for-loop_92 table_103(hash-iterate-next ht_71 i_86))" +"(for-loop_92 table_103(hash-iterate-next ht_70 i_86))" " table_103)))" " table_102)))))" " for-loop_92)" " '#hasheqv()" -"(hash-iterate-first ht_71))))))" +"(hash-iterate-first ht_70))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" @@ -14795,7 +14781,7 @@ static const char *startup_source = "(let-values(((v_93)((set!-transformer-value t_37) t_37)))" "(if(procedure-arity-includes? v_93 1) v_93(lambda(s_161)(v_93 t_37 s_161)))))))" "(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(env-extend)(lambda(env_0 key_41 val_21)(begin(hash-set env_0 key_41 val_21))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" @@ -14924,16 +14910,16 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(check-id-taint id_17 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_43)" +"(let-values(((key_42)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_17) (unbox counter_1)))))" "(begin" "(let-values(((temp62_0)(syntax-scope-set id_17 phase_38))" "((temp63_1)(syntax-e$1 id_17))" "((temp64_1)" -"(let-values(((key65_0) key_43)((frame-id66_0) frame-id_5))" +"(let-values(((key65_0) key_42)((frame-id66_0) frame-id_5))" "(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))" "(add-binding-in-scopes!20.1 #f #f temp62_0 temp63_1 temp64_1))" -" key_43)))))))))))))" +" key_42)))))))))))))" "(define-values" "(check-id-taint)" "(lambda(id_18 in-s_5)" @@ -15072,28 +15058,28 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_95)" -"(lambda(ht_73 lst_77)" +"(lambda(ht_72 lst_77)" "(begin" " 'for-loop" "(if(pair? lst_77)" "(let-values(((id_21)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" -"(let-values(((ht_74)" -"(let-values(((ht_75) ht_73))" -"(let-values(((ht_76)" +"(let-values(((ht_73)" +"(let-values(((ht_74) ht_72))" +"(let-values(((ht_75)" "(let-values()" "(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_21" " phase_40)))" "(hash-set" -" ht_75" +" ht_74" " sym_21" "(cons-ish" " id_21" -"(hash-ref ht_75 sym_21 null)))))))" -"(values ht_76)))))" -"(if(not #f)(for-loop_95 ht_74 rest_35) ht_74)))" -" ht_73)))))" +"(hash-ref ht_74 sym_21 null)))))))" +"(values ht_75)))))" +"(if(not #f)(for-loop_95 ht_73 rest_35) ht_73)))" +" ht_72)))))" " for-loop_95)" " '#hasheq()" " lst_76))))))" @@ -15823,13 +15809,13 @@ static const char *startup_source = "((rest_38)(unsafe-cdr lst_83)))" "(let-values(((table_111)" "(let-values(((table_112) table_110))" -"(let-values(((ht_77) syms_12))" +"(let-values(((ht_76) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_77)))" +"(check-in-hash-keys ht_76)))" "((letrec-values(((for-loop_98)" "(lambda(table_113" " i_40)" @@ -15838,14 +15824,14 @@ static const char *startup_source = "(if i_40" "(let-values(((sym_24)" "(hash-iterate-key" -" ht_77" +" ht_76" " i_40)))" "(let-values(((table_114)" "(let-values(((table_115)" " table_113))" "(let-values(((table_116)" "(let-values()" -"(let-values(((key_44" +"(let-values(((key_43" " val_35)" "(let-values()" "(let-values(((b_61)" @@ -15887,7 +15873,7 @@ static const char *startup_source = " b_61))))))" "(hash-set" " table_115" -" key_44" +" key_43" " val_35)))))" "(values" " table_116)))))" @@ -15896,13 +15882,13 @@ static const char *startup_source = "(for-loop_98" " table_114" "(hash-iterate-next" -" ht_77" +" ht_76" " i_40))" " table_114)))" " table_113)))))" " for-loop_98)" " table_112" -"(hash-iterate-first ht_77)))))))" +"(hash-iterate-first ht_76)))))))" "(if(not #f)" "(for-loop_97 table_111 rest_37 rest_38)" " table_111)))" @@ -15944,11 +15930,11 @@ static const char *startup_source = "(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_78) core-primitives))" +"(let-values(((ht_77) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_78)))" +"(let-values()(check-in-hash ht_77)))" "((letrec-values(((for-loop_99)" "(lambda(i_88)" "(begin" @@ -15956,7 +15942,7 @@ static const char *startup_source = "(if i_88" "(let-values(((sym_25 val_36)" "(hash-iterate-key+value" -" ht_78" +" ht_77" " i_88)))" "(let-values((()" "(let-values()" @@ -15973,17 +15959,17 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_99" -"(hash-iterate-next ht_78 i_88))" +"(hash-iterate-next ht_77 i_88))" "(values))))" "(values))))))" " for-loop_99)" -"(hash-iterate-first ht_78))))" +"(hash-iterate-first ht_77))))" "(void)" -"(let-values(((ht_79) core-forms))" +"(let-values(((ht_78) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_79)))" +"(let-values()(check-in-hash ht_78)))" "((letrec-values(((for-loop_100)" "(lambda(i_89)" "(begin" @@ -15991,7 +15977,7 @@ static const char *startup_source = "(if i_89" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" -" ht_79" +" ht_78" " i_89)))" "(let-values((()" "(let-values()" @@ -16014,11 +16000,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_100" -"(hash-iterate-next ht_79 i_89))" +"(hash-iterate-next ht_78 i_89))" "(values))))" "(values))))))" " for-loop_100)" -"(hash-iterate-first ht_79))))" +"(hash-iterate-first ht_78))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -16405,7 +16391,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_44)" +"(let-values(((ht_43)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -16413,7 +16399,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_44)))" +" ht_43)))" "((letrec-values(((for-loop_49)" "(lambda(bindings_2" " covered-scope-sets_0" @@ -16423,11 +16409,11 @@ static const char *startup_source = "(if i_90" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" -" ht_44" +" ht_43" " i_90)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_80" +"(let-values(((ht_79" " bulk-bindings_3)" "(let-values(((table_117)" "(scope-binding-table" @@ -16472,7 +16458,7 @@ static const char *startup_source = " i_91)))" "(let-values()" "(hash-iterate-key" -" ht_80" +" ht_79" " i_91))))" "((b_62)" "(if(pair?" @@ -16502,7 +16488,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_80" +" ht_79" " i_91)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" @@ -16584,7 +16570,7 @@ static const char *startup_source = "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" -" ht_80" +" ht_79" " i_91)))" "(if or-part_7" " or-part_7" @@ -16600,7 +16586,7 @@ static const char *startup_source = " covered-scope-sets_0" "(let-values(((or-part_8)" "(hash-iterate-first" -" ht_80)))" +" ht_79)))" "(if or-part_8" " or-part_8" " bulk-bindings_3)))))))" @@ -16610,7 +16596,7 @@ static const char *startup_source = " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_44" +" ht_43" " i_90))" "(values" " bindings_3" @@ -16622,7 +16608,7 @@ static const char *startup_source = " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_44))))))" +" ht_43))))))" " bindings_1))" "(let-values()" " null))))" @@ -16639,24 +16625,24 @@ static const char *startup_source = " for-loop_101)" " null" " lst_77))))))" -"(let-values(((ht_73)(car hts_0)))(if(null?(cdr hts_0)) ht_73(hash-set ht_73 'fallbacks(cdr hts_0))))))))" +"(let-values(((ht_72)(car hts_0)))(if(null?(cdr hts_0)) ht_72(hash-set ht_72 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_81) scs_16))" +"(let-values(((ht_80) scs_16))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_81)))" +"(let-values()(check-in-immutable-hash-keys ht_80)))" "((letrec-values(((for-loop_103)" "(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" "(if i_92" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_81 i_92)))" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_80 i_92)))" "(let-values(((fold-var_64)" "(let-values(((fold-var_65) fold-var_63))" "(let-values(((fold-var_66)" @@ -16678,12 +16664,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_103" " fold-var_64" -"(unsafe-immutable-hash-iterate-next ht_81 i_92))" +"(unsafe-immutable-hash-iterate-next ht_80 i_92))" " fold-var_64)))" " fold-var_63)))))" " for-loop_103)" " null" -"(unsafe-immutable-hash-iterate-first ht_81))))))" +"(unsafe-immutable-hash-iterate-first ht_80))))))" "((<2_0) <)" "((temp3_2)(lambda(v_130)(vector-ref v_130 0))))" "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" @@ -17155,16 +17141,16 @@ static const char *startup_source = "(let-values(((ids_2) ids5_0))" "(let-values(((phase_47) phase6_0))" "(let-values(((s_186) s7_1))" -"(let-values(((ht_76)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((ht_75)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" "((letrec-values(((loop_34)" -"(lambda(v_131 ht_82)" +"(lambda(v_131 ht_81)" "(begin" " 'loop" "(if(identifier? v_131)" "(let-values()" -"(let-values(((l_48)(hash-ref ht_82(syntax-e$1 v_131) null)))" +"(let-values(((l_48)(hash-ref ht_81(syntax-e$1 v_131) null)))" "(begin" "(let-values(((lst_78) l_48))" "(begin" @@ -17207,13 +17193,13 @@ static const char *startup_source = " for-loop_96)" " lst_78)))" "(void)" -"(hash-set ht_82(syntax-e$1 v_131)(cons v_131 l_48)))))" +"(hash-set ht_81(syntax-e$1 v_131)(cons v_131 l_48)))))" "(if(pair? v_131)" -"(let-values()(loop_34(cdr v_131)(loop_34(car v_131) ht_82)))" -"(let-values() ht_82)))))))" +"(let-values()(loop_34(cdr v_131)(loop_34(car v_131) ht_81)))" +"(let-values() ht_81)))))))" " loop_34)" " ids_2" -" ht_76))))))))))" +" ht_75))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -17541,38 +17527,38 @@ static const char *startup_source = "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" -"(let-values(((ht_83) positions_1))" +"(let-values(((ht_82) positions_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_83)))" +"(let-values()(check-in-hash ht_82)))" "((letrec-values(((for-loop_83)" "(lambda(table_118 i_94)" "(begin" " 'for-loop" "(if i_94" -"(let-values(((k_19 v_64)(hash-iterate-key+value ht_83 i_94)))" +"(let-values(((k_19 v_64)(hash-iterate-key+value ht_82 i_94)))" "(let-values(((table_119)" "(let-values(((table_113) table_118))" "(let-values(((table_120)" "(let-values()" -"(let-values(((key_45 val_37)" +"(let-values(((key_44 val_37)" "(let-values()" "(values" " v_64" " k_19))))" "(hash-set" " table_113" -" key_45" +" key_44" " val_37)))))" "(values table_120)))))" "(if(not #f)" -"(for-loop_83 table_119(hash-iterate-next ht_83 i_94))" +"(for-loop_83 table_119(hash-iterate-next ht_82 i_94))" " table_119)))" " table_118)))))" " for-loop_83)" " '#hasheqv()" -"(hash-iterate-first ht_83))))))" +"(hash-iterate-first ht_82))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -17632,23 +17618,23 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_84) gen-order_0))" +"(let-values(((ht_83) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_84)))" +"(let-values()(check-in-hash ht_83)))" "((letrec-values(((for-loop_114)" "(lambda(table_121 i_96)" "(begin" " 'for-loop" "(if i_96" "(let-values(((k_20 v_133)" -"(hash-iterate-key+value ht_84 i_96)))" +"(hash-iterate-key+value ht_83 i_96)))" "(let-values(((table_15)" "(let-values(((table_122) table_121))" "(let-values(((table_9)" "(let-values()" -"(let-values(((key_46" +"(let-values(((key_45" " val_38)" "(let-values()" "(values" @@ -17656,16 +17642,16 @@ static const char *startup_source = " k_20))))" "(hash-set" " table_122" -" key_46" +" key_45" " val_38)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_114 table_15(hash-iterate-next ht_84 i_96))" +"(for-loop_114 table_15(hash-iterate-next ht_83 i_96))" " table_15)))" " table_121)))))" " for-loop_114)" " '#hasheqv()" -"(hash-iterate-first ht_84))))))" +"(hash-iterate-first ht_83))))))" "(let-values(((gens_0)" "(let-values(((len_12)(hash-count gen-order_0)))" "(begin" @@ -17912,17 +17898,17 @@ static const char *startup_source = "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" "(let-values(((vec_37)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_85) positions_2))" +"(let-values(((ht_84) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" +"(let-values()(check-in-hash ht_84)))" "((letrec-values(((for-loop_117)" "(lambda(i_107)" "(begin" " 'for-loop" "(if i_107" -"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_85 i_107)))" +"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_84 i_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17932,10 +17918,10 @@ static const char *startup_source = "(vector-set! vec_37 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_117(hash-iterate-next ht_85 i_107))(values))))" +"(if(not #f)(for-loop_117(hash-iterate-next ht_84 i_107))(values))))" "(values))))))" " for-loop_117)" -"(hash-iterate-first ht_85))))" +"(hash-iterate-first ht_84))))" "(void)" " vec_37))))))" "(define-values" @@ -18533,12 +18519,12 @@ static const char *startup_source = "(let-values(((share-step-positions_0)" "(let-values(((share-steps_0)" "(reverse$1" -"(let-values(((ht_86) shares_0))" +"(let-values(((ht_85) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_86)))" +"(let-values()(check-in-hash-keys ht_85)))" "((letrec-values(((for-loop_75)" "(lambda(fold-var_102 i_108)" "(begin" @@ -18546,7 +18532,7 @@ static const char *startup_source = "(if i_108" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_86" +" ht_85" " i_108)))" "(let-values(((fold-var_103)" "(let-values(((fold-var_104)" @@ -18565,13 +18551,13 @@ static const char *startup_source = "(for-loop_75" " fold-var_103" "(hash-iterate-next" -" ht_86" +" ht_85" " i_108))" " fold-var_103)))" " fold-var_102)))))" " for-loop_75)" " null" -"(hash-iterate-first ht_86)))))))" +"(hash-iterate-first ht_85)))))))" "(let-values(((lst_112)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" @@ -18599,7 +18585,7 @@ static const char *startup_source = " table_123))" "(let-values(((table_126)" "(let-values()" -"(let-values(((key_47" +"(let-values(((key_46" " val_39)" "(let-values()" "(values" @@ -18607,7 +18593,7 @@ static const char *startup_source = " pos_25))))" "(hash-set" " table_125" -" key_47" +" key_46" " val_39)))))" "(values table_126)))))" "(if(not #f)" @@ -18952,7 +18938,7 @@ static const char *startup_source = "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_87)" +"(let-values(((ht_86)" " v_140))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18960,7 +18946,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-values" -" ht_87)))" +" ht_86)))" "((letrec-values(((for-loop_42)" "(lambda(result_68" " i_111)" @@ -18969,7 +18955,7 @@ static const char *startup_source = "(if i_111" "(let-values(((val_40)" "(hash-iterate-value" -" ht_87" +" ht_86" " i_111)))" "(let-values(((result_69)" "(let-values()" @@ -18992,14 +18978,14 @@ static const char *startup_source = "(for-loop_42" " result_69" "(hash-iterate-next" -" ht_87" +" ht_86" " i_111))" " result_69)))" " result_68)))))" " for-loop_42)" " #t" "(hash-iterate-first" -" ht_87))))))" +" ht_86))))))" "(let-values((()" "(begin" "(ser-push!_15" @@ -19404,12 +19390,12 @@ static const char *startup_source = " \"unknown mutable: ~e\"" " v_142))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_88) mutables_0))" +"(let-values(((ht_87) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_88)))" +"(let-values()(check-in-hash ht_87)))" "((letrec-values(((for-loop_134)" "(lambda(table_127 i_7)" "(begin" @@ -19418,14 +19404,14 @@ static const char *startup_source = "(let-values(((k_26" " v_144)" "(hash-iterate-key+value" -" ht_88" +" ht_87" " i_7)))" "(let-values(((table_128)" "(let-values(((table_129)" " table_127))" "(let-values(((table_130)" "(let-values()" -"(let-values(((key_48" +"(let-values(((key_47" " val_41)" "(let-values()" "(values" @@ -19433,7 +19419,7 @@ static const char *startup_source = " k_26))))" "(hash-set" " table_129" -" key_48" +" key_47" " val_41)))))" "(values" " table_130)))))" @@ -19441,13 +19427,13 @@ static const char *startup_source = "(for-loop_134" " table_128" "(hash-iterate-next" -" ht_88" +" ht_87" " i_7))" " table_128)))" " table_127)))))" " for-loop_134)" " '#hasheqv()" -"(hash-iterate-first ht_88))))))" +"(hash-iterate-first ht_87))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -19494,13 +19480,13 @@ static const char *startup_source = "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_89) shares_0))" +"(let-values(((ht_88) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_89)))" +"(check-in-hash-keys ht_88)))" "((letrec-values(((for-loop_136)" "(lambda(table_131 i_114)" "(begin" @@ -19508,14 +19494,14 @@ static const char *startup_source = "(if i_114" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_89" +" ht_88" " i_114)))" "(let-values(((table_132)" "(let-values(((table_133)" " table_131))" "(let-values(((table_134)" "(let-values()" -"(let-values(((key_49" +"(let-values(((key_48" " val_42)" "(let-values()" "(values" @@ -19527,7 +19513,7 @@ static const char *startup_source = " obj_1))))" "(hash-set" " table_133" -" key_49" +" key_48" " val_42)))))" "(values" " table_134)))))" @@ -19535,13 +19521,13 @@ static const char *startup_source = "(for-loop_136" " table_132" "(hash-iterate-next" -" ht_89" +" ht_88" " i_114))" " table_132)))" " table_131)))))" " for-loop_136)" " '#hasheqv()" -"(hash-iterate-first ht_89))))))" +"(hash-iterate-first ht_88))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -19659,9 +19645,9 @@ static const char *startup_source = "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_90)" +"(lambda(ht_2)" "(begin" -"(let-values(((ks_2)(hash-keys ht_90)))" +"(let-values(((ks_2)(hash-keys ht_2)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -20136,7 +20122,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 16)" "(if(unsafe-fx< index_0 14)" "(let-values()" -"(let-values(((ht_91)" +"(let-values(((ht_89)" "(let-values(((tmp_21)(vector*-ref vec_50 pos_50)))" "(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" @@ -20152,14 +20138,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" "((letrec-values(((for-loop_143)" -"(lambda(ht_92 pos_56 pos_57)" +"(lambda(ht_90 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_93 pos_58)" -"(let-values(((ht_94) ht_92)((pos_59) pos_56))" -"(let-values(((ht_95 pos_60)" +"(let-values(((ht_91 pos_58)" +"(let-values(((ht_92) ht_90)((pos_59) pos_56))" +"(let-values(((ht_93 pos_60)" "(let-values()" "(let-values(((k_27 next-pos_24)" "(decode" @@ -20179,15 +20165,15 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_94 k_27 v_149)" +"(hash-set ht_92 k_27 v_149)" " next-pos_25))))))" -"(values ht_95 pos_60)))))" +"(values ht_93 pos_60)))))" "(if(not #f)" -"(for-loop_143 ht_93 pos_58(+ pos_57 inc_14))" -"(values ht_93 pos_58))))" -"(values ht_92 pos_56))))))" +"(for-loop_143 ht_91 pos_58(+ pos_57 inc_14))" +"(values ht_91 pos_58))))" +"(values ht_90 pos_56))))))" " for-loop_143)" -" ht_91" +" ht_89" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" @@ -20239,7 +20225,7 @@ static const char *startup_source = "(+ pos_50 2)" " start_29))))))" "(let-values()" -"(let-values(((key_50 next-pos_27)" +"(let-values(((key_49 next-pos_27)" "(let-values(((k_29 next-pos_28)" "(decode" " vec_50" @@ -20290,7 +20276,7 @@ static const char *startup_source = " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_50(reverse$1 r_29)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_49(reverse$1 r_29)) done-pos_1)))))))" "(if(unsafe-fx< index_0 17)" "(let-values()(values(deserialize-scope)(add1 pos_50)))" "(if(unsafe-fx< index_0 18)" @@ -20520,7 +20506,7 @@ static const char *startup_source = " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" -"(let-values(((key_51 next-pos_55)" +"(let-values(((key_50 next-pos_55)" "(decode" " vec_50" "(add1 pos_50)" @@ -20536,7 +20522,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-full-local-binding key_51 free=id_9) next-pos_56))))" +"(values(deserialize-full-local-binding key_50 free=id_9) next-pos_56))))" "(if(unsafe-fx< index_0 27)" "(let-values()" "(let-values(((prefix_3 next-pos_57)" @@ -20689,7 +20675,7 @@ static const char *startup_source = "(let-values(((pos_80) pos_77))" "(let-values(((pos_81)" "(let-values()" -"(let-values(((key_52 next-pos_68)" +"(let-values(((key_51 next-pos_68)" "(decode" " vec_51" " pos_80" @@ -20706,7 +20692,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_151 key_52 val_43)" +"(hash-set! v_151 key_51 val_43)" " done-pos_2))))))" "(values pos_81)))))" "(if(not #f)(for-loop_70 pos_79(+ pos_78 inc_18)) pos_79)))" @@ -20842,12 +20828,12 @@ static const char *startup_source = "(if(hash? v_153)" "(let-values()" "(begin" -"(let-values(((ht_96) v_153))" +"(let-values(((ht_94) v_153))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_96)))" +"(let-values()(check-in-hash ht_94)))" "((letrec-values(((for-loop_149)" "(lambda(i_127)" "(begin" @@ -20855,7 +20841,7 @@ static const char *startup_source = "(if i_127" "(let-values(((k_30 v_154)" "(hash-iterate-key+value" -" ht_96" +" ht_94" " i_127)))" "(let-values((()" "(let-values()" @@ -20873,12 +20859,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_149" "(hash-iterate-next" -" ht_96" +" ht_94" " i_127))" "(values))))" "(values))))))" " for-loop_149)" -"(hash-iterate-first ht_96))))" +"(hash-iterate-first ht_94))))" "(void)))" "(if(prefab-struct-key v_153)" "(let-values()" @@ -21562,17 +21548,17 @@ static const char *startup_source = "(lambda(s_0 phase_45)" "(begin" "(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" -"(let-values(((ht_97) s-scs_1))" +"(let-values(((ht_95) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_97)))" +"(let-values()(check-in-immutable-hash-keys ht_95)))" "((letrec-values(((for-loop_111)" "(lambda(syms_14 i_128)" "(begin" " 'for-loop" "(if i_128" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_97 i_128)))" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_95 i_128)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21586,12 +21572,12 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_97 i_128))" +"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_95 i_128))" " syms_15)))" " syms_14)))))" " for-loop_111)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_97))))))))" +"(unsafe-immutable-hash-iterate-first ht_95))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21901,11 +21887,11 @@ static const char *startup_source = " s_194" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(let-values(((ht_98) provides_4))" +"(let-values(((ht_96) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_98)))" +"(let-values()(check-in-hash ht_96)))" "((letrec-values(((for-loop_151)" "(lambda(result_72 i_129)" "(begin" @@ -21913,7 +21899,7 @@ static const char *startup_source = "(if i_129" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_98" +" ht_96" " i_129)))" "(let-values(((result_73)" "(let-values(((result_74)" @@ -22049,12 +22035,12 @@ static const char *startup_source = " #f)" "(for-loop_151" " result_73" -"(hash-iterate-next ht_98 i_129))" +"(hash-iterate-next ht_96 i_129))" " result_73)))" " result_72)))))" " for-loop_151)" " #f" -"(hash-iterate-first ht_98))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_96))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" "(lambda(br_1 nominal-module_8 phase_57 sym_32)" @@ -22086,18 +22072,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_99)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_97)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_99)))" +"(let-values()(check-in-hash ht_97)))" "((letrec-values(((for-loop_152)" "(lambda(i_130)" "(begin" " 'for-loop" "(if i_130" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_99 i_130)))" +"(hash-iterate-key+value ht_97 i_130)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -22105,13 +22091,13 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_100) at-mod_2))" +"(let-values(((ht_98) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_100)))" +"(check-in-hash ht_98)))" "((letrec-values(((for-loop_153)" "(lambda(i_131)" "(begin" @@ -22120,10 +22106,10 @@ static const char *startup_source = "(let-values(((phase_59" " at-phase_8)" "(hash-iterate-key+value" -" ht_100" +" ht_98" " i_131)))" "(let-values((()" -"(let-values(((ht_51)" +"(let-values(((ht_50)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -22131,7 +22117,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_51)))" +" ht_50)))" "((letrec-values(((for-loop_60)" "(lambda(i_132)" "(begin" @@ -22140,7 +22126,7 @@ static const char *startup_source = "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" -" ht_51" +" ht_50" " i_132)))" "(let-values((()" "(let-values(((lst_121)" @@ -22235,33 +22221,32 @@ static const char *startup_source = " #f)" "(for-loop_60" "(hash-iterate-next" -" ht_51" +" ht_50" " i_132))" "(values))))" "(values))))))" " for-loop_60)" "(hash-iterate-first" -" ht_51))))))" +" ht_50))))))" "(if(not" " #f)" "(for-loop_153" "(hash-iterate-next" -" ht_100" +" ht_98" " i_131))" "(values))))" "(values))))))" " for-loop_153)" -"(hash-iterate-first" -" ht_100))))" +"(hash-iterate-first ht_98))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152(hash-iterate-next ht_99 i_130))" +"(for-loop_152(hash-iterate-next ht_97 i_130))" "(values))))" "(values))))))" " for-loop_152)" -"(hash-iterate-first ht_99))))" +"(hash-iterate-first ht_97))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -22698,17 +22683,17 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_101)(hash-ref at-mod_5 phase_64 '#hasheq())))" +"(let-values(((ht_99)(hash-ref at-mod_5 phase_64 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_101)))" +"(let-values()(check-in-hash ht_99)))" "((letrec-values(((for-loop_158)" "(lambda(fold-var_113 i_133)" "(begin" " 'for-loop" "(if i_133" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_101 i_133)))" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_99 i_133)))" "(let-values(((fold-var_114)" "(let-values(((lst_129) reqds_3))" "(begin" @@ -22751,12 +22736,12 @@ static const char *startup_source = " fold-var_113" " lst_129)))))" "(if(not #f)" -"(for-loop_158 fold-var_114(hash-iterate-next ht_101 i_133))" +"(for-loop_158 fold-var_114(hash-iterate-next ht_99 i_133))" " fold-var_114)))" " fold-var_113)))))" " for-loop_158)" " null" -"(hash-iterate-first ht_101)))))" +"(hash-iterate-first ht_99)))))" " #f))))))" "(define-values" "(extract-module-definitions)" @@ -22831,7 +22816,7 @@ static const char *startup_source = "(unsafe-cdr" " lst_134)))" "(let-values(((fold-var_125)" -"(let-values(((ht_102)" +"(let-values(((ht_100)" "(hash-ref" " phase-to-requireds_0" " phase_65" @@ -22844,7 +22829,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_102)))" +" ht_100)))" "((letrec-values(((for-loop_163)" "(lambda(fold-var_126" " i_134)" @@ -22854,7 +22839,7 @@ static const char *startup_source = "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_102" +" ht_100" " i_134)))" "(let-values(((fold-var_127)" "(let-values(((lst_135)" @@ -22911,14 +22896,14 @@ static const char *startup_source = "(for-loop_163" " fold-var_127" "(hash-iterate-next" -" ht_102" +" ht_100" " i_134))" " fold-var_127)))" " fold-var_126)))))" " for-loop_163)" " fold-var_124" "(hash-iterate-first" -" ht_102))))))" +" ht_100))))))" "(if(not" " #f)" "(for-loop_162" @@ -23131,31 +23116,31 @@ static const char *startup_source = "(shift-provides-module-path-index)" "(lambda(provides_5 from-mpi_7 to-mpi_6)" "(begin" -"(let-values(((ht_103) provides_5))" +"(let-values(((ht_101) provides_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_103)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_101)))" "((letrec-values(((for-loop_167)" "(lambda(table_135 i_135)" "(begin" " 'for-loop" "(if i_135" -"(let-values(((phase_68 at-phase_10)(hash-iterate-key+value ht_103 i_135)))" +"(let-values(((phase_68 at-phase_10)(hash-iterate-key+value ht_101 i_135)))" "(let-values(((table_136)" "(let-values(((table_137) table_135))" "(let-values(((table_138)" "(let-values()" -"(let-values(((key_53 val_44)" +"(let-values(((key_52 val_44)" "(let-values()" "(values" " phase_68" -"(let-values(((ht_104)" +"(let-values(((ht_102)" " at-phase_10))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_104)))" +"(check-in-hash ht_102)))" "((letrec-values(((for-loop_168)" "(lambda(table_139" " i_136)" @@ -23165,14 +23150,14 @@ static const char *startup_source = "(let-values(((sym_41" " binding_14)" "(hash-iterate-key+value" -" ht_104" +" ht_102" " i_136)))" "(let-values(((table_140)" "(let-values(((table_141)" " table_139))" "(let-values(((table_142)" "(let-values()" -"(let-values(((key_54" +"(let-values(((key_53" " val_45)" "(let-values()" "(values" @@ -23207,7 +23192,7 @@ static const char *startup_source = " binding_14)))))))" "(hash-set" " table_141" -" key_54" +" key_53" " val_45)))))" "(values" " table_142)))))" @@ -23216,23 +23201,23 @@ static const char *startup_source = "(for-loop_168" " table_140" "(hash-iterate-next" -" ht_104" +" ht_102" " i_136))" " table_140)))" " table_139)))))" " for-loop_168)" " '#hasheq()" "(hash-iterate-first" -" ht_104))))))))" -"(hash-set table_137 key_53 val_44)))))" +" ht_102))))))))" +"(hash-set table_137 key_52 val_44)))))" "(values table_138)))))" "(if(not #f)" -"(for-loop_167 table_136(hash-iterate-next ht_103 i_135))" +"(for-loop_167 table_136(hash-iterate-next ht_101 i_135))" " table_136)))" " table_135)))))" " for-loop_167)" " '#hasheqv()" -"(hash-iterate-first ht_103)))))))" +"(hash-iterate-first ht_101)))))))" "(define-values" "(struct:adjust-only adjust-only1.1 adjust-only? adjust-only-syms)" "(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" @@ -24973,12 +24958,12 @@ static const char *startup_source = "(let-values(((table_145) table_143))" "(let-values(((table_146)" "(let-values()" -"(let-values(((key_55 val_46)" +"(let-values(((key_54 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_145 key_55 val_46)))))" +"(hash-set table_145 key_54 val_46)))))" "(values table_146)))))" "(if(not #f)(for-loop_171 table_144 rest_74) table_144)))" " table_143)))))" @@ -25625,7 +25610,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_105)" +"(let-values(((ht_103)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25633,7 +25618,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_105)))" +" ht_103)))" "((letrec-values(((for-loop_173)" "(lambda(i_137)" "(begin" @@ -25641,7 +25626,7 @@ static const char *startup_source = "(if i_137" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_105" +" ht_103" " i_137)))" "(let-values((()" "(let-values()" @@ -25666,13 +25651,13 @@ static const char *startup_source = " #f)" "(for-loop_173" "(unsafe-immutable-hash-iterate-next" -" ht_105" +" ht_103" " i_137))" "(values))))" "(values))))))" " for-loop_173)" "(unsafe-immutable-hash-iterate-first" -" ht_105))))" +" ht_103))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25714,11 +25699,11 @@ static const char *startup_source = "(let-values()" "(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_106)(module-provides m_14)))" +"(let-values(((ht_104)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_106)))" +"(let-values()(check-in-hash ht_104)))" "((letrec-values(((for-loop_174)" "(lambda(i_138)" "(begin" @@ -25726,7 +25711,7 @@ static const char *startup_source = "(if i_138" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_106" +" ht_104" " i_138)))" "(let-values((()" "(let-values()" @@ -25918,11 +25903,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_174" -"(hash-iterate-next ht_106 i_138))" +"(hash-iterate-next ht_104 i_138))" "(values))))" "(values))))))" " for-loop_174)" -"(hash-iterate-first ht_106))))" +"(hash-iterate-first ht_104))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" @@ -26746,19 +26731,19 @@ static const char *startup_source = "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_56)(variable-use3.1(module-use1.1 mpi_42 phase_70) sym_49)))" +"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_42 phase_70) sym_49)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" -"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_56 #f)))" +"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" "(let-values(((var-sym_0)" "(let-values(((or-part_202) prev-var-sym_0))" "(if or-part_202" " or-part_202" -"(let-values(((sym_50)(select-fresh(variable-use-sym key_56) header_2)))" +"(let-values(((sym_50)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_56 sym_50)" +"(hash-set! variable-uses_0 key_55 sym_50)" "(set-header-require-vars-in-order!" " header_2" -"(cons key_56(header-require-vars-in-order header_2)))" +"(cons key_55(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" " sym_50" @@ -26793,23 +26778,23 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_153)))" "((letrec-values(((for-loop_177)" -"(lambda(ht_107 link-mod-uses_1 lst_154)" +"(lambda(ht_105 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" "(if(pair? lst_154)" "(let-values(((vu_0)(unsafe-car lst_154))" "((rest_77)(unsafe-cdr lst_154)))" -"(let-values(((ht_108 link-mod-uses_2)" -"(let-values(((ht_109) ht_107)" +"(let-values(((ht_106 link-mod-uses_2)" +"(let-values(((ht_107) ht_105)" "((link-mod-uses_3) link-mod-uses_1))" -"(let-values(((ht_110 link-mod-uses_4)" +"(let-values(((ht_108 link-mod-uses_4)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" "(if(let-values(((or-part_157)" "(hash-ref" -" ht_109" +" ht_107" " mu_2" " #f)))" "(if or-part_157" @@ -26825,15 +26810,15 @@ static const char *startup_source = "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -"(values ht_109 link-mod-uses_3)" +"(values ht_107 link-mod-uses_3)" "(values" -"(hash-set ht_109 mu_2 #t)" +"(hash-set ht_107 mu_2 #t)" "(cons mu_2 link-mod-uses_3)))))))" -"(values ht_110 link-mod-uses_4)))))" +"(values ht_108 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_177 ht_108 link-mod-uses_2 rest_77)" -"(values ht_108 link-mod-uses_2))))" -"(values ht_107 link-mod-uses_1))))))" +"(for-loop_177 ht_106 link-mod-uses_2 rest_77)" +"(values ht_106 link-mod-uses_2))))" +"(values ht_105 link-mod-uses_1))))))" " for-loop_177)" " '#hash()" " null" @@ -27010,7 +26995,7 @@ static const char *startup_source = " table_151))" "(let-values(((table_123)" "(let-values()" -"(let-values(((key_57" +"(let-values(((key_56" " val_48)" "(let-values()" "(values" @@ -27018,7 +27003,7 @@ static const char *startup_source = " extra-inspectors_1))))" "(hash-set" " table_152" -" key_57" +" key_56" " val_48)))))" "(values" " table_123)))" @@ -27902,17 +27887,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_111) extra-inspectors_2))" +"(let-values(((ht_109) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_111)))" +"(let-values()(check-in-immutable-hash-keys ht_109)))" "((letrec-values(((for-loop_95)" "(lambda(result_79 i_139)" "(begin" " 'for-loop" "(if i_139" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_139)))" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_109 i_139)))" "(let-values(((result_80)" "(let-values()" "(let-values(((result_81)" @@ -27923,12 +27908,12 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_81)))))" "(if(if(not((lambda x_53(not result_80)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_80(unsafe-immutable-hash-iterate-next ht_111 i_139))" +"(for-loop_95 result_80(unsafe-immutable-hash-iterate-next ht_109 i_139))" " result_80)))" " result_79)))))" " for-loop_95)" " #t" -"(unsafe-immutable-hash-iterate-first ht_111)))))" +"(unsafe-immutable-hash-iterate-first ht_109)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -28222,7 +28207,7 @@ static const char *startup_source = "(let-values(((table_155) table_153))" "(let-values(((table_156)" "(let-values()" -"(let-values(((key_58" +"(let-values(((key_57" " val_50)" "(let-values()" "(values" @@ -28256,7 +28241,7 @@ static const char *startup_source = " guard-insp_2)))))))))))" "(hash-set" " table_155" -" key_58" +" key_57" " val_50)))))" "(values table_156)))))" "(if(not #f)(for-loop_192 table_154 rest_96) table_154)))" @@ -28308,18 +28293,18 @@ static const char *startup_source = "(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))" "(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))" "(let-values(((new-extra-inspectorss_1)" -"(let-values(((ht_112) extra-inspectorss_12))" +"(let-values(((ht_110) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_112)))" +"(let-values()(check-in-hash ht_110)))" "((letrec-values(((for-loop_194)" "(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" "(if i_140" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_112 i_140)))" +"(hash-iterate-key+value ht_110 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28338,12 +28323,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_194" " new-extra-inspectorss_3" -"(hash-iterate-next ht_112 i_140))" +"(hash-iterate-next ht_110 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" " for-loop_194)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_112))))))" +"(hash-iterate-first ht_110))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -29399,7 +29384,7 @@ static const char *startup_source = " table_157))" "(let-values(((table_160)" "(let-values()" -"(let-values(((key_59" +"(let-values(((key_58" " val_51)" "(let-values()" "(let-values(((header_11)" @@ -29425,7 +29410,7 @@ static const char *startup_source = " def-decls_0)))))))" "(hash-set" " table_159" -" key_59" +" key_58" " val_51)))))" "(values" " table_160)))))" @@ -29467,7 +29452,7 @@ static const char *startup_source = " table_161))" "(let-values(((table_164)" "(let-values()" -"(let-values(((key_60" +"(let-values(((key_59" " val_52)" "(let-values()" "(let-values(((bodys_5)" @@ -29604,7 +29589,7 @@ static const char *startup_source = " body-imports_0))))))))))))" "(hash-set" " table_163" -" key_60" +" key_59" " val_52)))))" "(values" " table_164)))))" @@ -29619,7 +29604,7 @@ static const char *startup_source = " '#hasheq()" " lst_205)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_113)" +"(let-values(((ht_111)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29627,7 +29612,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_113)))" +" ht_111)))" "((letrec-values(((for-loop_204)" "(lambda(table_165" " i_142)" @@ -29637,14 +29622,14 @@ static const char *startup_source = "(let-values(((phase_55" " l+mu*s_0)" "(hash-iterate-key+value" -" ht_113" +" ht_111" " i_142)))" "(let-values(((table_166)" "(let-values(((table_124)" " table_165))" "(let-values(((table_125)" "(let-values()" -"(let-values(((key_61" +"(let-values(((key_60" " val_53)" "(let-values()" "(values" @@ -29653,7 +29638,7 @@ static const char *startup_source = " l+mu*s_0)))))" "(hash-set" " table_124" -" key_61" +" key_60" " val_53)))))" "(values" " table_125)))))" @@ -29662,16 +29647,16 @@ static const char *startup_source = "(for-loop_204" " table_166" "(hash-iterate-next" -" ht_113" +" ht_111" " i_142))" " table_166)))" " table_165)))))" " for-loop_204)" " '#hasheq()" "(hash-iterate-first" -" ht_113))))))" +" ht_111))))))" "(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_114)" +"(let-values(((ht_112)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29679,7 +29664,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_114)))" +" ht_112)))" "((letrec-values(((for-loop_205)" "(lambda(table_167" " i_143)" @@ -29689,14 +29674,14 @@ static const char *startup_source = "(let-values(((phase_80" " l+mu*s_1)" "(hash-iterate-key+value" -" ht_114" +" ht_112" " i_143)))" "(let-values(((table_168)" "(let-values(((table_41)" " table_167))" "(let-values(((table_169)" "(let-values()" -"(let-values(((key_62" +"(let-values(((key_61" " val_54)" "(let-values()" "(values" @@ -29706,7 +29691,7 @@ static const char *startup_source = " l+mu*s_1))))))" "(hash-set" " table_41" -" key_62" +" key_61" " val_54)))))" "(values" " table_169)))))" @@ -29715,20 +29700,20 @@ static const char *startup_source = "(for-loop_205" " table_168" "(hash-iterate-next" -" ht_114" +" ht_112" " i_143))" " table_168)))" " table_167)))))" " for-loop_205)" " '#hasheq()" "(hash-iterate-first" -" ht_114))))))" +" ht_112))))))" "(let-values(((phase-to-link-module-uses-expr_0)" "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_1" " mpis_15)))" "(let-values(((phase-to-link-extra-inspectorsss_0)" -"(let-values(((ht_115)" +"(let-values(((ht_113)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29736,7 +29721,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_115)))" +" ht_113)))" "((letrec-values(((for-loop_206)" "(lambda(table_170" " i_144)" @@ -29746,7 +29731,7 @@ static const char *startup_source = "(let-values(((phase_81" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_115" +" ht_113" " i_144)))" "(let-values(((table_171)" "(let-values(((extra-inspectorsss_2)" @@ -29773,7 +29758,7 @@ static const char *startup_source = " table_174))" "(let-values(((table_45)" "(let-values()" -"(let-values(((key_63" +"(let-values(((key_62" " val_55)" "(let-values()" "(values" @@ -29781,7 +29766,7 @@ static const char *startup_source = " extra-inspectorsss_2))))" "(hash-set" " table_175" -" key_63" +" key_62" " val_55)))))" "(values" " table_45)))" @@ -29794,14 +29779,14 @@ static const char *startup_source = "(for-loop_206" " table_171" "(hash-iterate-next" -" ht_115" +" ht_113" " i_144))" " table_171)))" " table_170)))))" " for-loop_206)" " '#hash()" "(hash-iterate-first" -" ht_115))))))" +" ht_113))))))" "(values" " body-linklets_0" " min-phase_0" @@ -30350,7 +30335,7 @@ static const char *startup_source = "(let-values(((table_178) table_176))" "(let-values(((table_179)" "(let-values()" -"(let-values(((key_64" +"(let-values(((key_63" " val_56)" "(let-values()" "(values" @@ -30363,7 +30348,7 @@ static const char *startup_source = " cim_5)))))" "(hash-set" " table_178" -" key_64" +" key_63" " val_56)))))" "(values table_179)))))" "(if(not #f)" @@ -30374,7 +30359,7 @@ static const char *startup_source = " '#hasheq()" " lst_224" " start_35)))))" -"(let-values(((ht_116)" +"(let-values(((ht_114)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -30386,10 +30371,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_116)" +"(let-values() ht_114)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_116)" +"(1/hash->linklet-directory ht_114)" " #f" " #f" " #f" @@ -30406,9 +30391,9 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_115)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_115))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -30422,7 +30407,7 @@ static const char *startup_source = "(let-values(((fold-var_173)" "(let-values(((top_0)" "(hash-ref" -" ht_117" +" ht_115" "(string->symbol(number->string i_92))" " #f)))" "(begin" @@ -30839,7 +30824,7 @@ static const char *startup_source = "((rest_121)" "(unsafe-cdr" " lst_179))" -"((key_65)" +"((key_64)" "(unsafe-car" " lst_227))" "((rest_122)" @@ -30857,7 +30842,7 @@ static const char *startup_source = " locals_2))" "(satisfies?" " e_44" -" key_65" +" key_64" " defns_1" " locals_2)" " #f)))))" @@ -30872,7 +30857,7 @@ static const char *startup_source = "((lambda x_56" "(not" " result_86))" -" key_65))" +" key_64))" "(not" " #f)" " #f)" @@ -32262,12 +32247,12 @@ static const char *startup_source = " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_65 key_66 defns_2 locals_3)" +"(lambda(e_65 key_65 defns_2 locals_3)" "(begin" "(let-values(((d_31)" "(let-values(((or-part_222)(hash-ref locals_3 e_65 #f)))" "(if or-part_222 or-part_222(lookup-defn defns_2 e_65)))))" -"(if d_31(if(known-satisfies? d_31)(eq? key_66(known-satisfies-predicate-key d_31)) #f) #f)))))" +"(if d_31(if(known-satisfies? d_31)(eq? key_65(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" @@ -32599,7 +32584,7 @@ static const char *startup_source = "(let-values(((table_182) table_180))" "(let-values(((table_183)" "(let-values()" -"(let-values(((key_67 val_57)" +"(let-values(((key_66 val_57)" "(let-values()" "(values" "(let-values()" @@ -32611,7 +32596,7 @@ static const char *startup_source = " #t))))" "(hash-set" " table_182" -" key_67" +" key_66" " val_57)))))" "(values table_183)))))" "(if(not #f)(for-loop_221 table_181 rest_136) table_181)))" @@ -32826,7 +32811,7 @@ static const char *startup_source = "(let-values(((table_186) table_184))" "(let-values(((table_187)" "(let-values()" -"(let-values(((key_68 val_58)" +"(let-values(((key_67 val_58)" "(let-values()" "(values" "(let-values()" @@ -32838,7 +32823,7 @@ static const char *startup_source = " #t))))" "(hash-set" " table_186" -" key_68" +" key_67" " val_58)))))" "(values table_187)))))" "(if(not #f)(for-loop_224 table_185 rest_139) table_185)))" @@ -33160,12 +33145,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_117)" +"(lambda(ht_115)" "(begin" " 'add-metadata" -"(let-values(((ht_77)(hash-set ht_117 'original-phase phase_83)))" -"(let-values(((ht_118)(hash-set ht_77 'max-phase max-phase_1)))" -" ht_118))))))" +"(let-values(((ht_76)(hash-set ht_115 'original-phase phase_83)))" +"(let-values(((ht_116)(hash-set ht_76 'max-phase max-phase_1)))" +" ht_116))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -33280,8 +33265,8 @@ static const char *startup_source = "(let-values(((or-part_160)(hash-ref defined-syms_7 phase_85 #f)))" "(if or-part_160" " or-part_160" -"(let-values(((ht_119)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_85 ht_119) ht_119))))))" +"(let-values(((ht_117)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_85 ht_117) ht_117))))))" "(reverse$1" "(let-values(((lst_80) ids_15))" "(begin" @@ -33513,8 +33498,8 @@ static const char *startup_source = "(let-values(((or-part_95)(hash-ref defined-syms_8 phase_87 #f)))" "(if or-part_95" " or-part_95" -"(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_87 ht_120) ht_120))))))" +"(let-values(((ht_118)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_87 ht_118) ht_118))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33652,18 +33637,18 @@ static const char *startup_source = "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_121) evaled-ld-h_0))" +"(let-values(((ht_119) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" +"(let-values()(check-in-hash ht_119)))" "((letrec-values(((for-loop_106)" "(lambda(i_149)" "(begin" " 'for-loop" "(if i_149" "(let-values(((phase_88 linklet_3)" -"(hash-iterate-key+value ht_121 i_149)))" +"(hash-iterate-key+value ht_119 i_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33763,11 +33748,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_121 i_149))" +"(for-loop_106(hash-iterate-next ht_119 i_149))" "(values))))" "(values))))))" " for-loop_106)" -"(hash-iterate-first ht_121))))" +"(hash-iterate-first ht_119))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -34025,11 +34010,11 @@ static const char *startup_source = " (begin (if hash-code_4 (string->symbol (format \"~s\" (list hash-code_4 (current-load-relative-directory)))) #f))))" "(define-values" "(module-cache-set!)" -"(lambda(key_11 proc_9)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_9)))))" +"(lambda(key_10 proc_9)(begin(hash-set! module-cache key_10(make-ephemeron key_10 proc_9)))))" "(define-values" "(module-cache-ref)" -"(lambda(key_69)" -"(begin(let-values(((e_75)(hash-ref module-cache key_69 #f)))(if e_75(ephemeron-value e_75) #f)))))" +"(lambda(key_68)" +"(begin(let-values(((e_75)(hash-ref module-cache key_68 #f)))(if e_75(ephemeron-value e_75) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -34063,8 +34048,8 @@ static const char *startup_source = "(let-values() empty-syntax-literals-instance/empty-namespace)" "(let-values() empty-syntax-literals-data-instance)))))))" "(let-values(((decl_0)" -"(lambda(key_70)" -"(begin 'decl(1/instance-variable-value declaration-instance_0 key_70)))))" +"(lambda(key_69)" +"(begin 'decl(1/instance-variable-value declaration-instance_0 key_69)))))" "(let-values(((pre-submodule-names_0)(hash-ref h_1 'pre null)))" "(let-values(((post-submodule-names_0)(hash-ref h_1 'post null)))" "(let-values(((default-name_1)(hash-ref h_1 'name 'module)))" @@ -34113,7 +34098,7 @@ static const char *startup_source = " table_192))" "(let-values(((table_194)" "(let-values()" -"(let-values(((key_71" +"(let-values(((key_70" " val_59)" "(let-values()" "(values" @@ -34122,7 +34107,7 @@ static const char *startup_source = " v_181)))))" "(hash-set" " table_193" -" key_71" +" key_70" " val_59)))))" "(values" " table_194)))" @@ -34860,34 +34845,34 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_122) phases-h_1))" +"(let-values(((ht_120) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_122)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_120)))" "((letrec-values(((for-loop_235)" "(lambda(table_195 i_150)" "(begin" " 'for-loop" "(if i_150" -"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_122 i_150)))" +"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_120 i_150)))" "(let-values(((table_196)" "(let-values(((table_197) table_195))" "(let-values(((table_147)" "(let-values()" -"(let-values(((key_72 val_62)" +"(let-values(((key_71 val_62)" "(let-values()" "(values" " phase_90" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_197 key_72 val_62)))))" +"(hash-set table_197 key_71 val_62)))))" "(values table_147)))))" "(if(not #f)" -"(for-loop_235 table_196(hash-iterate-next ht_122 i_150))" +"(for-loop_235 table_196(hash-iterate-next ht_120 i_150))" " table_196)))" " table_195)))))" " for-loop_235)" " '#hash()" -"(hash-iterate-first ht_122)))))))" +"(hash-iterate-first ht_120)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34898,22 +34883,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_123) provides_9))" +"(let-values(((ht_121) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_123)))" +"(let-values()(check-in-hash ht_121)))" "((letrec-values(((for-loop_101)" "(lambda(fold-var_59 i_151)" "(begin" " 'for-loop" "(if i_151" "(let-values(((phase_91 at-phase_11)" -"(hash-iterate-key+value ht_123 i_151)))" +"(hash-iterate-key+value ht_121 i_151)))" "(let-values(((fold-var_60)" "(let-values(((l_66)" "(reverse$1" -"(let-values(((ht_116)" +"(let-values(((ht_114)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34921,7 +34906,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_116)))" +" ht_114)))" "((letrec-values(((for-loop_236)" "(lambda(fold-var_222" " i_152)" @@ -34931,7 +34916,7 @@ static const char *startup_source = "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" -" ht_116" +" ht_114" " i_152)))" "(let-values(((fold-var_223)" "(let-values(((fold-var_224)" @@ -35033,14 +35018,14 @@ static const char *startup_source = "(for-loop_236" " fold-var_223" "(hash-iterate-next" -" ht_116" +" ht_114" " i_152))" " fold-var_223)))" " fold-var_222)))))" " for-loop_236)" " null" "(hash-iterate-first" -" ht_116)))))))" +" ht_114)))))))" "(begin" " #t" "((letrec-values(((for-loop_106)" @@ -35084,12 +35069,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_101" " fold-var_60" -"(hash-iterate-next ht_123 i_151))" +"(hash-iterate-next ht_121 i_151))" " fold-var_60)))" " fold-var_59)))))" " for-loop_101)" " null" -"(hash-iterate-first ht_123)))))))" +"(hash-iterate-first ht_121)))))))" "(let-values(((result-l1_0) result-l_0)((phaselinklet-directory" -"(let-values(((ht_124)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_122)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_124)))" +"(let-values()(check-in-hash ht_122)))" "((letrec-values(((for-loop_239)" "(lambda(table_198 i_153)" "(begin" " 'for-loop" "(if i_153" -"(let-values(((key_73 val_63)(hash-iterate-key+value ht_124 i_153)))" +"(let-values(((key_72 val_63)(hash-iterate-key+value ht_122 i_153)))" "(let-values(((table_199)" "(let-values(((table_117) table_198))" "(let-values(((table_200)" "(let-values()" -"(let-values(((key_74 val_64)" +"(let-values(((key_73 val_64)" "(let-values()" "(values" -" key_73" -"(if(not key_73)" +" key_72" +"(if(not key_72)" "(update-one-name" " val_63" " full-name_0)" "(recur_0" " val_63" -" key_73))))))" +" key_72))))))" "(hash-set" " table_117" -" key_74" +" key_73" " val_64)))))" "(values table_200)))))" "(if(not #f)" -"(for-loop_239 table_199(hash-iterate-next ht_124 i_153))" +"(for-loop_239 table_199(hash-iterate-next ht_122 i_153))" " table_199)))" " table_198)))))" " for-loop_239)" " '#hasheq()" -"(hash-iterate-first ht_124))))))" +"(hash-iterate-first ht_122))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -35350,20 +35335,20 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_174)))" "((letrec-values(((for-loop_240)" -"(lambda(ht_125 lst_273)" +"(lambda(ht_123 lst_273)" "(begin" " 'for-loop" "(if(pair? lst_273)" "(let-values(((submod_1)(unsafe-car lst_273))" "((rest_148)(unsafe-cdr lst_273)))" -"(let-values(((ht_126)" -"(let-values(((ht_127) ht_125))" -"(let-values(((ht_117)" +"(let-values(((ht_124)" +"(let-values(((ht_125) ht_123))" +"(let-values(((ht_115)" "(let-values()" "(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_127 name_53 #f)" +"(if(hash-ref ht_125 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -35372,13 +35357,13 @@ static const char *startup_source = " name_53))" "(let-values()" "(hash-set" -" ht_127" +" ht_125" " name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_117)))))" -"(if(not #f)(for-loop_240 ht_126 rest_148) ht_126)))" -" ht_125)))))" +"(values ht_115)))))" +"(if(not #f)(for-loop_240 ht_124 rest_148) ht_124)))" +" ht_123)))))" " for-loop_240)" " '#hasheq()" " lst_174)))" @@ -35469,8 +35454,8 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_13)" "(let-values()" -"(let-values(((ht_128)(1/linklet-directory->hash c_13)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_128 #f))))" +"(let-values(((ht_126)(1/linklet-directory->hash c_13)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_126 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" "(let-values(((lst_86) names_1))" @@ -35491,7 +35476,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_128 name_55))" +"(hash-ref ht_126 name_55))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" @@ -35666,7 +35651,7 @@ static const char *startup_source = "(let-values(((table_201) table_63))" "(let-values(((table_202)" "(let-values()" -"(let-values(((key_75 val_65)" +"(let-values(((key_74 val_65)" "(let-values()" "(let-values(((linklet_0)" "(hash-ref" @@ -35681,7 +35666,7 @@ static const char *startup_source = " null))))))" "(hash-set" " table_201" -" key_75" +" key_74" " val_65)))))" "(values table_202)))))" "(if(not #f)(for-loop_190 table_66(+ pos_100 inc_21)) table_66)))" @@ -35787,11 +35772,11 @@ static const char *startup_source = "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_121) compiled-submodules_0))" +"(let-values(((ht_119) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" +"(let-values()(check-in-hash ht_119)))" "((letrec-values(((for-loop_106)" "(lambda(fold-var_69 i_154)" "(begin" @@ -35799,7 +35784,7 @@ static const char *startup_source = "(if i_154" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" -" ht_121" +" ht_119" " i_154)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_159)" @@ -35833,12 +35818,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_106" " fold-var_34" -"(hash-iterate-next ht_121 i_154))" +"(hash-iterate-next ht_119 i_154))" " fold-var_34)))" " fold-var_69)))))" " for-loop_106)" " null" -"(hash-iterate-first ht_121)))))))))" +"(hash-iterate-first ht_119)))))))))" "(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_37)))" @@ -36139,16 +36124,16 @@ static const char *startup_source = "(let-values() #f))))" "((temp66_1)" "(lambda(mod-name_17 phase_93)" -"(let-values(((ht_129)" +"(let-values(((ht_127)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_129" +"(if ht_127" "(hash-ref" -" ht_129" +" ht_127" " phase_93" " #f)" " #f))))" @@ -36190,14 +36175,14 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_130)" +"(let-values(((ht_128)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_130)))" +"(check-in-hash ht_128)))" "((letrec-values(((for-loop_23)" "(lambda(table_203" " i_155)" @@ -36207,14 +36192,14 @@ static const char *startup_source = "(let-values(((phase_94" " linklet_6)" "(hash-iterate-key+value" -" ht_130" +" ht_128" " i_155)))" "(let-values(((table_204)" "(let-values(((table_205)" " table_203))" "(let-values(((table_206)" "(let-values()" -"(let-values(((key_76" +"(let-values(((key_75" " val_66)" "(let-values()" "(values" @@ -36236,7 +36221,7 @@ static const char *startup_source = " #f))))))" "(hash-set" " table_205" -" key_76" +" key_75" " val_66)))))" "(values" " table_206)))))" @@ -36245,13 +36230,13 @@ static const char *startup_source = "(for-loop_23" " table_204" "(hash-iterate-next" -" ht_130" +" ht_128" " i_155))" " table_204)))" " table_203)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_130))))))" +"(hash-iterate-first ht_128))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -36573,7 +36558,7 @@ static const char *startup_source = "(check-list" " lst_206)))" "((letrec-values(((for-loop_124)" -"(lambda(ht_131" +"(lambda(ht_129" " lst_276)" "(begin" " 'for-loop" @@ -36585,13 +36570,13 @@ static const char *startup_source = "((rest_150)" "(unsafe-cdr" " lst_276)))" -"(let-values(((ht_132)" -"(let-values(((ht_133)" -" ht_131))" -"(let-values(((ht_122)" +"(let-values(((ht_130)" +"(let-values(((ht_131)" +" ht_129))" +"(let-values(((ht_120)" "(let-values()" "(hash-set" -" ht_133" +" ht_131" "(car" " sm_0)" "((if to-source?_4" @@ -36600,14 +36585,14 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_122)))))" +" ht_120)))))" "(if(not" " #f)" "(for-loop_124" -" ht_132" +" ht_130" " rest_150)" -" ht_132)))" -" ht_131)))))" +" ht_130)))" +" ht_129)))))" " for-loop_124)" "(hasheq #f bundle_1)" " lst_206))))))))" @@ -36679,7 +36664,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_134)" +"(let-values(((ht_132)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36693,7 +36678,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_134)))" +"(check-in-hash ht_132)))" "((letrec-values(((for-loop_242)" "(lambda(table_207" " i_5)" @@ -36703,7 +36688,7 @@ static const char *startup_source = "(let-values(((phase_2" " linklet_8)" "(hash-iterate-key+value" -" ht_134" +" ht_132" " i_5)))" "(let-values(((table_208)" "(let-values(((table_209)" @@ -36714,7 +36699,7 @@ static const char *startup_source = " table_209))" "(let-values(((table_47)" "(let-values()" -"(let-values(((key_77" +"(let-values(((key_76" " val_67)" "(let-values()" "(values" @@ -36738,7 +36723,7 @@ static const char *startup_source = " #f))))))" "(hash-set" " table_210" -" key_77" +" key_76" " val_67)))))" "(values" " table_47)))" @@ -36748,14 +36733,14 @@ static const char *startup_source = "(for-loop_242" " table_208" "(hash-iterate-next" -" ht_134" +" ht_132" " i_5))" " table_208)))" " table_207)))))" " for-loop_242)" " '#hasheq()" "(hash-iterate-first" -" ht_134))))))))))))" +" ht_132))))))))))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_241 rest_151)(values))))" @@ -36784,22 +36769,22 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_135)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_133)(1/linklet-bundle->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_135)))" +"(let-values()(check-in-hash ht_133)))" "((letrec-values(((for-loop_243)" "(lambda(table_211 i_156)" "(begin" " 'for-loop" "(if i_156" -"(let-values(((k_33 v_68)(hash-iterate-key+value ht_135 i_156)))" +"(let-values(((k_33 v_68)(hash-iterate-key+value ht_133 i_156)))" "(let-values(((table_212)" "(let-values(((table_213) table_211))" "(let-values(((table_214)" "(let-values()" -"(let-values(((key_78 val_68)" +"(let-values(((key_77 val_68)" "(let-values()" "(if(1/linklet? v_68)" "(let-values()" @@ -36809,34 +36794,34 @@ static const char *startup_source = " v_68)))" "(let-values()" "(values k_33 v_68))))))" -"(hash-set table_213 key_78 val_68)))))" +"(hash-set table_213 key_77 val_68)))))" "(values table_214)))))" "(if(not #f)" -"(for-loop_243 table_212(hash-iterate-next ht_135 i_156))" +"(for-loop_243 table_212(hash-iterate-next ht_133 i_156))" " table_212)))" " table_211)))))" " for-loop_243)" " '#hasheq()" -"(hash-iterate-first ht_135))))))" +"(hash-iterate-first ht_133))))))" "(if(1/linklet-directory? c_31)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_136)(1/linklet-directory->hash c_31)))" +"(let-values(((ht_134)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" +"(let-values()(check-in-hash ht_134)))" "((letrec-values(((for-loop_244)" "(lambda(table_215 i_157)" "(begin" " 'for-loop" "(if i_157" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_136 i_157)))" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_134 i_157)))" "(let-values(((table_216)" "(let-values(((table_217) table_215))" "(let-values(((table_218)" "(let-values()" -"(let-values(((key_79 val_69)" +"(let-values(((key_78 val_69)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -36847,15 +36832,15 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_217 key_79 val_69)))))" +"(hash-set table_217 key_78 val_69)))))" "(values table_218)))))" "(if(not #f)" -"(for-loop_244 table_216(hash-iterate-next ht_136 i_157))" +"(for-loop_244 table_216(hash-iterate-next ht_134 i_157))" " table_216)))" " table_215)))))" " for-loop_244)" " '#hasheq()" -"(hash-iterate-first ht_136))))))" +"(hash-iterate-first ht_134))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -36872,7 +36857,7 @@ static const char *startup_source = "((temp4_1)(namespace-bulk-binding-registry ns_59))" "((temp5_3)(current-code-inspector)))" "(make-eager-instance-instance11.1 temp4_1 temp2_3 temp5_3 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_80)(begin 'data(1/instance-variable-value data-instance_5 key_80)))))" +"(let-values(((data_0)(lambda(key_79)(begin 'data(1/instance-variable-value data-instance_5 key_79)))))" "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" "(let-values(((phase-to-link-modules-vector_0)(data_0 'phase-to-link-modules-vector)))" @@ -37951,7 +37936,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((key_81)" +"(let-values(((key_80)" "(let-values(((id32_0)" " id_58)" "((phase33_0)" @@ -37971,9 +37956,9 @@ static const char *startup_source = " lift-env_1" "(hash-set" "(unbox lift-env_1)" -" key_81" +" key_80" " variable))" -" key_81)))" +" key_80)))" " fold-var_84))))" "(values fold-var_234)))))" "(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" @@ -38480,14 +38465,14 @@ static const char *startup_source = "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_73)" +"(lambda(rr_0 key_72)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_73)" +"(if(set-member?(reference-record-already-bound rr_0) key_72)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_73)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_72)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" @@ -38533,10 +38518,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_80)" -"(let-values(((key_82)(unsafe-car lst_80))((rest_143)(unsafe-cdr lst_80)))" +"(let-values(((key_81)(unsafe-car lst_80))((rest_143)(unsafe-cdr lst_80)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_82))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_81))))" "(values ab_6)))))" "(if(not #f)(for-loop_252 ab_4 rest_143) ab_4)))" " ab_3)))))" @@ -38553,10 +38538,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_83)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" +"(let-values(((key_82)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" -"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_83))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_82))))" "(values rbb_3)))))" "(if(not #f)(for-loop_253 rbb_1 rest_158) rbb_1)))" " rbb_0)))))" @@ -38576,19 +38561,19 @@ static const char *startup_source = "(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))" "(define-values" "(call-expand-observe)" -"(lambda(obs_0 key_84 . args_5)" +"(lambda(obs_0 key_83 . args_5)" "(begin" "(begin" -"(let-values(((c1_29)(hash-ref key->arity key_84 #f)))" +"(let-values(((c1_29)(hash-ref key->arity key_83 #f)))" "(if c1_29" "((lambda(arity_2)" "(if(let-values(((or-part_65)(eq? arity_2 'any)))" "(if or-part_65 or-part_65(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_84 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_83 args_5))))" " c1_29)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_84))))" -"(obs_0 key_84(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_83))))" +"(obs_0 key_83(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -40248,7 +40233,7 @@ static const char *startup_source = "((rest_159)" "(unsafe-cdr" " lst_288))" -"((key_85)" +"((key_84)" "(unsafe-car" " lst_289))" "((rest_160)" @@ -40261,7 +40246,7 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_85" +" key_84" "(local-variable1.1" " id_69)))))" "(values" @@ -41262,10 +41247,10 @@ static const char *startup_source = "((only-immediate?69_0)(not stop-ids_1))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_137)(expand-context-need-eventually-defined ctx_45)))" +"(let-values(((ht_135)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_137)" -"(if ht_137(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_135)" +"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" "(let-values(((the-struct_32)(root-expand-context/outer-inner v_188)))" "(if(expand-context/inner? the-struct_32)" @@ -42310,18 +42295,18 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_138)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_138)))" +"(let-values()(check-in-hash ht_136)))" "((letrec-values(((for-loop_261)" "(lambda(fold-var_206 i_167)" "(begin" " 'for-loop" "(if i_167" "(let-values(((phase_127 ids_27)" -"(hash-iterate-key+value ht_138 i_167)))" +"(hash-iterate-key+value ht_136 i_167)))" "(let-values(((fold-var_262)" "(let-values(((fold-var_263) fold-var_206))" "(let-values(((fold-var_264)" @@ -42334,12 +42319,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_261" " fold-var_262" -"(hash-iterate-next ht_138 i_167))" +"(hash-iterate-next ht_136 i_167))" " fold-var_262)))" " fold-var_206)))))" " for-loop_261)" " null" -"(hash-iterate-first ht_138)))))" +"(hash-iterate-first ht_136)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" @@ -42349,23 +42334,23 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_302)))" "((letrec-values(((for-loop_262)" -"(lambda(ht_139 lst_303)" +"(lambda(ht_137 lst_303)" "(begin" " 'for-loop" "(if(pair? lst_303)" "(let-values(((r_41)(unsafe-car lst_303))((rest_169)(unsafe-cdr lst_303)))" +"(let-values(((ht_138)" +"(let-values(((ht_139) ht_137))" "(let-values(((ht_140)" -"(let-values(((ht_141) ht_139))" -"(let-values(((ht_142)" "(let-values()" "(hash-update" -" ht_141" +" ht_139" "(required-phase r_41)" "(lambda(l_72)(cons(required-id r_41) l_72))" " null))))" -"(values ht_142)))))" -"(if(not #f)(for-loop_262 ht_140 rest_169) ht_140)))" -" ht_139)))))" +"(values ht_140)))))" +"(if(not #f)(for-loop_262 ht_138 rest_169) ht_138)))" +" ht_137)))))" " for-loop_262)" "(hasheqv)" " lst_302))))))" @@ -42409,18 +42394,18 @@ static const char *startup_source = "(void)" "(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_143)(module-provides m_19)))" +"(let-values(((ht_141)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_143)))" +"(let-values()(check-in-hash ht_141)))" "((letrec-values(((for-loop_263)" "(lambda(fold-var_265 i_12)" "(begin" " 'for-loop" "(if i_12" "(let-values(((phase_128 syms_22)" -"(hash-iterate-key+value ht_143 i_12)))" +"(hash-iterate-key+value ht_141 i_12)))" "(let-values(((fold-var_266)" "(let-values(((fold-var_267) fold-var_265))" "(let-values(((fold-var_268)" @@ -42430,15 +42415,14 @@ static const char *startup_source = "(cons" " phase_128" "(reverse$1" -"(let-values(((ht_144)" -" syms_22))" +"(let-values(((ht_1) syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_144)))" +" ht_1)))" "((letrec-values(((for-loop_264)" "(lambda(fold-var_269" " i_168)" @@ -42447,7 +42431,7 @@ static const char *startup_source = "(if i_168" "(let-values(((sym_67)" "(hash-iterate-key" -" ht_144" +" ht_1" " i_168)))" "(let-values(((fold-var_270)" "(let-values(((fold-var_271)" @@ -42465,23 +42449,23 @@ static const char *startup_source = "(for-loop_264" " fold-var_270" "(hash-iterate-next" -" ht_144" +" ht_1" " i_168))" " fold-var_270)))" " fold-var_269)))))" " for-loop_264)" " null" "(hash-iterate-first" -" ht_144)))))))" +" ht_1)))))))" " fold-var_267))))" "(values fold-var_268)))))" "(if(not #f)" -"(for-loop_263 fold-var_266(hash-iterate-next ht_143 i_12))" +"(for-loop_263 fold-var_266(hash-iterate-next ht_141 i_12))" " fold-var_266)))" " fold-var_265)))))" " for-loop_263)" " null" -"(hash-iterate-first ht_143))))))))))))))))" +"(hash-iterate-first ht_141))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42494,17 +42478,17 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who153_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" -"(let-values(((ht_145) submods_3))" +"(let-values(((ht_142) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" +"(let-values()(check-in-hash ht_142)))" "((letrec-values(((for-loop_265)" "(lambda(fold-var_273 i_169)" "(begin" " 'for-loop" "(if i_169" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_145 i_169)))" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_142 i_169)))" "(let-values(((fold-var_274)" "(let-values(((fold-var_275) fold-var_273))" "(if(eq? kind_7 'module)" @@ -42517,12 +42501,12 @@ static const char *startup_source = "(values fold-var_277)))" " fold-var_275))))" "(if(not #f)" -"(for-loop_265 fold-var_274(hash-iterate-next ht_145 i_169))" +"(for-loop_265 fold-var_274(hash-iterate-next ht_142 i_169))" " fold-var_274)))" " fold-var_273)))))" " for-loop_265)" " null" -"(hash-iterate-first ht_145))))))))))))" +"(hash-iterate-first ht_142))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -43367,9 +43351,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_146)" +"(lambda(ht_143)" "(hash-set" -" ht_146" +" ht_143" " phase_136" " m-ns_13))" " '#hasheqv())" @@ -43533,11 +43517,11 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_147) todo_0))" +"(let-values(((ht_144) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_147)))" +"(let-values()(check-in-hash ht_144)))" "((letrec-values(((for-loop_109)" "(lambda(i_170)" "(begin" @@ -43545,10 +43529,10 @@ static const char *startup_source = "(if i_170" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_147" +" ht_144" " i_170)))" "(let-values((()" -"(let-values(((ht_148)" +"(let-values(((ht_145)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43556,7 +43540,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_148)))" +" ht_145)))" "((letrec-values(((for-loop_267)" "(lambda(i_171)" "(begin" @@ -43565,7 +43549,7 @@ static const char *startup_source = "(let-values(((phase_137" " m-ns_15)" "(hash-iterate-key+value" -" ht_148" +" ht_145" " i_171)))" "(let-values((()" "(let-values()" @@ -43641,20 +43625,20 @@ static const char *startup_source = " #f)" "(for-loop_267" "(hash-iterate-next" -" ht_148" +" ht_145" " i_171))" "(values))))" "(values))))))" " for-loop_267)" "(hash-iterate-first" -" ht_148))))))" +" ht_145))))))" "(if(not #f)" "(for-loop_109" -"(hash-iterate-next ht_147 i_170))" +"(hash-iterate-next ht_144 i_170))" "(values))))" "(values))))))" " for-loop_109)" -"(hash-iterate-first ht_147))))" +"(hash-iterate-first ht_144))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -43666,18 +43650,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_50) todo_0))" +"(let-values(((ht_49) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_50)))" +"(let-values()(check-in-hash-keys ht_49)))" "((letrec-values(((for-loop_176)" "(lambda(i_172)" "(begin" " 'for-loop" "(if i_172" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_50 i_172)))" +"(hash-iterate-key ht_49 i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43691,11 +43675,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_176" -"(hash-iterate-next ht_50 i_172))" +"(hash-iterate-next ht_49 i_172))" "(values))))" "(values))))))" " for-loop_176)" -"(hash-iterate-first ht_50))))" +"(hash-iterate-first ht_49))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -43741,14 +43725,14 @@ static const char *startup_source = "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_149)" +"(let-values(((ht_146)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_60))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_149)))" +"(let-values()(check-in-immutable-hash-keys ht_146)))" "((letrec-values(((for-loop_211)" "(lambda(fold-var_278 i_173)" "(begin" @@ -43756,7 +43740,7 @@ static const char *startup_source = "(if i_173" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_149" +" ht_146" " i_173)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225)" @@ -43779,13 +43763,13 @@ static const char *startup_source = "(for-loop_211" " fold-var_224" "(unsafe-immutable-hash-iterate-next" -" ht_149" +" ht_146" " i_173))" " fold-var_224)))" " fold-var_278)))))" " for-loop_211)" " null" -"(unsafe-immutable-hash-iterate-first ht_149)))))))" +"(unsafe-immutable-hash-iterate-first ht_146)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_4)" "(begin" @@ -46480,18 +46464,18 @@ static const char *startup_source = "(if or-part_279" " or-part_279" "(if(hash? p_55)" -"(let-values(((ht_150) p_55))" +"(let-values(((ht_147) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" +"(let-values()(check-in-hash ht_147)))" "((letrec-values(((for-loop_184)" "(lambda(result_119 i_90)" "(begin" " 'for-loop" "(if i_90" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_150 i_90)))" +"(hash-iterate-key+value ht_147 i_90)))" "(let-values(((result_120)" "(let-values()" "(let-values(((result_121)" @@ -46519,12 +46503,12 @@ static const char *startup_source = " #f)" "(for-loop_184" " result_120" -"(hash-iterate-next ht_150 i_90))" +"(hash-iterate-next ht_147 i_90))" " result_120)))" " result_119)))))" " for-loop_184)" " #t" -"(hash-iterate-first ht_150))))" +"(hash-iterate-first ht_147))))" " #f))))))" " l_75)" " #f))" @@ -46548,38 +46532,38 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_151) p_3))" +"(let-values(((ht_148) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_151)))" +"(let-values()(check-in-hash ht_148)))" "((letrec-values(((for-loop_271)" "(lambda(table_219 i_91)" "(begin" " 'for-loop" "(if i_91" -"(let-values(((k_36 v_195)(hash-iterate-key+value ht_151 i_91)))" +"(let-values(((k_36 v_195)(hash-iterate-key+value ht_148 i_91)))" "(let-values(((table_220)" "(let-values(((table_188) table_219))" "(let-values(((table_221)" "(let-values()" -"(let-values(((key_86 val_78)" +"(let-values(((key_85 val_78)" "(let-values()" "(values" " k_36" "(to-path v_195)))))" "(hash-set" " table_188" -" key_86" +" key_85" " val_78)))))" "(values table_221)))))" "(if(not #f)" -"(for-loop_271 table_220(hash-iterate-next ht_151 i_91))" +"(for-loop_271 table_220(hash-iterate-next ht_148 i_91))" " table_220)))" " table_219)))))" " for-loop_271)" " '#hash()" -"(hash-iterate-first ht_151)))))))))" +"(hash-iterate-first ht_148)))))))))" " l_8)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46860,9 +46844,9 @@ static const char *startup_source = "(let-values(((or-part_75)(find-main-collects)))(if or-part_75 or-part_75(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_152 key_87 orig-l_9)" +"(lambda(ht_149 key_86 orig-l_9)" "(begin" -"(let-values(((l_79)(hash-ref ht_152 key_87 #f)))" +"(let-values(((l_79)(hash-ref ht_149 key_86 #f)))" "(if l_79" "((letrec-values(((loop_101)" "(lambda(l_80)" @@ -46881,22 +46865,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_153)(get-config-table(find-main-config))))" +"(let-values(((ht_150)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_83)(hash-ref ht_153 'links-file #f)))" +"(let-values(((or-part_83)(hash-ref ht_150 'links-file #f)))" "(if or-part_83" " or-part_83" "(build-path" -"(let-values(((or-part_84)(hash-ref ht_153 'share-dir #f)))" +"(let-values(((or-part_84)(hash-ref ht_150 'share-dir #f)))" " (if or-part_84 or-part_84 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)" -" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_153) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_150) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_153 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_150 'links-search-files(list lf_0)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" @@ -47054,7 +47038,7 @@ static const char *startup_source = "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_154)(make-hasheq)))" +"(let-values(((ht_151)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" " base_21)))" @@ -47074,34 +47058,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_154" +" ht_151" " k_37" -"(cons dir_1(hash-ref ht_154 k_37 null)))))" +"(cons dir_1(hash-ref ht_151 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_68) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_154 #f #f)" +"(if(hash-ref ht_151 #f #f)" "(void)" -"(let-values()(hash-set! ht_154 #f null)))" +"(let-values()(hash-set! ht_151 #f null)))" "(hash-for-each" -" ht_154" +" ht_151" "(lambda(k_38 v_199)" -"(hash-set! ht_154 k_38(cons dir_1 v_199))))))" +"(hash-set! ht_151 k_38(cons dir_1 v_199))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_68))))" "(hash-set!" -" ht_154" +" ht_151" " s_16" -"(cons(box dir_1)(hash-ref ht_154 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_151 s_16 null)))))))))" "(void)))" " v_198)" "(hash-for-each" -" ht_154" -"(lambda(k_39 v_200)(hash-set! ht_154 k_39(reverse$1 v_200))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_154))" -" ht_154))))))))))))))))))))))" +" ht_151" +"(lambda(k_39 v_200)(hash-set! ht_151 k_39(reverse$1 v_200))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_151))" +" ht_151))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -47148,10 +47132,10 @@ static const char *startup_source = "(hash-ref(car l_82) #f null)" "(loop_103(cdr l_82))))" "(let-values()" -"(let-values(((ht_155)(get-linked-collections(car l_82))))" +"(let-values(((ht_152)(get-linked-collections(car l_82))))" "(append" -"(hash-ref ht_155 sym_90 null)" -"(hash-ref ht_155 #f null)" +"(hash-ref ht_152 sym_90 null)" +"(hash-ref ht_152 #f null)" "(loop_103(cdr l_82))))))))))))" " loop_103)" "(1/current-library-collection-links)))))" @@ -48004,23 +47988,23 @@ static const char *startup_source = "(if(null? args_8)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_88)(car args_8)))" +"(let-values(((key_87)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_162)(not key_88)))" -"(if or-part_162 or-part_162(char? key_88)))" +"(if(let-values(((or-part_162)(not key_87)))" +"(if or-part_162 or-part_162(char? key_87)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_88)))" +" key_87)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_88" +"(if key_87" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -48028,7 +48012,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_88))" +" key_87))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -48038,7 +48022,7 @@ static const char *startup_source = "(let-values(((mode_16)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_88" +"(if key_87" "(let-values()" "(if(let-values(((or-part_245)" "(eq? mode_16 'terminating-macro)))" @@ -48075,7 +48059,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_88" +"(if key_87" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -48084,7 +48068,7 @@ static const char *startup_source = "(values))))" "(let-values(((target_0)(caddr args_8)))" "(let-values(((rest-args_0)(cdddr args_8)))" -"(if(not key_88)" +"(if(not key_87)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -48118,7 +48102,7 @@ static const char *startup_source = " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_88 target_0)" +"(hash-set dispatch-ht_0 key_87 target_0)" " delimiter-ht_0)))" "(if(char? mode_16)" "(let-values()" @@ -48149,13 +48133,13 @@ static const char *startup_source = "(if actual-target_0" "(hash-set" " char-ht_0" -" key_88" +" key_87" " actual-target_0)" -"(hash-remove char-ht_0 key_88))))" +"(hash-remove char-ht_0 key_87))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_88" +" key_87" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" @@ -48182,11 +48166,11 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_88 target_0)))" +"(hash-set char-ht_0 key_87 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_88" +" key_87" "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" @@ -48292,21 +48276,21 @@ static const char *startup_source = "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_156)(readtable-char-ht rt_6)))" +"(let-values(((ht_153)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_156 c_64 #f) null(list c_64))" +"(if(hash-ref ht_153 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_148) ht_156))" +"(let-values(((ht_145) ht_153))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_148)))" +"(let-values()(check-in-hash ht_145)))" "((letrec-values(((for-loop_267)" "(lambda(fold-var_82 i_174)" "(begin" " 'for-loop" "(if i_174" -"(let-values(((k_40 v_87)(hash-iterate-key+value ht_148 i_174)))" +"(let-values(((k_40 v_87)(hash-iterate-key+value ht_145 i_174)))" "(let-values(((fold-var_289)" "(let-values(((fold-var_85) fold-var_82))" "(if(eqv? v_87 c_64)" @@ -48317,12 +48301,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_267 fold-var_289(hash-iterate-next ht_148 i_174))" +"(for-loop_267 fold-var_289(hash-iterate-next ht_145 i_174))" " fold-var_289)))" " fold-var_82)))))" " for-loop_267)" " null" -"(hash-iterate-first ht_148))))))))))" +"(hash-iterate-first ht_145))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" @@ -50795,8 +50779,8 @@ static const char *startup_source = " (format \"division by zero in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((n_32)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" +"(let-values(((n_0)(/ n-v_0 d-v_0)))" +"(if(get-inexact?_0 start_46)(exact->inexact n_0) n_0)))))))))))" "(let-values()" "(string->decimal-number" " s_234" @@ -50827,17 +50811,17 @@ static const char *startup_source = " (format \"misplaced `#` in `~.a`\" (substring s_357 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" -"(if(not n_33)" +"(let-values(((n_32)(string->number$1 new-str_0 radix_8)))" +"(if(not n_32)" "(let-values()(fail-bad-number convert-mode_6 s_357 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_357 start_47) '#\\-) #f)" +"(if(if(eqv? n_32 0)(char=?(string-ref s_357 start_47) '#\\-) #f)" " -0.0" -"(exact->inexact n_33)))" +"(exact->inexact n_32)))" "(if(if dot-pos_3 get-exact?_0 #f)" -"(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" -"(let-values() n_33))))))))" +"(let-values()(/ n_32(expt 10(- end_37 dot-pos_3 1))))" +"(let-values() n_32))))))))" "(let-values()" "(let-values(((c_82)(string-ref s_357 i_117)))" "(if(char=? c_82 '#\\.)" @@ -50896,13 +50880,13 @@ static const char *startup_source = " (let-values () (format \"misplaced `#` in `~.a`\" (substring s_244 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_244 start_48 end_38) radix_9)))" -"(if(not n_34)" +"(let-values(((n_33)(string->number$1(maybe-substring s_244 start_48 end_38) radix_9)))" +"(if(not n_33)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" " (let-values () (format \"bad exponent `~.a`\" (substring s_244 start_48 end_38)))" "(let-values() #f)))" -"(let-values() n_34))))))))" +"(let-values() n_33))))))))" "(define-values" "(read-special-number)" "(lambda(s_247 start_49 end_39 convert-mode_8)" @@ -52517,10 +52501,10 @@ static const char *startup_source = "(if(equal? tmp_50 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_157)(get-graph-hash config_47)))" +"(let-values(((ht_154)(get-graph-hash config_47)))" "(let-values((()" "(begin" -"(if(hash-ref ht_157 v_28 #f)" +"(if(hash-ref ht_154 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_39)" "((config51_0) config_47)" @@ -52552,7 +52536,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_157 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_154 v_28 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_39(next-readtable config_47))))" "(begin" @@ -52656,13 +52640,13 @@ static const char *startup_source = "(let-values(((or-part_140)(read-config-state-graph st_3)))" "(if or-part_140" " or-part_140" -"(let-values(((ht_158)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_158) ht_158))))))))" +"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" "(define-values" "(coerce-key)" -"(lambda(key_89 config_8)" +"(lambda(key_88 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_89)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_88)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_12 in_39 config_47)" @@ -57513,7 +57497,7 @@ static const char *startup_source = "(let-values(((table_177) table_216))" "(let-values(((table_178)" "(let-values()" -"(let-values(((key_34" +"(let-values(((key_33" " val_81)" "(let-values()" "(let-values(((binding_27)" @@ -57558,7 +57542,7 @@ static const char *startup_source = " binding_27))))))" "(hash-set" " table_177" -" key_34" +" key_33" " val_81)))))" "(values table_178)))))" "(if(not #f)" @@ -58925,18 +58909,18 @@ static const char *startup_source = "(let-values(((prims_0)(1/primitive-table name_65)))" "(let-values((()" "(begin" -"(let-values(((ht_25) prims_0))" +"(let-values(((ht_24) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_25)))" +"(let-values()(check-in-hash-keys ht_24)))" "((letrec-values(((for-loop_278)" "(lambda(i_26)" "(begin" " 'for-loop" "(if i_26" "(let-values(((sym_96)" -"(hash-iterate-key ht_25 i_26)))" +"(hash-iterate-key ht_24 i_26)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58949,19 +58933,19 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_278" -"(hash-iterate-next ht_25 i_26))" +"(hash-iterate-next ht_24 i_26))" "(values))))" "(values))))))" " for-loop_278)" -"(hash-iterate-first ht_25))))" +"(hash-iterate-first ht_24))))" "(values))))" "(let-values()" -"(let-values(((ht_159)" -"(let-values(((ht_160) prims_0))" +"(let-values(((ht_156)" +"(let-values(((ht_157) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_160)))" +"(let-values()(check-in-hash ht_157)))" "((letrec-values(((for-loop_266)" "(lambda(table_11 i_183)" "(begin" @@ -58969,7 +58953,7 @@ static const char *startup_source = "(if i_183" "(let-values(((sym_97 val_5)" "(hash-iterate-key+value" -" ht_160" +" ht_157" " i_183)))" "(let-values(((table_223)" "(let-values(((table_224)" @@ -58982,7 +58966,7 @@ static const char *startup_source = " table_224))" "(let-values(((table_225)" "(let-values()" -"(let-values(((key_90" +"(let-values(((key_89" " val_82)" "(let-values()" "(values" @@ -58997,51 +58981,51 @@ static const char *startup_source = " val_5))))))" "(hash-set" " table_20" -" key_90" +" key_89" " val_82)))))" "(values table_225)))))))" "(if(not #f)" "(for-loop_266" " table_223" -"(hash-iterate-next ht_160 i_183))" +"(hash-iterate-next ht_157 i_183))" " table_223)))" " table_11)))))" " for-loop_266)" " '#hasheq()" -"(hash-iterate-first ht_160))))))" +"(hash-iterate-first ht_157))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_161) extras_0))" +"(let-values(((ht_158) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_161)))" +"(let-values()(check-in-hash ht_158)))" "((letrec-values(((for-loop_279)" -"(lambda(ht_162 i_184)" +"(lambda(ht_159 i_184)" "(begin" " 'for-loop" "(if i_184" "(let-values(((k_43 v_50)" "(hash-iterate-key+value" -" ht_161" +" ht_158" " i_184)))" -"(let-values(((ht_163)" -"(let-values(((ht_47) ht_162))" -"(let-values(((ht_164)" +"(let-values(((ht_160)" +"(let-values(((ht_46) ht_159))" +"(let-values(((ht_161)" "(let-values()" "(hash-set" -" ht_47" +" ht_46" " k_43" " v_50))))" -"(values ht_164)))))" +"(values ht_161)))))" "(if(not #f)" "(for-loop_279" -" ht_163" -"(hash-iterate-next ht_161 i_184))" -" ht_163)))" -" ht_162)))))" +" ht_160" +"(hash-iterate-next ht_158 i_184))" +" ht_160)))" +" ht_159)))))" " for-loop_279)" -" ht_159" -"(hash-iterate-first ht_161))))))" +" ht_156" +"(hash-iterate-first ht_158))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_119)" @@ -59075,7 +59059,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_165) ht40_0))" +"(let-values(((ht_162) ht40_0))" "(let-values(((ns_120) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" @@ -59093,11 +59077,11 @@ static const char *startup_source = "((temp74_0)" "(hasheqv" " 0" -"(let-values(((ht_166) ht_165))" +"(let-values(((ht_163) ht_162))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_166)))" +"(let-values()(check-in-hash-keys ht_163)))" "((letrec-values(((for-loop_280)" "(lambda(table_226 i_185)" "(begin" @@ -59105,14 +59089,14 @@ static const char *startup_source = "(if i_185" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_166" +" ht_163" " i_185)))" "(let-values(((table_227)" "(let-values(((table_228)" " table_226))" "(let-values(((table_229)" "(let-values()" -"(let-values(((key_91" +"(let-values(((key_90" " val_83)" "(let-values()" "(let-values((()" @@ -59168,7 +59152,7 @@ static const char *startup_source = " binding_28)))))))" "(hash-set" " table_228" -" key_91" +" key_90" " val_83)))))" "(values" " table_229)))))" @@ -59176,13 +59160,13 @@ static const char *startup_source = "(for-loop_280" " table_227" "(hash-iterate-next" -" ht_166" +" ht_163" " i_185))" " table_227)))" " table_226)))))" " for-loop_280)" " '#hash()" -"(hash-iterate-first ht_166))))))" +"(hash-iterate-first ht_163))))))" "((temp75_3)" "(lambda(data-box_6" " ns_121" @@ -59194,12 +59178,12 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_167) ht_165))" +"(let-values(((ht_164) ht_162))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_167)))" +"(let-values()(check-in-hash ht_164)))" "((letrec-values(((for-loop_281)" "(lambda(i_47)" "(begin" @@ -59207,7 +59191,7 @@ static const char *startup_source = "(if i_47" "(let-values(((sym_6 val_31)" "(hash-iterate-key+value" -" ht_167" +" ht_164" " i_47)))" "(let-values((()" "(let-values()" @@ -59225,12 +59209,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_281" "(hash-iterate-next" -" ht_167" +" ht_164" " i_47))" "(values))))" "(values))))))" " for-loop_281)" -"(hash-iterate-first ht_167))))" +"(hash-iterate-first ht_164))))" "(void)))" "(void)))))" "(make-module39.1" @@ -59352,7 +59336,7 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((table_35)" -"(let-values(((ht_35)" +"(let-values(((ht_34)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -59367,7 +59351,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_35)))" +" ht_34)))" "((letrec-values(((for-loop_36)" "(lambda(table_150" " i_49)" @@ -59377,14 +59361,14 @@ static const char *startup_source = "(let-values(((sym_99" " binding_29)" "(hash-iterate-key+value" -" ht_35" +" ht_34" " i_49)))" "(let-values(((table_123)" "(let-values(((table_165)" " table_150))" "(let-values(((table_232)" "(let-values()" -"(let-values(((key_92" +"(let-values(((key_91" " val_84)" "(let-values()" "(values" @@ -59392,7 +59376,7 @@ static const char *startup_source = " binding_29))))" "(hash-set" " table_165" -" key_92" +" key_91" " val_84)))))" "(values" " table_232)))))" @@ -59401,14 +59385,14 @@ static const char *startup_source = "(for-loop_36" " table_123" "(hash-iterate-next" -" ht_35" +" ht_34" " i_49))" " table_123)))" " table_150)))))" " for-loop_36)" " table_32" "(hash-iterate-first" -" ht_35))))))" +" ht_34))))))" " table_35))))))" " for-loop_283)" " table_230)))))" @@ -60950,7 +60934,7 @@ static const char *startup_source = " p_80)))" "(if(path? p_81)" "(let-values(((base_29" -" n_35" +" n_34" " d?_0)" "(split-path" " p_81)))" @@ -62154,7 +62138,7 @@ static const char *startup_source = "(pair?" " lst_275)" " #f)" -"(let-values(((key_93)" +"(let-values(((key_92)" "(unsafe-car" " lst_323))" "((rest_149)" @@ -62173,7 +62157,7 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_19" -" key_93" +" key_92" "(local-variable1.1" " id_9)))))" "(values" @@ -62817,7 +62801,7 @@ static const char *startup_source = " lst_335)" " #f)" " #f)" -"(let-values(((key_94)" +"(let-values(((key_93)" "(unsafe-car" " lst_333))" "((rest_191)" @@ -62848,7 +62832,7 @@ static const char *startup_source = " body-ctx_2)" "(env-extend" " env_23" -" key_94" +" key_93" " val_85)))))" "(values" " env_24)))))" @@ -63857,7 +63841,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(pair? lst_83)(pair? lst_273) #f)" -"(let-values(((key_95)(unsafe-car lst_83))" +"(let-values(((key_94)(unsafe-car lst_83))" "((rest_148)(unsafe-cdr lst_83))" "((id_122)(unsafe-car lst_273))" "((rest_198)(unsafe-cdr lst_273)))" @@ -63867,7 +63851,7 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_27" -" key_95" +" key_94" "(local-variable1.1" " id_122)))))" "(values env_28)))))" @@ -66142,7 +66126,7 @@ static const char *startup_source = "(pair?" " lst_381)" " #f)" -"(let-values(((key_68)" +"(let-values(((key_67)" "(unsafe-car" " lst_380))" "((rest_220)" @@ -66161,7 +66145,7 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_34" -" key_68" +" key_67" "(local-variable1.1" " id_127)))))" "(values" @@ -66284,7 +66268,7 @@ static const char *startup_source = " lst_390)" " #f)" " #f)" -"(let-values(((key_96)" +"(let-values(((key_95)" "(unsafe-car" " lst_65))" "((rest_225)" @@ -66315,7 +66299,7 @@ static const char *startup_source = " ctx_84)" "(env-extend" " env_42" -" key_96" +" key_95" " val_86)))))" "(values" " env_43)))))" @@ -76262,15 +76246,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_117)" "(begin" "(begin" -"(let-values(((ht_168) need-eventually-defined_3))" +"(let-values(((ht_165) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_168)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" "((letrec-values(((for-loop_332)" "(lambda(i_193)" "(begin" " 'for-loop" "(if i_193" -"(let-values(((phase_161 l_88)(hash-iterate-key+value ht_168 i_193)))" +"(let-values(((phase_161 l_88)(hash-iterate-key+value ht_165 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76358,10 +76342,10 @@ static const char *startup_source = "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_332(hash-iterate-next ht_168 i_193))(values))))" +"(if(not #f)(for-loop_332(hash-iterate-next ht_165 i_193))(values))))" "(values))))))" " for-loop_332)" -"(hash-iterate-first ht_168))))" +"(hash-iterate-first ht_165))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -79062,65 +79046,65 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_8)" -"(let-values(((ht_169) main-primitives))" +"(let-values(((ht_166) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_169)))" +"(let-values()(check-in-hash-keys ht_166)))" "((letrec-values(((for-loop_20)" "(lambda(table_233 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_169 i_3)))" +"(let-values(((name_81)(hash-iterate-key ht_166 i_3)))" "(let-values(((table_221)" "(let-values(((table_234) table_233))" "(let-values(((table_189)" "(let-values()" -"(let-values(((key_97 val_89)" +"(let-values(((key_96 val_89)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_234 key_97 val_89)))))" +"(hash-set table_234 key_96 val_89)))))" "(values table_189)))))" "(if(not #f)" -"(for-loop_20 table_221(hash-iterate-next ht_169 i_3))" +"(for-loop_20 table_221(hash-iterate-next ht_166 i_3))" " table_221)))" " table_233)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_169)))))" +"(hash-iterate-first ht_166)))))" "((temp29_5)" -"(let-values(((ht_170) read-primitives))" +"(let-values(((ht_167) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_170)))" +"(let-values()(check-in-hash-keys ht_167)))" "((letrec-values(((for-loop_324)" "(lambda(table_192 i_187)" "(begin" " 'for-loop" "(if i_187" -"(let-values(((name_82)(hash-iterate-key ht_170 i_187)))" +"(let-values(((name_82)(hash-iterate-key ht_167 i_187)))" "(let-values(((table_118)" "(let-values(((table_111) table_192))" "(let-values(((table_112)" "(let-values()" -"(let-values(((key_98 val_90)" +"(let-values(((key_97 val_90)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_111 key_98 val_90)))))" +"(hash-set table_111 key_97 val_90)))))" "(values table_112)))))" "(if(not #f)" -"(for-loop_324 table_118(hash-iterate-next ht_170 i_187))" +"(for-loop_324 table_118(hash-iterate-next ht_167 i_187))" " table_118)))" " table_192)))))" " for-loop_324)" " '#hash()" -"(hash-iterate-first ht_170))))))" +"(hash-iterate-first ht_167))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))"