diff --git a/pkgs/racket-doc/scribblings/reference/read.scrbl b/pkgs/racket-doc/scribblings/reference/read.scrbl index 4e6316faa5..07a9962a15 100644 --- a/pkgs/racket-doc/scribblings/reference/read.scrbl +++ b/pkgs/racket-doc/scribblings/reference/read.scrbl @@ -62,17 +62,9 @@ When @racket[graph?] is @racket[#f], graph structure annotations in the read datum are local to the datum. When called within the dynamic extent of @racket[read], the -@racket[read/recursive] procedure produces either an opaque -placeholder value, a special-comment value, or an end-of-file. The -result is a special-comment value (see @secref["special-comments"]) -when the input stream's first non-whitespace content parses as a -comment. The result is end-of-file when @racket[read/recursive] -encounters an end-of-file. Otherwise, the result is a placeholder that -protects graph references that are not yet resolved. When this -placeholder is returned within an S-expression that is produced by any -reader-extension procedure (see @secref["reader-procs"]) for the -same outermost @racket[read], it will be replaced with the actual read -value before the outermost @racket[read] returns. +@racket[read/recursive] procedure can produce a special-comment value +(see @secref["special-comments"]) when the input stream's first +non-whitespace content parses as a comment. See @secref["readtables"] for an extended example that uses @racket[read/recursive]. diff --git a/pkgs/racket-test-core/tests/racket/read.rktl b/pkgs/racket-test-core/tests/racket/read.rktl index 4f9e1036ca..970ffd0a67 100644 --- a/pkgs/racket-test-core/tests/racket/read.rktl +++ b/pkgs/racket-test-core/tests/racket/read.rktl @@ -1125,6 +1125,27 @@ (test #\{ syntax-property (read-syntax 'x (open-input-string "{1 2 3}")) 'paren-shape) (test #\{ syntax-property (read-syntax 'x (open-input-string "#{1 2}")) 'paren-shape) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check `read/recursive` + +(let () + (define in (open-input-string "abc")) + (test 'abc read/recursive in)) + +(let () + (define in2 (open-input-string "(#0=(abc) #z(#0#))")) + (parameterize ([current-readtable + (make-readtable (current-readtable) + #\z + 'dispatch-macro + (lambda (char in name line col pos) + (define v (read/recursive in)) + (log-error ">> ~s" v) + v))]) + (define v (read in2)) + (test '((abc) ((abc))) values v) + (test #t eq? (car v) (caadr v)))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Test read error on a character not in any port diff --git a/racket/src/expander/read/main.rkt b/racket/src/expander/read/main.rkt index 5968953756..93b832c057 100644 --- a/racket/src/expander/read/main.rkt +++ b/racket/src/expander/read/main.rkt @@ -103,7 +103,7 @@ (not (eof-object? v)) (not (special-comment? v))) (get-graph-hash config) ; to trigger placeholder resolution - (make-placeholder v)] + v] [else v])) (define (read-language in fail-k diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 7f3847b8db..4dbdaa3fea 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -629,10 +629,31 @@ static const char *startup_source = "(let-values()(thunk_3)))" " (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_3)))))" "(define-values" +"(prop:keyword-impersonator keyword-impersonator? keyword-impersonator-ref)" +"(make-struct-type-property 'keyword-impersonator))" +"(define-values" +"(keyword-procedure-impersonator-of)" +"(lambda(v_8)" +"(begin(if(keyword-impersonator? v_8)(let-values()((keyword-impersonator-ref v_8) v_8))(let-values() #f)))))" +"(define-values" +"(struct:keyword-procedure mk-kw-proc keyword-procedure? keyword-procedure-ref keyword-procedure-set!)" +"(make-struct-type" +" 'keyword-procedure" +" #f" +" 4" +" 0" +" #f" +"(list(cons prop:checked-procedure #t)(cons prop:impersonator-of keyword-procedure-impersonator-of))" +"(current-inspector)" +" #f" +" '(0 1 2 3)))" +"(define-values(keyword-procedure-required)(make-struct-field-accessor keyword-procedure-ref 2))" +"(define-values(keyword-procedure-allowed)(make-struct-field-accessor keyword-procedure-ref 3))" +"(define-values" "(prop:procedure-accessor procedure-accessor? procedure-accessor-ref)" "(make-struct-type-property" " 'procedure" -"(lambda(v_8 info-l_0)(if(exact-integer? v_8)(make-struct-field-accessor(list-ref info-l_0 3) v_8) #f))))" +"(lambda(v_9 info-l_0)(if(exact-integer? v_9)(make-struct-field-accessor(list-ref info-l_0 3) v_9) #f))))" "(define-values" "(new-prop:procedure new-procedure? new-procedure-ref)" "(make-struct-type-property" @@ -641,6 +662,22 @@ static const char *startup_source = "(list(cons prop:procedure values)(cons prop:procedure-accessor values))" " #t))" "(define-values" +"(procedure-keywords)" +"(lambda(p_2)" +"(begin" +"(if(keyword-procedure? p_2)" +"(let-values()(values(keyword-procedure-required p_2)(keyword-procedure-allowed p_2)))" +"(if(procedure? p_2)" +"(let-values()" +"(if(new-procedure? p_2)" +"(let-values(((v_10)(new-procedure-ref p_2)))" +"(if(procedure? v_10)" +"(procedure-keywords v_10)" +"(let-values(((a_1)(procedure-accessor-ref p_2)))" +"(if a_1(procedure-keywords(a_1 p_2))(values null null)))))" +"(values null null)))" +" (let-values () (raise-argument-error 'procedure-keywords \"procedure?\" p_2)))))))" +"(define-values" "(reverse$1)" "(lambda(l_3)" "(begin" @@ -650,7 +687,7 @@ static const char *startup_source = "(void)" " (if (list? l_3) (void) (raise-argument-error 'reverse \"list?\" l_3)))" "(letrec-values(((loop_8)" -"(lambda(a_1 l_4)(begin 'loop(if(null? l_4) a_1(loop_8(cons(car l_4) a_1)(cdr l_4)))))))" +"(lambda(a_2 l_4)(begin 'loop(if(null? l_4) a_2(loop_8(cons(car l_4) a_2)(cdr l_4)))))))" "(loop_8 null l_3))))))" "(define-values" "(sort vector-sort vector-sort!)" @@ -1185,12 +1222,12 @@ static const char *startup_source = "(if(unsafe-fx= n_5 2)" "(let-values()(list(cadr lst_0)(car lst_0)))" "(let-values()" -"(let-values(((a_2)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" -"(if(less-than?_2 b_1 a_2)" +"(let-values(((a_3)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" +"(if(less-than?_2 b_1 a_3)" "(if(less-than?_2 c_0 b_1)" -"(list c_0 b_1 a_2)" -"(if(less-than?_2 c_0 a_2)(list b_1 c_0 a_2)(list b_1 a_2 c_0)))" -"(if(less-than?_2 c_0 a_2)(list c_0 a_2 b_1)(list a_2 c_0 b_1))))))))" +"(list c_0 b_1 a_3)" +"(if(less-than?_2 c_0 a_3)(list b_1 c_0 a_3)(list b_1 a_3 c_0)))" +"(if(less-than?_2 c_0 a_3)(list c_0 a_3 b_1)(list a_3 c_0 b_1))))))))" "(let-values()" "(let-values(((vec_0)(make-vector(+ n_5(ceiling(/ n_5 2))))))" "(begin" @@ -1287,22 +1324,22 @@ static const char *startup_source = "(if(unsafe-fx= n_6 2)" "(let-values()(list(cadr lst_3)(car lst_3)))" "(let-values()" -"(let-values(((a_3)(car lst_3))((b_2)(cadr lst_3))((c_1)(caddr lst_3)))" -"(if(if getkey_1(less-than?_4(getkey_1 b_2)(getkey_1 a_3))(less-than?_4 b_2 a_3))" +"(let-values(((a_4)(car lst_3))((b_2)(cadr lst_3))((c_1)(caddr lst_3)))" +"(if(if getkey_1(less-than?_4(getkey_1 b_2)(getkey_1 a_4))(less-than?_4 b_2 a_4))" "(if(if getkey_1" "(less-than?_4(getkey_1 c_1)(getkey_1 b_2))" "(less-than?_4 c_1 b_2))" -"(list c_1 b_2 a_3)" +"(list c_1 b_2 a_4)" "(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_3))" -"(less-than?_4 c_1 a_3))" -"(list b_2 c_1 a_3)" -"(list b_2 a_3 c_1)))" +"(less-than?_4(getkey_1 c_1)(getkey_1 a_4))" +"(less-than?_4 c_1 a_4))" +"(list b_2 c_1 a_4)" +"(list b_2 a_4 c_1)))" "(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_3))" -"(less-than?_4 c_1 a_3))" -"(list c_1 a_3 b_2)" -"(list a_3 c_1 b_2))))))))" +"(less-than?_4(getkey_1 c_1)(getkey_1 a_4))" +"(less-than?_4 c_1 a_4))" +"(list c_1 a_4 b_2)" +"(list a_4 c_1 b_2))))))))" "(let-values()" "(let-values(((vec_2)(make-vector(+ n_6(ceiling(/ n_6 2))))))" "(begin" @@ -1371,31 +1408,31 @@ static const char *startup_source = "(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 1)))" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) tmp_0))))" "(let-values()" -"(let-values(((a_4)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0)))" +"(let-values(((a_5)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0)))" "((b_3)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 1)))" "((c_2)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 2))))" -"(if(less-than?_5 b_3 a_4)" +"(if(less-than?_5 b_3 a_5)" "(let-values()" "(if(less-than?_5 c_2 b_3)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_4)))" -"(if(less-than?_5 c_2 a_4)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_5)))" +"(if(less-than?_5 c_2 a_5)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) b_3)" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_4)))" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_5)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) b_3)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_4))))))" -"(if(less-than?_5 c_2 a_4)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_5))))))" +"(if(less-than?_5 c_2 a_5)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_4)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_5)" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) b_3)))" "(let-values()" "(begin" @@ -1492,12 +1529,12 @@ static const char *startup_source = "(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 1)))" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) tmp_1))))" "(let-values()" -"(let-values(((a_5)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0)))" +"(let-values(((a_6)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0)))" "((b_4)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 1)))" "((c_3)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 2))))" "(if(if getkey_2" -"(less-than?_6(getkey_2 b_4)(getkey_2 a_5))" -"(less-than?_6 b_4 a_5))" +"(less-than?_6(getkey_2 b_4)(getkey_2 a_6))" +"(less-than?_6 b_4 a_6))" "(let-values()" "(if(if getkey_2" "(less-than?_6(getkey_2 c_3)(getkey_2 b_4))" @@ -1505,26 +1542,26 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_5)))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_6)))" "(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_5))" -"(less-than?_6 c_3 a_5))" +"(less-than?_6(getkey_2 c_3)(getkey_2 a_6))" +"(less-than?_6 c_3 a_6))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) b_4)" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_5)))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_6)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) b_4)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_5))))))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_6))))))" "(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_5))" -"(less-than?_6 c_3 a_5))" +"(less-than?_6(getkey_2 c_3)(getkey_2 a_6))" +"(less-than?_6 c_3 a_6))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_5)" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_6)" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) b_4)))" "(let-values()" "(begin" @@ -1577,31 +1614,31 @@ static const char *startup_source = "(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 1)))" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) tmp_2))))" "(let-values()" -"(let-values(((a_6)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0)))" +"(let-values(((a_7)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0)))" "((b_5)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 1)))" "((c_4)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 2))))" -"(if(less-than?_7 b_5 a_6)" +"(if(less-than?_7 b_5 a_7)" "(let-values()" "(if(less-than?_7 c_4 b_5)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_6)))" -"(if(less-than?_7 c_4 a_6)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_7)))" +"(if(less-than?_7 c_4 a_7)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) b_5)" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_6)))" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_7)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) b_5)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_6))))))" -"(if(less-than?_7 c_4 a_6)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_7))))))" +"(if(less-than?_7 c_4 a_7)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_6)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_7)" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) b_5)))" "(let-values()" "(begin" @@ -1698,12 +1735,12 @@ static const char *startup_source = "(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 1)))" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) tmp_3))))" "(let-values()" -"(let-values(((a_7)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0)))" +"(let-values(((a_8)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0)))" "((b_6)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 1)))" "((c_5)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 2))))" "(if(if getkey_3" -"(less-than?_8(getkey_3 b_6)(getkey_3 a_7))" -"(less-than?_8 b_6 a_7))" +"(less-than?_8(getkey_3 b_6)(getkey_3 a_8))" +"(less-than?_8 b_6 a_8))" "(let-values()" "(if(if getkey_3" "(less-than?_8(getkey_3 c_5)(getkey_3 b_6))" @@ -1711,26 +1748,26 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_7)))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_8)))" "(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_7))" -"(less-than?_8 c_5 a_7))" +"(less-than?_8(getkey_3 c_5)(getkey_3 a_8))" +"(less-than?_8 c_5 a_8))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) b_6)" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_7)))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_8)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) b_6)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_7))))))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_8))))))" "(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_7))" -"(less-than?_8 c_5 a_7))" +"(less-than?_8(getkey_3 c_5)(getkey_3 a_8))" +"(less-than?_8 c_5 a_8))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_7)" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_8)" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) b_6)))" "(let-values()" "(begin" @@ -1748,15 +1785,15 @@ static const char *startup_source = "(prop:stream stream-via-prop? stream-ref)" "(make-struct-type-property" " 'stream" -"(lambda(v_9 si_0)" +"(lambda(v_11 si_0)" "(begin" -"(if(if(vector? v_9)" -"(if(= 3(vector-length v_9))" -"(if(procedure?(vector-ref v_9 0))" -"(if(procedure-arity-includes?(vector-ref v_9 0) 1)" -"(if(procedure?(vector-ref v_9 1))" -"(if(procedure-arity-includes?(vector-ref v_9 1) 1)" -"(if(procedure?(vector-ref v_9 2))(procedure-arity-includes?(vector-ref v_9 2) 1) #f)" +"(if(if(vector? v_11)" +"(if(= 3(vector-length v_11))" +"(if(procedure?(vector-ref v_11 0))" +"(if(procedure-arity-includes?(vector-ref v_11 0) 1)" +"(if(procedure?(vector-ref v_11 1))" +"(if(procedure-arity-includes?(vector-ref v_11 1) 1)" +"(if(procedure?(vector-ref v_11 2))(procedure-arity-includes?(vector-ref v_11 2) 1) #f)" " #f)" " #f)" " #f)" @@ -1771,18 +1808,18 @@ static const char *startup_source = " \"(vector/c (procedure-arity-includes/c 1)\\n\"" " \" (procedure-arity-includes/c 1)\\n\"" " \" (procedure-arity-includes/c 1))\")" -" v_9)))" -"(vector->immutable-vector v_9)))))" +" v_11)))" +"(vector->immutable-vector v_11)))))" "(define-values" "(prop:gen-sequence sequence-via-prop? sequence-ref)" "(make-struct-type-property" " 'sequence" -"(lambda(v_10 si_1)" +"(lambda(v_12 si_1)" "(begin" -"(if(if(procedure? v_10)(procedure-arity-includes? v_10 1) #f)" +"(if(if(procedure? v_12)(procedure-arity-includes? v_12 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_10)))" -" v_10))))" +" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_12)))" +" v_12))))" "(define-values" "(struct:range make-range range? range-ref range-set!)" "(make-struct-type" @@ -1795,18 +1832,18 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_11)(let-values(((cont?_0)(range-ref v_11 2)))(if cont?_0(not(cont?_0(range-ref v_11 0))) #f)))" -"(lambda(v_12)(range-ref v_12 0))" -"(lambda(v_13)(make-range((range-ref v_13 1)(range-ref v_13 0))(range-ref v_13 1)(range-ref v_13 2)))))" +"(lambda(v_13)(let-values(((cont?_0)(range-ref v_13 2)))(if cont?_0(not(cont?_0(range-ref v_13 0))) #f)))" +"(lambda(v_14)(range-ref v_14 0))" +"(lambda(v_15)(make-range((range-ref v_15 1)(range-ref v_15 0))(range-ref v_15 1)(range-ref v_15 2)))))" "(cons" " prop:gen-sequence" -"(lambda(v_14)(values values #f(range-ref v_14 1)(range-ref v_14 0)(range-ref v_14 2) #f #f))))))" +"(lambda(v_16)(values values #f(range-ref v_16 1)(range-ref v_16 0)(range-ref v_16 2) #f #f))))))" "(define-values" "(check-range)" -"(lambda(a_8 b_7 step_0)" +"(lambda(a_9 b_7 step_0)" "(begin" "(begin" -" (if (real? a_8) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_8)))" +" (if (real? a_9) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_9)))" " (if (real? b_7) (void) (let-values () (raise-argument-error 'in-range \"real?\" b_7)))" " (if (real? step_0) (void) (let-values () (raise-argument-error 'in-range \"real?\" step_0)))))))" "(define-values" @@ -1828,10 +1865,10 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_15)(not(pair?(list-stream-ref v_15 0))))" -"(lambda(v_16)(car(list-stream-ref v_16 0)))" -"(lambda(v_17)(make-list-stream(cdr(list-stream-ref v_17 0))))))" -"(cons prop:gen-sequence(lambda(v_18)(values car cdr values(list-stream-ref v_18 0) pair? #f #f))))))" +"(lambda(v_17)(not(pair?(list-stream-ref v_17 0))))" +"(lambda(v_18)(car(list-stream-ref v_18 0)))" +"(lambda(v_19)(make-list-stream(cdr(list-stream-ref v_19 0))))))" +"(cons prop:gen-sequence(lambda(v_20)(values car cdr values(list-stream-ref v_20 0) pair? #f #f))))))" "(define-values" "(check-list)" " (lambda (l_5) (begin (if (list? l_5) (void) (let-values () (raise-argument-error 'in-list \"list?\" l_5))))))" @@ -1919,13 +1956,13 @@ static const char *startup_source = "(begin(check-ranges who_4 vec_8 start_5 stop*_0 step_2 len_1)(values vec_8 start_5 stop*_0 step_2))))))))" "(define-values" "(check-vector)" -" (lambda (v_19) (begin (if (vector? v_19) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_19))))))" +" (lambda (v_21) (begin (if (vector? v_21) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_21))))))" "(define-values" "(check-string)" -" (lambda (v_20) (begin (if (string? v_20) (void) (let-values () (raise-argument-error 'in-string \"string\" v_20))))))" +" (lambda (v_22) (begin (if (string? v_22) (void) (let-values () (raise-argument-error 'in-string \"string\" v_22))))))" "(define-values" "(check-bytes)" -" (lambda (v_21) (begin (if (bytes? v_21) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_21))))))" +" (lambda (v_23) (begin (if (bytes? v_23) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_23))))))" "(define-values" "(struct:do-stream make-do-stream do-stream? do-stream-ref do-stream-set!)" "(make-struct-type" @@ -1938,9 +1975,9 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_22)((do-stream-ref v_22 0)))" -"(lambda(v_23)((do-stream-ref v_23 1)))" -"(lambda(v_24)((do-stream-ref v_24 2))))))))" +"(lambda(v_24)((do-stream-ref v_24 0)))" +"(lambda(v_25)((do-stream-ref v_25 1)))" +"(lambda(v_26)((do-stream-ref v_26 2))))))))" "(define-values(empty-stream)(make-do-stream(lambda() #t) void void))" "(define-values" "(grow-vector)" @@ -2181,38 +2218,65 @@ static const char *startup_source = "(if(procedure-arity-includes? f_12(length ls_4))" "(void)" "(let-values()" +"(let-values(((required-keywords_0 optional-keywords_0)(procedure-keywords f_12)))" "(apply" " raise-arguments-error" " who_5" +"(if(pair? required-keywords_0)" +" (string-append \"argument mismatch;\\n\" \" the given procedure expects keyword arguments\")" "(string-append" -" \"argument mismatch;\\n\"" -" \" the given procedure's expected number of arguments does not match\"" -" \" the given number of lists\")" -" \"given procedure\"" +" \"argument mismatch;\\n\"" +" \" the given procedure's expected number of arguments does not match\"" +" \" the given number of lists\"))" +" \"given procedure\"" "(unquoted-printing-string" "(let-values(((or-part_23)" "(let-values(((n_13)(object-name f_12)))(if(symbol? n_13)(symbol->string n_13) #f))))" -" (if or-part_23 or-part_23 \"#\")))" +" (if or-part_23 or-part_23 \"#\")))" "(append" -"(let-values(((a_9)(procedure-arity f_12)))" -"(if(integer? a_9)" -" (let-values () (list \"expected\" a_9))" -"(if(arity-at-least? a_9)" +"(let-values(((a_10)(procedure-arity f_12)))" +"(if(pair? required-keywords_0)" +"(let-values() null)" +"(if(integer? a_10)" +" (let-values () (list \"expected\" a_10))" +"(if(arity-at-least? a_10)" "(let-values()" "(list" -" \"expected\"" +" \"expected\"" "(unquoted-printing-string" -" (string-append \"at least \" (number->string (arity-at-least-value a_9))))))" -"(let-values() null))))" -" (list \"given\" (length ls_4))" -"(let-values(((w_0)(quotient(error-print-width)(length ls_4))))" -"(if(> w_0 10)" +" (string-append \"at least \" (number->string (arity-at-least-value a_10))))))" +"(let-values() null)))))" +" (if (pair? required-keywords_0) (let-values () null) (let-values () (list \"given\" (length ls_4))))" +"(if(pair? required-keywords_0)" +"(let-values()" "(list" -" \"argument lists...\"" +" \"required keywords\"" "(unquoted-printing-string" "(apply" " string-append" +"(cdr" "((letrec-values(((loop_42)" +"(lambda(kws_0)" +"(begin" +" 'loop" +"(if(null? kws_0)" +"(let-values() null)" +"(let-values()" +"(list*" +" \" \"" +" (string-append \"#:\" (keyword->string (car kws_0)))" +"(loop_42(cdr kws_0)))))))))" +" loop_42)" +" required-keywords_0))))))" +"(let-values() null))" +"(let-values(((w_0)(quotient(error-print-width)(length ls_4))))" +"(if(> w_0 10)" +"(list" +" \"argument lists...\"" +"(unquoted-printing-string" +"(apply" +" string-append" +"((letrec-values(((loop_43)" "(lambda(ls_6)" "(begin" " 'loop" @@ -2220,18 +2284,18 @@ static const char *startup_source = "(let-values() null)" "(let-values()" "(cons" -" (string-append \"\\n \" ((error-value->string-handler) (car ls_6) w_0))" -"(loop_42(cdr ls_6)))))))))" -" loop_42)" +" (string-append \"\\n \" ((error-value->string-handler) (car ls_6) w_0))" +"(loop_43(cdr ls_6)))))))))" +" loop_43)" " ls_4))))" -" null))))))))))" +" null)))))))))))" "(define-values" "(gen-map)" "(lambda(f_13 ls_7)" "(begin" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'map f_13 ls_7))" -"((letrec-values(((loop_43)" +"((letrec-values(((loop_44)" "(lambda(ls_8)" "(begin" " 'loop" @@ -2239,8 +2303,8 @@ static const char *startup_source = "(let-values() null)" "(let-values()" "(let-values(((next-ls_0)(map2 cdr ls_8)))" -"(cons(apply f_13(map2 car ls_8))(loop_43 next-ls_0)))))))))" -" loop_43)" +"(cons(apply f_13(map2 car ls_8))(loop_44 next-ls_0)))))))))" +" loop_44)" " ls_7)))))" "(define-values" "(gen-for-each)" @@ -2248,7 +2312,7 @@ static const char *startup_source = "(begin" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'for-each f_14 ls_9))" -"((letrec-values(((loop_44)" +"((letrec-values(((loop_45)" "(lambda(ls_10)" "(begin" " 'loop" @@ -2256,8 +2320,8 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((next-ls_1)(map2 cdr ls_10)))" -"(begin(apply f_14(map2 car ls_10))(loop_44 next-ls_1)))))))))" -" loop_44)" +"(begin(apply f_14(map2 car ls_10))(loop_45 next-ls_1)))))))))" +" loop_45)" " ls_9)))))" "(define-values" "(gen-andmap)" @@ -2265,7 +2329,7 @@ static const char *startup_source = "(begin" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'andmap f_15 ls_11))" -"((letrec-values(((loop_45)" +"((letrec-values(((loop_46)" "(lambda(ls_12)" "(begin" " 'loop" @@ -2275,8 +2339,8 @@ static const char *startup_source = "(let-values()(apply f_15(map2 car ls_12)))" "(let-values()" "(let-values(((next-ls_2)(map2 cdr ls_12)))" -"(if(apply f_15(map2 car ls_12))(loop_45 next-ls_2) #f)))))))))" -" loop_45)" +"(if(apply f_15(map2 car ls_12))(loop_46 next-ls_2) #f)))))))))" +" loop_46)" " ls_11)))))" "(define-values" "(gen-ormap)" @@ -2284,7 +2348,7 @@ static const char *startup_source = "(begin" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'ormap f_16 ls_13))" -"((letrec-values(((loop_46)" +"((letrec-values(((loop_47)" "(lambda(ls_14)" "(begin" " 'loop" @@ -2295,8 +2359,8 @@ static const char *startup_source = "(let-values()" "(let-values(((next-ls_3)(map2 cdr ls_14)))" "(let-values(((or-part_24)(apply f_16(map2 car ls_14))))" -"(if or-part_24 or-part_24(loop_46 next-ls_3)))))))))))" -" loop_46)" +"(if or-part_24 or-part_24(loop_47 next-ls_3)))))))))))" +" loop_47)" " ls_13)))))" "(define-values" "(hash-keys)" @@ -2335,7 +2399,7 @@ static const char *startup_source = " (lambda (who_5 orig-l_7) (begin (raise-mismatch-error who_5 \"not a proper list: \" orig-l_7))))" "(define-values" "(bad-item)" -" (lambda (who_6 a_10 orig-l_8) (begin (raise-mismatch-error who_6 \"non-pair found in list: \" a_10 \" in \" orig-l_8))))" +" (lambda (who_6 a_11 orig-l_8) (begin (raise-mismatch-error who_6 \"non-pair found in list: \" a_11 \" in \" orig-l_8))))" "(define-values" "(1/assq 1/assv 1/assoc assf)" "(let-values()" @@ -2344,16 +2408,16 @@ static const char *startup_source = "(lambda(x_9 l_19)" "(begin" " 'assq" -"((letrec-values(((loop_45)" +"((letrec-values(((loop_48)" "(lambda(l_20 t_0)" "(begin" " 'loop" "(if(pair? l_20)" "(let-values()" -"(let-values(((a_11)(unsafe-car l_20)))" -"(if(pair? a_11)" -"(if(eq? x_9(unsafe-car a_11))" -" a_11" +"(let-values(((a_12)(unsafe-car l_20)))" +"(if(pair? a_12)" +"(if(eq? x_9(unsafe-car a_12))" +" a_12" "(let-values(((l_21)(unsafe-cdr l_20)))" "(if(pair? l_21)" "(let-values()" @@ -2365,53 +2429,53 @@ static const char *startup_source = "((l_22)(unsafe-cdr l_21)))" "(if(eq? l_22 t_1)" "(bad-list 'assq l_19)" -"(loop_45 l_22 t_1))))" +"(loop_48 l_22 t_1))))" "(bad-item 'assq a_0 l_19))))" "(if(null? l_21)" "(let-values() #f)" "(let-values()(bad-list 'assq l_19))))))" -"(bad-item 'assq a_11 l_19))))" +"(bad-item 'assq a_12 l_19))))" "(if(null? l_20)" "(let-values() #f)" "(let-values()(bad-list 'assq l_19))))))))" -" loop_45)" +" loop_48)" " l_19" " l_19))))" "((assv_0)" "(lambda(x_10 l_23)" "(begin" " 'assv" -"((letrec-values(((loop_47)" +"((letrec-values(((loop_49)" "(lambda(l_24 t_2)" "(begin" " 'loop" "(if(pair? l_24)" "(let-values()" -"(let-values(((a_12)(unsafe-car l_24)))" -"(if(pair? a_12)" -"(if(eqv? x_10(unsafe-car a_12))" -" a_12" -"(let-values(((l_25)(unsafe-cdr l_24)))" -"(if(pair? l_25)" -"(let-values()" -"(let-values(((a_13)(unsafe-car l_25)))" +"(let-values(((a_13)(unsafe-car l_24)))" "(if(pair? a_13)" "(if(eqv? x_10(unsafe-car a_13))" " a_13" +"(let-values(((l_25)(unsafe-cdr l_24)))" +"(if(pair? l_25)" +"(let-values()" +"(let-values(((a_14)(unsafe-car l_25)))" +"(if(pair? a_14)" +"(if(eqv? x_10(unsafe-car a_14))" +" a_14" "(let-values(((t_3)(unsafe-cdr t_2))" "((l_26)(unsafe-cdr l_25)))" "(if(eq? l_26 t_3)" "(bad-list 'assv l_23)" -"(loop_47 l_26 t_3))))" -"(bad-item 'assv a_13 l_23))))" +"(loop_49 l_26 t_3))))" +"(bad-item 'assv a_14 l_23))))" "(if(null? l_25)" "(let-values() #f)" "(let-values()(bad-list 'assv l_23))))))" -"(bad-item 'assv a_12 l_23))))" +"(bad-item 'assv a_13 l_23))))" "(if(null? l_24)" "(let-values() #f)" "(let-values()(bad-list 'assv l_23))))))))" -" loop_47)" +" loop_49)" " l_23" " l_23))))" "((assoc_0)" @@ -2419,37 +2483,37 @@ static const char *startup_source = "((x_11 l_27)" "(begin" " 'assoc" -"((letrec-values(((loop_48)" +"((letrec-values(((loop_50)" "(lambda(l_28 t_4)" "(begin" " 'loop" "(if(pair? l_28)" "(let-values()" -"(let-values(((a_14)(unsafe-car l_28)))" -"(if(pair? a_14)" -"(if(equal? x_11(unsafe-car a_14))" -" a_14" -"(let-values(((l_29)(unsafe-cdr l_28)))" -"(if(pair? l_29)" -"(let-values()" -"(let-values(((a_15)(unsafe-car l_29)))" +"(let-values(((a_15)(unsafe-car l_28)))" "(if(pair? a_15)" "(if(equal? x_11(unsafe-car a_15))" " a_15" +"(let-values(((l_29)(unsafe-cdr l_28)))" +"(if(pair? l_29)" +"(let-values()" +"(let-values(((a_16)(unsafe-car l_29)))" +"(if(pair? a_16)" +"(if(equal? x_11(unsafe-car a_16))" +" a_16" "(let-values(((t_5)(unsafe-cdr t_4))" "((l_30)(unsafe-cdr l_29)))" "(if(eq? l_30 t_5)" "(bad-list 'assoc l_27)" -"(loop_48 l_30 t_5))))" -"(bad-item 'assoc a_15 l_27))))" +"(loop_50 l_30 t_5))))" +"(bad-item 'assoc a_16 l_27))))" "(if(null? l_29)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_27))))))" -"(bad-item 'assoc a_14 l_27))))" +"(bad-item 'assoc a_15 l_27))))" "(if(null? l_28)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_27))))))))" -" loop_48)" +" loop_50)" " l_27" " l_27)))" "((x_12 l_31 is-equal?_0)" @@ -2457,37 +2521,37 @@ static const char *startup_source = "(if(if(procedure? is-equal?_0)(procedure-arity-includes? is-equal?_0 2) #f)" "(void)" " (let-values () (raise-argument-error 'assoc \"(any/c any/c . -> . any/c)\" is-equal?_0)))" -"((letrec-values(((loop_49)" +"((letrec-values(((loop_51)" "(lambda(l_32 t_6)" "(begin" " 'loop" "(if(pair? l_32)" "(let-values()" -"(let-values(((a_16)(unsafe-car l_32)))" -"(if(pair? a_16)" -"(if(is-equal?_0 x_12(unsafe-car a_16))" -" a_16" -"(let-values(((l_33)(unsafe-cdr l_32)))" -"(if(pair? l_33)" -"(let-values()" -"(let-values(((a_17)(unsafe-car l_33)))" +"(let-values(((a_17)(unsafe-car l_32)))" "(if(pair? a_17)" "(if(is-equal?_0 x_12(unsafe-car a_17))" " a_17" +"(let-values(((l_33)(unsafe-cdr l_32)))" +"(if(pair? l_33)" +"(let-values()" +"(let-values(((a_18)(unsafe-car l_33)))" +"(if(pair? a_18)" +"(if(is-equal?_0 x_12(unsafe-car a_18))" +" a_18" "(let-values(((t_7)(unsafe-cdr t_6))" "((l_34)(unsafe-cdr l_33)))" "(if(eq? l_34 t_7)" "(bad-list 'assoc l_31)" -"(loop_49 l_34 t_7))))" -"(bad-item 'assoc a_17 l_31))))" +"(loop_51 l_34 t_7))))" +"(bad-item 'assoc a_18 l_31))))" "(if(null? l_33)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_31))))))" -"(bad-item 'assoc a_16 l_31))))" +"(bad-item 'assoc a_17 l_31))))" "(if(null? l_32)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_31))))))))" -" loop_49)" +" loop_51)" " l_31" " l_31)))))" "((assf_0)" @@ -2498,39 +2562,39 @@ static const char *startup_source = "(if(if(procedure? f_17)(procedure-arity-includes? f_17 1) #f)" "(void)" " (let-values () (raise-argument-error 'assf \"(any/c any/c . -> . any/c)\" f_17)))" -"((letrec-values(((loop_50)" +"((letrec-values(((loop_52)" "(lambda(l_36 t_8)" "(begin" " 'loop" "(if(pair? l_36)" "(let-values()" -"(let-values(((a_18)(unsafe-car l_36)))" -"(if(pair? a_18)" -"(if((lambda(__0 a_19)(f_17 a_19)) #f(unsafe-car a_18))" -" a_18" +"(let-values(((a_19)(unsafe-car l_36)))" +"(if(pair? a_19)" +"(if((lambda(__0 a_20)(f_17 a_20)) #f(unsafe-car a_19))" +" a_19" "(let-values(((l_37)(unsafe-cdr l_36)))" "(if(pair? l_37)" "(let-values()" -"(let-values(((a_20)(unsafe-car l_37)))" -"(if(pair? a_20)" -"(if((lambda(__1 a_21)(f_17 a_21))" +"(let-values(((a_21)(unsafe-car l_37)))" +"(if(pair? a_21)" +"(if((lambda(__1 a_22)(f_17 a_22))" " #f" -"(unsafe-car a_20))" -" a_20" +"(unsafe-car a_21))" +" a_21" "(let-values(((t_9)(unsafe-cdr t_8))" "((l_38)(unsafe-cdr l_37)))" "(if(eq? l_38 t_9)" "(bad-list 'assf l_35)" -"(loop_50 l_38 t_9))))" -"(bad-item 'assf a_20 l_35))))" +"(loop_52 l_38 t_9))))" +"(bad-item 'assf a_21 l_35))))" "(if(null? l_37)" "(let-values() #f)" "(let-values()(bad-list 'assf l_35))))))" -"(bad-item 'assf a_18 l_35))))" +"(bad-item 'assf a_19 l_35))))" "(if(null? l_36)" "(let-values() #f)" "(let-values()(bad-list 'assf l_35))))))))" -" loop_50)" +" loop_52)" " l_35" " l_35))))))" "(values assq_0 assv_0 assoc_0 assf_0)))))" @@ -2543,14 +2607,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'filter \"(any/c . -> . any/c)\" f_18)))" " (if (list? list_0) (void) (let-values () (raise-argument-error 'filter \"list?\" list_0)))" -"((letrec-values(((loop_51)" +"((letrec-values(((loop_53)" "(lambda(l_39 result_0)" "(begin" " 'loop" "(if(null? l_39)" "(reverse$1 result_0)" -"(loop_51(cdr l_39)(if(f_18(car l_39))(cons(car l_39) result_0) result_0)))))))" -" loop_51)" +"(loop_53(cdr l_39)(if(f_18(car l_39))(cons(car l_39) result_0) result_0)))))))" +" loop_53)" " list_0" " null)))))" "(define-values(no-empty-edge-table)(make-hash))" @@ -2611,8 +2675,8 @@ static const char *startup_source = "(if(memq mode_2 '(binary text))" "(void)" "(let-values()(raise-argument-error 'call-with-input-file* binary-or-text-desc mode_2)))" -"(let-values(((p_2)(open-input-file path_2 mode_2)))" -"(dynamic-wind void(lambda()(proc_1 p_2))(lambda()(close-input-port p_2))))))))))))" +"(let-values(((p_3)(open-input-file path_2 mode_2)))" +"(dynamic-wind void(lambda()(proc_1 p_3))(lambda()(close-input-port p_3))))))))))))" "(define-values(the-empty-hash) '#hash())" "(define-values(the-empty-hasheq) '#hasheq())" "(define-values(the-empty-hasheqv) '#hasheqv())" @@ -2777,14 +2841,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_24" -"(let-values(((v_25)(unsafe-immutable-hash-iterate-key ht_19 i_24)))" +"(let-values(((v_27)(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)" "(let-values()" -"(if(pred_0 v_25)" -"(values(set-add y_8 v_25) n_16)" -"(values y_8(set-add n_16 v_25))))))" +"(if(pred_0 v_27)" +"(values(set-add y_8 v_27) n_16)" +"(values y_8(set-add n_16 v_27))))))" "(values y_9 n_17)))))" "(if(not #f)" "(for-loop_5 y_7 n_15(unsafe-immutable-hash-iterate-next ht_19 i_24))" @@ -2970,14 +3034,14 @@ static const char *startup_source = "(set! monitor-owner #f)" "(set! extra-atomic-depth 0)" "(end-breakable-atomic)" -"((letrec-values(((loop_52)" +"((letrec-values(((loop_54)" "(lambda(i_26)" "(begin" " 'loop" "(if(zero? i_26)" "(void)" -"(let-values()(begin(end-breakable-atomic)(loop_52(sub1 i_26)))))))))" -" loop_52)" +"(let-values()(begin(end-breakable-atomic)(loop_54(sub1 i_26)))))))))" +" loop_54)" " extra-depth_0)))" " f_20" "(lambda()" @@ -2985,15 +3049,15 @@ static const char *startup_source = "(start-breakable-atomic)" "(set! old-paramz paramz_2)" "(set! old-break-paramz break-paramz_0)" -"((letrec-values(((loop_53)" +"((letrec-values(((loop_55)" "(lambda(i_27)" "(begin" " 'loop" "(if(zero? i_27)" "(void)" "(let-values()" -"(begin(start-breakable-atomic)(loop_53(sub1 i_27)))))))))" -" loop_53)" +"(begin(start-breakable-atomic)(loop_55(sub1 i_27)))))))))" +" loop_55)" " extra-depth_0)" "(set! extra-atomic-depth extra-depth_0)" "(set! monitor-owner(current-thread)))))))))))))))" @@ -3010,51 +3074,51 @@ static const char *startup_source = "(make-struct-type-property 'binding-reach-scopes))" "(define-values" "(1/module-path?)" -"(lambda(v_26)" +"(lambda(v_28)" "(begin" " 'module-path?" -"(let-values(((or-part_0)(if(pair? v_26)(if(eq?(car v_26) 'submod)(submodule-module-path? v_26) #f) #f)))" -"(if or-part_0 or-part_0(root-module-path? v_26))))))" +"(let-values(((or-part_0)(if(pair? v_28)(if(eq?(car v_28) 'submod)(submodule-module-path? v_28) #f) #f)))" +"(if or-part_0 or-part_0(root-module-path? v_28))))))" "(define-values" "(root-module-path?)" -"(lambda(v_27)" +"(lambda(v_29)" "(begin" -"(let-values(((or-part_11)(path? v_27)))" +"(let-values(((or-part_11)(path? v_29)))" "(if or-part_11" " or-part_11" -"(let-values(((or-part_2)(if(string? v_27)(string-module-path? v_27) #f)))" +"(let-values(((or-part_2)(if(string? v_29)(string-module-path? v_29) #f)))" "(if or-part_2" " or-part_2" -"(let-values(((or-part_26)(if(symbol? v_27)(symbol-module-path? v_27) #f)))" +"(let-values(((or-part_26)(if(symbol? v_29)(symbol-module-path? v_29) #f)))" "(if or-part_26" " or-part_26" -"(if(pair? v_27)" -"(let-values(((tmp_4)(car v_27)))" +"(if(pair? v_29)" +"(let-values(((tmp_4)(car v_29)))" "(if(equal? tmp_4 'quote)" -"(let-values()(if(pair?(cdr v_27))(if(symbol?(cadr v_27))(null?(cddr v_27)) #f) #f))" +"(let-values()(if(pair?(cdr v_29))(if(symbol?(cadr v_29))(null?(cddr v_29)) #f) #f))" "(if(equal? tmp_4 'lib)" -"(let-values()(lib-module-path? v_27))" +"(let-values()(lib-module-path? v_29))" "(if(equal? tmp_4 'file)" "(let-values()" -"(if(pair?(cdr v_27))" -"(if(string?(cadr v_27))(if(path-string?(cadr v_27))(null?(cddr v_27)) #f) #f)" +"(if(pair?(cdr v_29))" +"(if(string?(cadr v_29))(if(path-string?(cadr v_29))(null?(cddr v_29)) #f) #f)" " #f))" "(if(equal? tmp_4 'planet)" -"(let-values()(planet-module-path? v_27))" +"(let-values()(planet-module-path? v_29))" "(let-values() #f))))))" " #f))))))))))" "(define-values" "(submodule-module-path?)" -"(lambda(v_28)" +"(lambda(v_30)" "(begin" -"(if(pair?(cdr v_28))" -"(if(list? v_28)" -" (if (let-values (((or-part_27) (equal? (cadr v_28) \"..\")))" +"(if(pair?(cdr v_30))" +"(if(list? v_30)" +" (if (let-values (((or-part_27) (equal? (cadr v_30) \"..\")))" "(if or-part_27" " or-part_27" -" (let-values (((or-part_10) (equal? (cadr v_28) \".\")))" -"(if or-part_10 or-part_10(root-module-path?(cadr v_28))))))" -"(let-values(((lst_15)(cddr v_28)))" +" (let-values (((or-part_10) (equal? (cadr v_30) \".\")))" +"(if or-part_10 or-part_10(root-module-path?(cadr v_30))))))" +"(let-values(((lst_15)(cddr v_30)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_15)))" "((letrec-values(((for-loop_9)" @@ -3086,51 +3150,51 @@ static const char *startup_source = " #f))))" "(define-values" "(string-module-path?)" -"(lambda(v_29)" +"(lambda(v_31)" "(begin" -"(let-values(((v13_0) v_29)((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))" +"(let-values(((v13_0) v_31)((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))" "(module-path-string?10.1 temp14_0 temp16_0 #f temp15_0 v13_0)))))" "(define-values" "(symbol-module-path?)" -"(lambda(v_30)" -"(begin(let-values(((temp17_0)(symbol->string v_30)))(module-path-string?10.1 #f #f #f #f temp17_0)))))" +"(lambda(v_32)" +"(begin(let-values(((temp17_0)(symbol->string v_32)))(module-path-string?10.1 #f #f #f #f temp17_0)))))" "(define-values" "(lib-module-path?)" -"(lambda(v_31)" +"(lambda(v_33)" "(begin" -"(if(list? v_31)" -"(if(pair?(cdr v_31))" -"((letrec-values(((loop_54)" -"(lambda(v_32 first?_0)" +"(if(list? v_33)" +"(if(pair?(cdr v_33))" +"((letrec-values(((loop_56)" +"(lambda(v_34 first?_0)" "(begin" " 'loop" -"(let-values(((or-part_29)(null? v_32)))" +"(let-values(((or-part_29)(null? v_34)))" "(if or-part_29" " or-part_29" -"(if(string?(car v_32))" -"(if(let-values(((temp18_0)(car v_32))" +"(if(string?(car v_34))" +"(if(let-values(((temp18_0)(car v_34))" "((first?19_0) first?_0)" "((first?20_0) first?_0))" "(module-path-string?10.1 #f first?20_0 #f first?19_0 temp18_0))" -"(loop_54(cdr v_32) #f)" +"(loop_56(cdr v_34) #f)" " #f)" " #f)))))))" -" loop_54)" -"(cdr v_31)" +" loop_56)" +"(cdr v_33)" " #t)" " #f)" " #f))))" "(define-values" "(planet-module-path?)" -"(lambda(v_33)" +"(lambda(v_35)" "(begin" -"(if(list? v_33)" -"(let-values(((tmp_5)(length v_33)))" +"(if(list? v_35)" +"(let-values(((tmp_5)(length v_35)))" "(if(equal? tmp_5 1)" "(let-values() #f)" "(if(equal? tmp_5 2)" "(let-values()" -"(let-values(((e_8)(cadr v_33)))" +"(let-values(((e_8)(cadr v_35)))" "(if(string? e_8)" "(let-values()" "(let-values(((e21_0) e_8)((temp22_0) #t)((temp23_0) #t))" @@ -3141,9 +3205,9 @@ static const char *startup_source = "(module-path-string?10.1 #f #f temp25_0 #f temp24_0)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((file_0)(cadr v_33)))" -"(let-values(((pkg_0)(caddr v_33)))" -"(let-values(((subs_0)(cdddr v_33)))" +"(let-values(((file_0)(cadr v_35)))" +"(let-values(((pkg_0)(caddr v_35)))" +"(let-values(((subs_0)(cdddr v_35)))" "(if file_0" "(if(let-values(((file26_0) file_0)((temp27_0) #t)((temp28_0) #t))" "(module-path-string?10.1 #f temp28_0 #f temp27_0 file26_0))" @@ -3204,21 +3268,21 @@ static const char *startup_source = " #f)" " #f))))))))" " #f))))" -"(define-values(planet-version-number?)(lambda(v_34)(begin(exact-nonnegative-integer? v_34))))" +"(define-values(planet-version-number?)(lambda(v_36)(begin(exact-nonnegative-integer? v_36))))" "(define-values" "(planet-version-minor-spec?)" -"(lambda(v_35)" +"(lambda(v_37)" "(begin" -"(let-values(((or-part_33)(planet-version-number? v_35)))" +"(let-values(((or-part_33)(planet-version-number? v_37)))" "(if or-part_33" " or-part_33" -"(if(pair? v_35)" -"(if(list? v_35)" -"(if(= 2(length v_35))" -"(let-values(((tmp_6)(car v_35)))" +"(if(pair? v_37)" +"(if(list? v_37)" +"(if(= 2(length v_37))" +"(let-values(((tmp_6)(car v_37)))" "(if(if(equal? tmp_6 '=) #t(if(equal? tmp_6 '+) #t(equal? tmp_6 '-)))" -"(let-values()(planet-version-number?(cadr v_35)))" -"(let-values()(if(planet-version-number?(car v_35))(planet-version-number?(cadr v_35)) #f))))" +"(let-values()(planet-version-number?(cadr v_37)))" +"(let-values()(if(planet-version-number?(car v_37))(planet-version-number?(cadr v_37)) #f))))" " #f)" " #f)" " #f))))))" @@ -3227,59 +3291,59 @@ static const char *startup_source = "(lambda(dots-dir-ok?2_0 file-end-ok?4_0 for-planet?1_0 just-file-ok?3_0 v9_0)" "(begin" " 'module-path-string?10" -"(let-values(((v_36) v9_0))" +"(let-values(((v_38) v9_0))" "(let-values(((for-planet?_0) for-planet?1_0))" "(let-values(((dots-dir-ok?_0) dots-dir-ok?2_0))" "(let-values(((just-file-ok?_0) just-file-ok?3_0))" "(let-values(((file-end-ok?_0) file-end-ok?4_0))" "(let-values()" -"(let-values(((len_3)(string-length v_36)))" +"(let-values(((len_3)(string-length v_38)))" "(if(positive? len_3)" -"(if(not(char=? '#\\/(string-ref v_36 0)))" -"(if(not(char=? '#\\/(string-ref v_36(sub1 len_3))))" +"(if(not(char=? '#\\/(string-ref v_38 0)))" +"(if(not(char=? '#\\/(string-ref v_38(sub1 len_3))))" "(let-values(((start-package-version-pos_0 end-package-version-pos_0)" -"(if for-planet?_0(check-planet-part v_36 len_3)(values 0 0))))" +"(if for-planet?_0(check-planet-part v_38 len_3)(values 0 0))))" "(if start-package-version-pos_0" -"((letrec-values(((loop_42)" +"((letrec-values(((loop_57)" "(lambda(i_28 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" "(begin" " 'loop" "(if(not(negative? i_28))" "(let-values()" -"(let-values(((c_6)(string-ref v_36 i_28)))" +"(let-values(((c_6)(string-ref v_38 i_28)))" "(if(char=? c_6 '#\\/)" "(let-values()" "(if(not prev-was-slash?_0)" -"(loop_42(sub1 i_28) #t #t saw-dot?_0)" +"(loop_57(sub1 i_28) #t #t saw-dot?_0)" " #f))" "(if(char=? c_6 '#\\.)" "(let-values()" "(if(if(<(add1 i_28) len_3)" "(if(not" -"(char=?(string-ref v_36(add1 i_28)) '#\\/))" +"(char=?(string-ref v_38(add1 i_28)) '#\\/))" "(not" -"(char=?(string-ref v_36(add1 i_28)) '#\\.))" +"(char=?(string-ref v_38(add1 i_28)) '#\\.))" " #f)" " #f)" "(if(not saw-slash?_0)" -"(loop_42(sub1 i_28) #f saw-slash?_0 #t)" +"(loop_57(sub1 i_28) #f saw-slash?_0 #t)" " #f)" -"(loop_42(sub1 i_28) #f saw-slash?_0 saw-dot?_0)))" +"(loop_57(sub1 i_28) #f saw-slash?_0 saw-dot?_0)))" "(if(let-values(((or-part_34)(plain-char? c_6)))" "(if or-part_34" " or-part_34" "(if(char=? c_6 '#\\%)" "(if(<(+ i_28 2) len_3)" -"(hex-sequence? v_36(add1 i_28))" +"(hex-sequence? v_38(add1 i_28))" " #f)" " #f)))" "(let-values()" -"(loop_42(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" +"(loop_57(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" "(if(if(>= i_28 start-package-version-pos_0)" "(< i_28 end-package-version-pos_0)" " #f)" "(let-values()" -"(loop_42(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" +"(loop_57(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" "(let-values() #f)))))))" "(let-values()" "(if(not" @@ -3289,14 +3353,14 @@ static const char *startup_source = "(let-values(((or-part_35) dots-dir-ok?_0))" "(if or-part_35" " or-part_35" -"((letrec-values(((loop_55)" +"((letrec-values(((loop_44)" "(lambda(i_29)" "(begin" " 'loop" "(if(= i_29 len_3)" "(let-values() #t)" "(if(char=?" -"(string-ref v_36 i_29)" +"(string-ref v_38 i_29)" " '#\\.)" "(let-values()" "(if(not" @@ -3309,13 +3373,13 @@ static const char *startup_source = " or-part_36" "(char=?" "(string-ref" -" v_36" +" v_38" "(add1 i_29))" " '#\\/))))" "(if(not" "(if(char=?" "(string-ref" -" v_36" +" v_38" "(add1 i_29))" " '#\\.)" "(let-values(((or-part_37)" @@ -3328,34 +3392,34 @@ static const char *startup_source = " or-part_37" "(char=?" "(string-ref" -" v_36" +" v_38" "(+ i_29 2))" " '#\\/)))" " #f))" -"(loop_55" -"((letrec-values(((loop_56)" +"(loop_44" +"((letrec-values(((loop_58)" "(lambda(i_30)" "(begin" " 'loop" "(if(char=?" " '#\\." "(string-ref" -" v_36" +" v_38" " i_30))" -"(loop_56" +"(loop_58" "(add1" " i_30))" " i_30)))))" -" loop_56)" +" loop_58)" " i_29))" " #f)" " #f))" "(let-values()" -"(loop_55(add1 i_29)))))))))" -" loop_55)" +"(loop_44(add1 i_29)))))))))" +" loop_44)" " 0)))" " #f)))))))" -" loop_42)" +" loop_57)" "(sub1 len_3)" " #f" "(not file-end-ok?_0)" @@ -3366,13 +3430,13 @@ static const char *startup_source = " #f)))))))))))" "(define-values" "(planet-user/pkg-string?)" -"(lambda(v_37)" +"(lambda(v_39)" "(begin" -"(if(string? v_37)" -"(let-values(((len_4)(string-length v_37)))" +"(if(string? v_39)" +"(let-values(((len_4)(string-length v_39)))" "(if(positive? len_4)" "(let-values(((vec_11 len_5)" -"(let-values(((vec_12) v_37))" +"(let-values(((vec_12) v_39))" "(begin(check-string vec_12)(values vec_12(unsafe-string-length vec_12)))))" "((start_6) 0))" "(begin" @@ -3401,7 +3465,7 @@ static const char *startup_source = " or-part_39" "(if(char=? '#\\% c_7)" "(if(< i_31(- len_4 2))" -"(hex-sequence? v_37(add1 i_31))" +"(hex-sequence? v_39(add1 i_31))" " #f)" " #f)))))))))" "(values result_9)))))" @@ -3462,10 +3526,10 @@ static const char *startup_source = "(let-values()(-(char->integer c_11)(char->integer '#\\0))))))))" "(define-values" "(check-planet-part)" -"(lambda(v_38 len_6)" +"(lambda(v_40 len_6)" "(begin" "(let-values(((start-package-version-pos_1 end-package-version-pos_1 colon1-pos_0 colon2-pos_0)" -"((letrec-values(((loop_57)" +"((letrec-values(((loop_59)" "(lambda(j_2" " start-package-version-pos_2" " end-package-version-pos_2" @@ -3482,10 +3546,10 @@ static const char *startup_source = " colon1-pos_1" " colon2-pos_1))" "(let-values()" -"(let-values(((tmp_7)(string-ref v_38 j_2)))" +"(let-values(((tmp_7)(string-ref v_40 j_2)))" "(if(equal? tmp_7 '#\\/)" "(let-values()" -"(loop_57" +"(loop_59" "(add1 j_2)" "(let-values(((or-part_47) start-package-version-pos_2))" "(if or-part_47 or-part_47(add1 j_2)))" @@ -3501,27 +3565,27 @@ static const char *startup_source = "(let-values()(values #f #f #f #f))" "(if colon1-pos_1" "(let-values()" -"(loop_57" +"(loop_59" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " j_2))" "(let-values()" -"(loop_57" +"(loop_59" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " j_2" " #f)))))" "(let-values()" -"(loop_57" +"(loop_59" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " colon2-pos_1)))))))))))" -" loop_57)" +" loop_59)" " 0" " #f" " #f" @@ -3539,24 +3603,24 @@ static const char *startup_source = "(let-values(((colon1-end_0)" "(let-values(((or-part_50) colon2-pos_0))" "(if or-part_50 or-part_50 end-package-version-pos_1))))" -"(if(if(integer-sequence? v_38(add1 colon1-pos_0) colon1-end_0)" +"(if(if(integer-sequence? v_40(add1 colon1-pos_0) colon1-end_0)" "(let-values(((or-part_51)(not colon2-pos_0)))" "(if or-part_51" " or-part_51" -"(let-values(((tmp_8)(string-ref v_38(add1 colon2-pos_0))))" +"(let-values(((tmp_8)(string-ref v_40(add1 colon2-pos_0))))" "(if(equal? tmp_8 '#\\=)" -"(let-values()(integer-sequence? v_38(+ 2 colon2-pos_0) end-package-version-pos_1))" +"(let-values()(integer-sequence? v_40(+ 2 colon2-pos_0) end-package-version-pos_1))" "(if(if(equal? tmp_8 '#\\>) #t(equal? tmp_8 '#\\<))" "(let-values()" "(if(if(<(+ 2 colon2-pos_0) end-package-version-pos_1)" -"(char=? '#\\=(string-ref v_38(+ colon2-pos_0 2)))" +"(char=? '#\\=(string-ref v_40(+ colon2-pos_0 2)))" " #f)" "(let-values()" -"(integer-sequence? v_38(+ 3 colon2-pos_0) end-package-version-pos_1))" +"(integer-sequence? v_40(+ 3 colon2-pos_0) end-package-version-pos_1))" "(let-values()" -"(integer-sequence? v_38(+ 2 colon2-pos_0) end-package-version-pos_1))))" +"(integer-sequence? v_40(+ 2 colon2-pos_0) end-package-version-pos_1))))" "(let-values()" -"(integer-range-sequence? v_38(add1 colon2-pos_0) end-package-version-pos_1)))))))" +"(integer-range-sequence? v_40(add1 colon2-pos_0) end-package-version-pos_1)))))))" " #f)" "(let-values()(values colon1-pos_0 end-package-version-pos_1))" "(let-values()(values #f #f)))))" @@ -3705,11 +3769,11 @@ static const char *startup_source = "(define-values(make-weak-intern-table)(lambda()(begin(weak-intern-table1.1(box(table2.1(hasheqv) 0 128))))))" "(define-values" "(weak-intern!)" -"(lambda(tt_0 v_39)" +"(lambda(tt_0 v_41)" "(begin" "(let-values(((b_8)(weak-intern-table-box tt_0)))" "(let-values(((t_11)(unbox b_8)))" -"(let-values(((code_0)(equal-hash-code v_39)))" +"(let-values(((code_0)(equal-hash-code v_41)))" "(let-values(((vals_0)(hash-ref(table-ht t_11) code_0 null)))" "(let-values(((or-part_31)" "(let-values(((lst_19) vals_0))" @@ -3732,7 +3796,7 @@ static const char *startup_source = "(let-values(((bv_0)" "(weak-box-value" " b_9)))" -"(if(equal? bv_0 v_39)" +"(if(equal? bv_0 v_41)" " bv_0" " #f))))))" "(values result_21)))))" @@ -3749,11 +3813,11 @@ static const char *startup_source = "(let-values(((ht_21)(table-ht pruned-t_0)))" "(let-values(((new-t_0)" "(table2.1" -"(hash-set ht_21 code_0(cons(make-weak-box v_39)(hash-ref ht_21 code_0 null)))" +"(hash-set ht_21 code_0(cons(make-weak-box v_41)(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_11 new-t_0) v_39 #f)))" -"(if or-part_33 or-part_33(weak-intern! tt_0 v_39)))))))))))))))" +"(let-values(((or-part_33)(if(box-cas! b_8 t_11 new-t_0) v_41 #f)))" +"(if or-part_33 or-part_33(weak-intern! tt_0 v_41)))))))))))))))" "(define-values" "(prune-table)" "(lambda(t_12)" @@ -3915,10 +3979,10 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_22 b_11 eql?_0)" -"(eql?_0(1/resolved-module-path-name a_22)(1/resolved-module-path-name b_11)))" -"(lambda(a_23 hash-code_0)(hash-code_0(1/resolved-module-path-name a_23)))" -"(lambda(a_24 hash-code_1)(hash-code_1(1/resolved-module-path-name a_24))))))" +"(lambda(a_23 b_11 eql?_0)" +"(eql?_0(1/resolved-module-path-name a_23)(1/resolved-module-path-name b_11)))" +"(lambda(a_24 hash-code_0)(hash-code_0(1/resolved-module-path-name a_24)))" +"(lambda(a_25 hash-code_1)(hash-code_1(1/resolved-module-path-name a_25))))))" "(current-inspector)" " #f" " '(0)" @@ -3927,16 +3991,16 @@ static const char *startup_source = "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'name))))" "(define-values" "(format-resolved-module-path-name)" -"(lambda(p_3)" +"(lambda(p_4)" "(begin" -"(if(path? p_3)" -" (let-values () (string-append \"\\\"\" (path->string p_3) \"\\\"\"))" -"(if(symbol? p_3)" -"(let-values()(format-symbol p_3))" -"(let-values()(format-submod(format-resolved-module-path-name(car p_3))(cdr p_3))))))))" +"(if(path? p_4)" +" (let-values () (string-append \"\\\"\" (path->string p_4) \"\\\"\"))" +"(if(symbol? p_4)" +"(let-values()(format-symbol p_4))" +"(let-values()(format-submod(format-resolved-module-path-name(car p_4))(cdr p_4))))))))" "(define-values" "(format-symbol)" -" (lambda (p_4) (begin (format \"'~s~a\" p_4 (if (symbol-interned? p_4) \"\" (format \"[~a]\" (eq-hash-code p_4)))))))" +" (lambda (p_5) (begin (format \"'~s~a\" p_5 (if (symbol-interned? p_5) \"\" (format \"[~a]\" (eq-hash-code p_5)))))))" "(define-values" "(format-submod)" "(lambda(base_5 syms_0)" @@ -3976,22 +4040,22 @@ static const char *startup_source = "(define-values(resolved-module-paths)(make-weak-intern-table))" "(define-values" "(1/make-resolved-module-path)" -"(lambda(p_5)" +"(lambda(p_6)" "(begin" " 'make-resolved-module-path" "(begin" -"(if(let-values(((or-part_53)(symbol? p_5)))" +"(if(let-values(((or-part_53)(symbol? p_6)))" "(if or-part_53" " or-part_53" -"(let-values(((or-part_54)(if(path? p_5)(complete-path? p_5) #f)))" +"(let-values(((or-part_54)(if(path? p_6)(complete-path? p_6) #f)))" "(if or-part_54" " or-part_54" -"(if(pair? p_5)" -"(if(pair?(cdr p_5))" -"(if(list? p_5)" -"(if(let-values(((or-part_7)(symbol?(car p_5))))" -"(if or-part_7 or-part_7(if(path?(car p_5))(complete-path?(car p_5)) #f)))" -"(let-values(((lst_24)(cdr p_5)))" +"(if(pair? p_6)" +"(if(pair?(cdr p_6))" +"(if(list? p_6)" +"(if(let-values(((or-part_7)(symbol?(car p_6))))" +"(if or-part_7 or-part_7(if(path?(car p_6))(complete-path?(car p_6)) #f)))" +"(let-values(((lst_24)(cdr p_6)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -4033,8 +4097,8 @@ static const char *startup_source = " \" (cons/c (or/c symbol?\\n\"" " \" (and/c path? complete-path?))\\n\"" " \" (non-empty-listof symbol?)))\")" -" p_5)))" -"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_5))))))" +" p_6)))" +"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_6))))))" "(define-values" "(resolved-module-path->module-path)" "(lambda(r_11)" @@ -4074,7 +4138,7 @@ static const char *startup_source = "(if(module-path-index-path r_12)" "(let-values()" "(let-values(((l_44)" -"((letrec-values(((loop_58)" +"((letrec-values(((loop_60)" "(lambda(r_13)" "(begin" " 'loop" @@ -4085,41 +4149,41 @@ static const char *startup_source = "(if(module-path-index-path r_13)" "(let-values()" "(cons" -"((letrec-values(((loop_59)" -"(lambda(v_40)" +"((letrec-values(((loop_61)" +"(lambda(v_42)" "(begin" " 'loop" -"(if(if(pair? v_40)" +"(if(if(pair? v_42)" "(if(eq?" " 'quote" "(car" -" v_40))" +" v_42))" "(null?" "(cddr" -" v_40))" +" v_42))" " #f)" " #f)" "(let-values()" "(format-symbol" -"(cadr v_40)))" +"(cadr v_42)))" "(if(if(pair?" -" v_40)" +" v_42)" "(eq?" " 'submod" -"(car v_40))" +"(car v_42))" " #f)" "(let-values()" "(format-submod" -"(loop_59" -"(cadr v_40))" -"(cddr v_40)))" +"(loop_61" +"(cadr v_42))" +"(cddr v_42)))" "(let-values()" "(format" " \"~.s\"" -" v_40))))))))" -" loop_59)" +" v_42))))))))" +" loop_61)" "(module-path-index-path r_13))" -"(loop_58(module-path-index-base r_13))))" +"(loop_60(module-path-index-base r_13))))" "(if(module-path-index-resolved r_13)" "(let-values()" "(list" @@ -4128,7 +4192,7 @@ static const char *startup_source = " \"~a\"" "(module-path-index-resolved r_13))))" "(let-values() null)))))))))" -" loop_58)" +" loop_60)" " r_12)))" "(fprintf" " port_1" @@ -4175,16 +4239,16 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_25 b_12 eql?_1)" -"(if(eql?_1(module-path-index-path a_25)(module-path-index-path b_12))" -"(eql?_1(module-path-index-base a_25)(module-path-index-base b_12))" +"(lambda(a_26 b_12 eql?_1)" +"(if(eql?_1(module-path-index-path a_26)(module-path-index-path b_12))" +"(eql?_1(module-path-index-base a_26)(module-path-index-base b_12))" " #f))" -"(lambda(a_26 hash-code_2)" -"(+(hash-code_2(module-path-index-path a_26))(hash-code_2(module-path-index-base a_26))))" -"(lambda(a_27 hash-code_3)" +"(lambda(a_27 hash-code_2)" +"(+(hash-code_2(module-path-index-path a_27))(hash-code_2(module-path-index-base a_27))))" +"(lambda(a_28 hash-code_3)" "(+" -"(hash-code_3(module-path-index-path a_27))" -"(hash-code_3(module-path-index-base a_27)))))))" +"(hash-code_3(module-path-index-path a_28))" +"(hash-code_3(module-path-index-base a_28)))))))" "(current-inspector)" " #f" " '(0 1)" @@ -4323,7 +4387,7 @@ static const char *startup_source = "(1/make-resolved-module-path(cons generic-module-name submod_0))))" "(let-values()" "(let-values(((keep-base_0)" -"((letrec-values(((loop_60)" +"((letrec-values(((loop_62)" "(lambda(mod-path_1)" "(begin" " 'loop" @@ -4339,9 +4403,9 @@ static const char *startup_source = "(eq? 'submod(car mod-path_1))" " #f)" "(let-values()" -"(loop_60(cadr mod-path_1)))" +"(loop_62(cadr mod-path_1)))" "(let-values() base_8)))))))))" -" loop_60)" +" loop_62)" " mod-path_0)))" "(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))))" "(case-lambda" @@ -4376,7 +4440,7 @@ static const char *startup_source = " (let-values () (raise-argument-error 'module-path-index-submodule \"module-path-index?\" mpi_5)))" "(if(not(module-path-index-path mpi_5))" "(let-values(((r_14)(module-path-index-resolved mpi_5)))" -"(if r_14(let-values(((p_6)(1/resolved-module-path-name r_14)))(if(pair? p_6)(cdr p_6) #f)) #f))" +"(if r_14(let-values(((p_7)(1/resolved-module-path-name r_14)))(if(pair? p_7)(cdr p_7) #f)) #f))" " #f)))))))" "(define-values" "(make-self-module-path-index)" @@ -4456,15 +4520,15 @@ static const char *startup_source = "(begin(set-module-path-index-shift-cache! mpi_9 cache_1) cache_1)))))))" "(define-values" "(shift-cache-ref)" -"(lambda(cache_2 v_41)" +"(lambda(cache_2 v_43)" "(begin" -"(if cache_2(let-values(((b_13)(weak-box-value cache_2)))(if b_13(hash-ref(unbox b_13) v_41 #f) #f)) #f))))" +"(if cache_2(let-values(((b_13)(weak-box-value cache_2)))(if b_13(hash-ref(unbox b_13) v_43 #f) #f)) #f))))" "(define-values" "(shift-cache-set!)" -"(lambda(cache_3 v_42 r_18)" +"(lambda(cache_3 v_44 r_18)" "(begin" "(let-values(((b_14)(weak-box-value cache_3)))" -"(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_42 r_18)))(void))))))" +"(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_44 r_18)))(void))))))" "(define-values(top-level-module-path-index)(make-self-module-path-index(1/make-resolved-module-path 'top-level)))" "(define-values(top-level-module-path-index?)(lambda(mpi_10)(begin(eq? top-level-module-path-index mpi_10))))" "(define-values(non-self-module-path-index?)(lambda(mpi_11)(begin(if(module-path-index-path mpi_11) #t #f))))" @@ -4472,20 +4536,20 @@ static const char *startup_source = "(core-module-name-resolver)" "(case-lambda" "((name_12 from-namespace_0)(begin(void)))" -"((p_7 enclosing_1 source-stx-stx_0 load?_2)" +"((p_8 enclosing_1 source-stx-stx_0 load?_2)" "(begin" -"(if(1/module-path? p_7)" +"(if(1/module-path? p_8)" "(void)" -" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_7)))" +" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_8)))" "(if(let-values(((or-part_52)(not enclosing_1)))" "(if or-part_52 or-part_52(1/resolved-module-path? enclosing_1)))" "(void)" " (let-values () (raise-argument-error 'core-module-name-resolver \"resolved-module-path?\" enclosing_1)))" -"(if(if(list? p_7)(if(=(length p_7) 2)(if(eq? 'quote(car p_7))(symbol?(cadr p_7)) #f) #f) #f)" -"(let-values()(1/make-resolved-module-path(cadr p_7)))" -" (if (if (list? p_7) (if (eq? 'submod (car p_7)) (equal? \"..\" (cadr p_7)) #f) #f)" +"(if(if(list? p_8)(if(=(length p_8) 2)(if(eq? 'quote(car p_8))(symbol?(cadr p_8)) #f) #f) #f)" +"(let-values()(1/make-resolved-module-path(cadr p_8)))" +" (if (if (list? p_8) (if (eq? 'submod (car p_8)) (equal? \"..\" (cadr p_8)) #f) #f)" "(let-values()" -"(let-values(((lst_28)(cdr p_7)))" +"(let-values(((lst_28)(cdr p_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_28)))" "((letrec-values(((for-loop_23)" @@ -4500,7 +4564,7 @@ static const char *startup_source = "(let-values()" "(let-values(((s27_0) s_36)" "((enclosing28_0) enclosing_4)" -"((p29_0) p_7))" +"((p29_0) p_8))" "(build-module-name16.1" " p29_0" " s27_0" @@ -4511,9 +4575,9 @@ static const char *startup_source = " for-loop_23)" " enclosing_1" " lst_28))))" -" (if (if (list? p_7) (if (eq? 'submod (car p_7)) (equal? \".\" (cadr p_7)) #f) #f)" +" (if (if (list? p_8) (if (eq? 'submod (car p_8)) (equal? \".\" (cadr p_8)) #f) #f)" "(let-values()" -"(let-values(((lst_30)(cddr p_7)))" +"(let-values(((lst_30)(cddr p_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -4530,7 +4594,7 @@ static const char *startup_source = "(let-values()" "(let-values(((s30_0) s_37)" "((enclosing31_0) enclosing_8)" -"((p32_0) p_7))" +"((p32_0) p_8))" "(build-module-name16.1" " p32_0" " s30_0" @@ -4541,10 +4605,10 @@ static const char *startup_source = " for-loop_24)" " enclosing_1" " lst_30))))" -"(if(if(list? p_7)(eq? 'submod(car p_7)) #f)" +"(if(if(list? p_8)(eq? 'submod(car p_8)) #f)" "(let-values()" -"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_7) enclosing_1 #f #f)))" -"(let-values(((lst_32)(cddr p_7)))" +"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_8) enclosing_1 #f #f)))" +"(let-values(((lst_32)(cddr p_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -4562,7 +4626,7 @@ static const char *startup_source = "(let-values(((s33_0) s_38)" "((enclosing34_0)" " enclosing_12)" -"((p35_0) p_7))" +"((p35_0) p_8))" "(build-module-name16.1" " p35_0" " s33_0" @@ -4573,7 +4637,7 @@ static const char *startup_source = " for-loop_25)" " base_13" " lst_32)))))" -" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_7))))))))))" +" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_8))))))))))" "(define-values" "(build-module-name16.1)" "(lambda(original12_0 name14_0 enclosing15_0)" @@ -4601,16 +4665,16 @@ static const char *startup_source = "(1/current-module-name-resolver)" "(make-parameter" " core-module-name-resolver" -"(lambda(v_43)" +"(lambda(v_45)" "(begin" -"(if(if(procedure? v_43)(if(procedure-arity-includes? v_43 2)(procedure-arity-includes? v_43 4) #f) #f)" +"(if(if(procedure? v_45)(if(procedure-arity-includes? v_45 2)(procedure-arity-includes? v_45 4) #f) #f)" "(void)" "(let-values()" "(raise-argument-error" " 'current-module-name-resolver" " \"(and/c (procedure-arity-includes/c 2) (procedure-arity-includes/c 4))\"" -" v_43)))" -" v_43))))" +" v_45)))" +" v_45))))" "(define-values" "(1/current-module-declare-name)" "(make-parameter" @@ -4651,69 +4715,69 @@ static const char *startup_source = "(force/composable)" "(lambda(root_1)" "(begin" -"(let-values(((v_44)(unsafe-struct-ref root_1 0)))" -"(if(procedure? v_44)" +"(let-values(((v_46)(unsafe-struct-ref root_1 0)))" +"(if(procedure? v_46)" "(let-values()" "(begin" -"(unsafe-struct-set! root_1 0(make-running(object-name v_44)))" +"(unsafe-struct-set! root_1 0(make-running(object-name v_46)))" "(call-with-exception-handler" "(lambda(e_5)(begin(unsafe-struct-set! root_1 0(make-reraise e_5)) e_5))" "(lambda()" -"((letrec-values(((loop_61)" -"(lambda(v_45)" +"((letrec-values(((loop_63)" +"(lambda(v_47)" "(begin" " 'loop" -"(if(composable-promise? v_45)" +"(if(composable-promise? v_47)" "(let-values()" -"(let-values(((v*_0)(unsafe-struct-ref v_45 0)))" +"(let-values(((v*_0)(unsafe-struct-ref v_47 0)))" "(begin" -"(unsafe-struct-set! v_45 0 root_1)" +"(unsafe-struct-set! v_47 0 root_1)" "(if(procedure? v*_0)" -"(let-values()(loop_61(v*_0)))" +"(let-values()(loop_63(v*_0)))" "(if(pair? v*_0)" "(let-values()" "(begin(unsafe-struct-set! root_1 0 v*_0)(unsafe-car v*_0)))" -"(let-values()(loop_61 v*_0)))))))" -"(if(promise? v_45)" -"(let-values()(begin(unsafe-struct-set! root_1 0 v_45)(force v_45)))" -"(let-values()(begin(unsafe-struct-set! root_1 0(list v_45)) v_45))))))))" -" loop_61)" -"(v_44))))))" -"(if(pair? v_44)" -"(let-values()(if(null?(unsafe-cdr v_44))(unsafe-car v_44)(apply values v_44)))" -"(if(composable-promise? v_44)" -"(let-values()(force/composable v_44))" -"(if(null? v_44)" -"(let-values()(values))" -"(if(promise? v_44)" -"(let-values()(force v_44))" -" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_44)))))))))))" -"(define-values" -"(reify-result)" -"(lambda(v_46)" -"(begin" +"(let-values()(loop_63 v*_0)))))))" +"(if(promise? v_47)" +"(let-values()(begin(unsafe-struct-set! root_1 0 v_47)(force v_47)))" +"(let-values()(begin(unsafe-struct-set! root_1 0(list v_47)) v_47))))))))" +" loop_63)" +"(v_46))))))" "(if(pair? v_46)" "(let-values()(if(null?(unsafe-cdr v_46))(unsafe-car v_46)(apply values v_46)))" +"(if(composable-promise? v_46)" +"(let-values()(force/composable v_46))" "(if(null? v_46)" "(let-values()(values))" -"(if(reraise? v_46)" -"(let-values()(v_46))" -" (let-values () (error 'force \"promise with invalid contents: ~e\" v_46))))))))" +"(if(promise? v_46)" +"(let-values()(force v_46))" +" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_46)))))))))))" +"(define-values" +"(reify-result)" +"(lambda(v_48)" +"(begin" +"(if(pair? v_48)" +"(let-values()(if(null?(unsafe-cdr v_48))(unsafe-car v_48)(apply values v_48)))" +"(if(null? v_48)" +"(let-values()(values))" +"(if(reraise? v_48)" +"(let-values()(v_48))" +" (let-values () (error 'force \"promise with invalid contents: ~e\" v_48))))))))" "(define-values" "(force/generic)" "(lambda(promise_0)" "(begin" "(reify-result" -"(let-values(((v_47)(unsafe-struct-ref promise_0 0)))" -"(if(procedure? v_47)" +"(let-values(((v_49)(unsafe-struct-ref promise_0 0)))" +"(if(procedure? v_49)" "(begin" -"(unsafe-struct-set! promise_0 0(make-running(object-name v_47)))" +"(unsafe-struct-set! promise_0 0(make-running(object-name v_49)))" "(call-with-exception-handler" "(lambda(e_10)(begin(unsafe-struct-set! promise_0 0(make-reraise e_10)) e_10))" "(lambda()" -"(let-values(((vs_0)(call-with-values v_47 list)))" +"(let-values(((vs_0)(call-with-values v_49 list)))" "(begin(unsafe-struct-set! promise_0 0 vs_0) vs_0)))))" -" v_47))))))" +" v_49))))))" "(define-values" "(force)" "(lambda(promise_1)(begin(if(promise? promise_1)((promise-forcer promise_1) promise_1) promise_1))))" @@ -4721,57 +4785,57 @@ static const char *startup_source = "(promise-printer)" "(lambda(promise_2 port_2 write?_0)" "(begin" -"((letrec-values(((loop_62)" -"(lambda(v_48)" +"((letrec-values(((loop_64)" +"(lambda(v_50)" "(begin" " 'loop" -"(if(reraise? v_48)" +"(if(reraise? v_50)" "(let-values()" -"(let-values(((r_20)(reraise-val v_48)))" +"(let-values(((r_20)(reraise-val v_50)))" "(if(exn? r_20)" "(fprintf" " port_2" " (if write?_0 \"#\" \"#\")" "(exn-message r_20))" " (fprintf port_2 (if write?_0 \"#\" \"#\") r_20))))" -"(if(running? v_48)" +"(if(running? v_50)" "(let-values()" -"(let-values(((r_21)(running-name v_48)))" +"(let-values(((r_21)(running-name v_50)))" "(if r_21" " (fprintf port_2 \"#\" r_21)" " (fprintf port_2 \"#\"))))" -"(if(procedure? v_48)" +"(if(procedure? v_50)" "(let-values()" -"(let-values(((c1_18)(object-name v_48)))" +"(let-values(((c1_18)(object-name v_50)))" "(if c1_18" " ((lambda (n_19) (fprintf port_2 \"#\" n_19)) c1_18)" " (let-values () (display \"#\" port_2)))))" -"(if(promise? v_48)" -"(let-values()(loop_62(unsafe-struct-ref v_48 0)))" -"(if(null? v_48)" +"(if(promise? v_50)" +"(let-values()(loop_64(unsafe-struct-ref v_50 0)))" +"(if(null? v_50)" " (let-values () (fprintf port_2 \"#\"))" -"(if(null?(cdr v_48))" +"(if(null?(cdr v_50))" "(let-values()" -" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_48)))" +" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_50)))" "(let-values()" "(begin" " (display \"#\" port_2)))))))))))))" -" loop_62)" +" loop_64)" "(unsafe-struct-ref promise_2 0)))))" "(define-values" "(prop:force promise-forcer)" "(let-values(((prop_0 pred?_0 get_0)" "(make-struct-type-property" " 'forcer" -"(lambda(v_49 info_0)" +"(lambda(v_51 info_0)" "(begin" -"(if(if(procedure? v_49)(procedure-arity-includes? v_49 1) #f)" +"(if(if(procedure? v_51)(procedure-arity-includes? v_51 1) #f)" "(void)" -" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_49)))" -" v_49))" +" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_51)))" +" v_51))" " null" " #t)))" "(values prop_0 get_0)))" @@ -4875,7 +4939,7 @@ static const char *startup_source = " 0" " 0" " #f" -"(list(cons prop:force(lambda(p_8)((unsafe-struct-ref p_8 0)))))" +"(list(cons prop:force(lambda(p_9)((unsafe-struct-ref p_9 0)))))" "(current-inspector)" " #f" " '()" @@ -4893,7 +4957,7 @@ static const char *startup_source = " 0" " 0" " #f" -"(list(cons prop:force(lambda(p_9)(reify-result(unsafe-struct-ref p_9 0)))))" +"(list(cons prop:force(lambda(p_10)(reify-result(unsafe-struct-ref p_10 0)))))" "(current-inspector)" " #f" " '()" @@ -4965,56 +5029,56 @@ static const char *startup_source = "(list" "(cons" " prop:evt" -"(lambda(p_10)" -"(let-values(((v_50)(unsafe-struct-ref p_10 0)))" -"(wrap-evt(if(syncinfo? v_50)(syncinfo-done-evt v_50) always-evt) void))))" +"(lambda(p_11)" +"(let-values(((v_52)(unsafe-struct-ref p_11 0)))" +"(wrap-evt(if(syncinfo? v_52)(syncinfo-done-evt v_52) always-evt) void))))" "(cons" " prop:force" -"(lambda(p_11)" -"(let-values(((v_51)(unsafe-struct-ref p_11 0)))" +"(lambda(p_12)" +"(let-values(((v_53)(unsafe-struct-ref p_12 0)))" "(reify-result" -"(if(not(syncinfo? v_51))" -"(let-values() v_51)" -"(if(running-thread?(syncinfo-thunk v_51))" +"(if(not(syncinfo? v_53))" +"(let-values() v_53)" +"(if(running-thread?(syncinfo-thunk v_53))" "(let-values()" -"(let-values(((r_22)(syncinfo-thunk v_51)))" +"(let-values(((r_22)(syncinfo-thunk v_53)))" "(if(eq?(running-thread-thread r_22)(current-thread))" "(r_22)" -"(begin(sync(syncinfo-done-evt v_51))(unsafe-struct-ref p_11 0)))))" +"(begin(sync(syncinfo-done-evt v_53))(unsafe-struct-ref p_12 0)))))" "(let-values()" "(begin" "(call-with-semaphore" -"(syncinfo-access-sema v_51)" -"(lambda(p_12 v_52)" -"(let-values(((thunk_4)(syncinfo-thunk v_52)))" -"(let-values(((done_0)(syncinfo-done-sema v_52)))" +"(syncinfo-access-sema v_53)" +"(lambda(p_13 v_54)" +"(let-values(((thunk_4)(syncinfo-thunk v_54)))" +"(let-values(((done_0)(syncinfo-done-sema v_54)))" "(if(running-thread? thunk_4)" "(void)" "(let-values()" "(begin" "(set-syncinfo-thunk!" -" v_52" +" v_54" "(make-running-thread(object-name thunk_4)(current-thread)))" "(call-with-exception-handler" "(lambda(e_11)" "(begin" -"(unsafe-struct-set! p_12 0(make-reraise e_11))" +"(unsafe-struct-set! p_13 0(make-reraise e_11))" "(semaphore-post done_0)" " e_11))" "(lambda()" "(begin" -"(unsafe-struct-set! p_12 0(call-with-values thunk_4 list))" +"(unsafe-struct-set! p_13 0(call-with-values thunk_4 list))" "(semaphore-post done_0))))))))))" " #f" -" p_11" -" v_51)" -"(unsafe-struct-ref p_11 0)))))))))" +" p_12" +" v_53)" +"(unsafe-struct-ref p_12 0)))))))))" "(cons" " prop:custom-write" -"(lambda(p_13 port_4 write?_2)" -"(let-values(((v_53)(unsafe-struct-ref p_13 0)))" +"(lambda(p_14 port_4 write?_2)" +"(let-values(((v_55)(unsafe-struct-ref p_14 0)))" "(promise-printer" -"(if(syncinfo? v_53)(make-promise(syncinfo-thunk v_53)) p_13)" +"(if(syncinfo? v_55)(make-promise(syncinfo-thunk v_55)) p_14)" " port_4" " write?_2)))))" "(current-inspector)" @@ -5037,26 +5101,26 @@ static const char *startup_source = "(list" "(cons" " prop:evt" -"(lambda(p_14)" -"(let-values(((v_54)(unsafe-struct-ref p_14 0)))" -"(wrap-evt(if(running? v_54)(running-thread-thread v_54) always-evt) void))))" +"(lambda(p_15)" +"(let-values(((v_56)(unsafe-struct-ref p_15 0)))" +"(wrap-evt(if(running? v_56)(running-thread-thread v_56) always-evt) void))))" "(cons" " prop:force" -"(lambda(p_15)" -"(let-values(((v_55)(unsafe-struct-ref p_15 0)))" +"(lambda(p_16)" +"(let-values(((v_57)(unsafe-struct-ref p_16 0)))" "(reify-result" -"(if(running-thread? v_55)" -"(let-values(((t_13)(running-thread-thread v_55)))" +"(if(running-thread? v_57)" +"(let-values(((t_13)(running-thread-thread v_57)))" "(let-values((()(begin(thread-wait t_13)(values))))" -"(let-values(((v_56)(unsafe-struct-ref p_15 0)))" -"(if(running-thread? v_56)" +"(let-values(((v_58)(unsafe-struct-ref p_16 0)))" +"(if(running-thread? v_58)" "(error" " 'force" " \"promise's thread terminated ~a\\n promise: ~e\"" " \"without result or exception\"" -" p_15)" -" v_56))))" -" v_55))))))" +" p_16)" +" v_58))))" +" v_57))))))" "(current-inspector)" " #f" " '()" @@ -5077,17 +5141,17 @@ static const char *startup_source = "(list" "(cons" " prop:force" -"(lambda(p_16)" -"(let-values(((v_57)(unsafe-struct-ref p_16 0)))" +"(lambda(p_17)" +"(let-values(((v_59)(unsafe-struct-ref p_17 0)))" "(reify-result" -"(if(procedure? v_57)" +"(if(procedure? v_59)" "(let-values(((controller_0)" -"(if(running-thread? v_57)(running-thread-thread v_57)(v_57))))" +"(if(running-thread? v_59)(running-thread-thread v_59)(v_59))))" "(begin" "(thread-send controller_0 'force!)" "(thread-wait controller_0)" -"(unsafe-struct-ref p_16 0)))" -" v_57))))))" +"(unsafe-struct-ref p_17 0)))" +" v_59))))))" "(current-inspector)" " #f" " '()" @@ -5096,15 +5160,15 @@ static const char *startup_source = "(values struct:_13 make-_13 ?_13)))" "(define-values" "(phase?)" -"(lambda(v_26)(begin(let-values(((or-part_0)(not v_26)))(if or-part_0 or-part_0(exact-integer? v_26))))))" -"(define-values(phase+)(lambda(a_1 b_15)(begin(if a_1(if b_15(+ a_1 b_15) #f) #f))))" -"(define-values(phase-)(lambda(a_28 b_16)(begin(if a_28(if b_16(- a_28 b_16) #f) #f))))" +"(lambda(v_28)(begin(let-values(((or-part_0)(not v_28)))(if or-part_0 or-part_0(exact-integer? v_28))))))" +"(define-values(phase+)(lambda(a_2 b_15)(begin(if a_2(if b_15(+ a_2 b_15) #f) #f))))" +"(define-values(phase-)(lambda(a_29 b_16)(begin(if a_29(if b_16(- a_29 b_16) #f) #f))))" "(define-values" "(phases_0)(lambda(s_52 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" -"((letrec-values(((loop_57)" +"((letrec-values(((loop_59)" "(lambda(s_53)" "(begin" " 'loop" "(let-values(((s_54) s_53)" "((f_24) f_23)" "((gf_1)" -"(lambda(tail?_7 v_75)" +"(lambda(tail?_7 v_77)" "(begin" " 'gf" -"(if(syntax?$1 v_75)" -"(let-values()(d->s_0 v_75(loop_57(s-e_0 v_75))))" -"(let-values()(f_23 tail?_7 v_75))))))" +"(if(syntax?$1 v_77)" +"(let-values()(d->s_0 v_77(loop_59(s-e_0 v_77))))" +"(let-values()(f_23 tail?_7 v_77))))))" "((seen_4) seen_3))" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_67)" "(lambda(tail?_8 s_55 prev-depth_1)" "(begin" " 'loop" @@ -6087,24 +6151,24 @@ static const char *startup_source = "(f_24" " tail?_8" "(cons" -"(loop_65 #f(car s_55) depth_1)" -"(loop_65 #t(cdr s_55) depth_1))))" +"(loop_67 #f(car s_55) depth_1)" +"(loop_67 #t(cdr s_55) depth_1))))" "(if(symbol? s_55)" "(let-values()(f_24 #f s_55))" "(if(boolean? s_55)" "(let-values()(f_24 #f s_55))" "(if(number? s_55)" "(let-values()(f_24 #f s_55))" -"(if(let-values(((or-part_85)(vector? s_55)))" +"(if(let-values(((or-part_84)(vector? s_55)))" +"(if or-part_84" +" or-part_84" +"(let-values(((or-part_85)(box? s_55)))" "(if or-part_85" " or-part_85" -"(let-values(((or-part_86)(box? s_55)))" +"(let-values(((or-part_86)" +"(prefab-struct-key s_55)))" "(if or-part_86" " or-part_86" -"(let-values(((or-part_87)" -"(prefab-struct-key s_55)))" -"(if or-part_87" -" or-part_87" "(hash? s_55)))))))" "(let-values()" "(datum-map-slow" @@ -6113,11 +6177,11 @@ static const char *startup_source = "(lambda(tail?_10 s_57)(gf_1 tail?_10 s_57))" " seen_4))" "(let-values()(gf_1 #f s_55))))))))))))))" -" loop_65)" +" loop_67)" " #f" " s_54" " 0))))))" -" loop_57)" +" loop_59)" " s_51)))))" "(define-values" "(datum->syntax$1)" @@ -6162,14 +6226,14 @@ static const char *startup_source = "(let-values(((s_61) s_59)" "((f_26) f_25)" "((gf_2)" -"(lambda(tail?_12 v_76)" +"(lambda(tail?_12 v_78)" "(begin" " 'gf" -"(if(syntax?$1 v_76)" -"(let-values()(s->_0 v_76))" -"(let-values()(f_25 tail?_12 v_76))))))" +"(if(syntax?$1 v_78)" +"(let-values()(s->_0 v_78))" +"(let-values()(f_25 tail?_12 v_78))))))" "((seen_6) seen_5))" -"((letrec-values(((loop_66)" +"((letrec-values(((loop_68)" "(lambda(tail?_13 s_62 prev-depth_2)" "(begin" " 'loop" @@ -6190,8 +6254,8 @@ static const char *startup_source = "(f_26" " tail?_13" "(cons" -"(loop_66 #f(car s_62) depth_2)" -"(loop_66" +"(loop_68 #f(car s_62) depth_2)" +"(loop_68" " #t" "(cdr s_62)" " depth_2))))" @@ -6201,21 +6265,21 @@ static const char *startup_source = "(let-values()(f_26 #f s_62))" "(if(number? s_62)" "(let-values()(f_26 #f s_62))" -"(if(let-values(((or-part_88)" +"(if(let-values(((or-part_87)" "(vector?" " s_62)))" +"(if or-part_87" +" or-part_87" +"(let-values(((or-part_88)" +"(box?" +" s_62)))" "(if or-part_88" " or-part_88" "(let-values(((or-part_89)" -"(box?" +"(prefab-struct-key" " s_62)))" "(if or-part_89" " or-part_89" -"(let-values(((or-part_90)" -"(prefab-struct-key" -" s_62)))" -"(if or-part_90" -" or-part_90" "(hash?" " s_62)))))))" "(let-values()" @@ -6229,7 +6293,7 @@ static const char *startup_source = "(gf_2" " #f" " s_62))))))))))))))" -" loop_66)" +" loop_68)" " #f" " s_61" " 0)))))" @@ -6283,16 +6347,16 @@ static const char *startup_source = "(begin" "(if(pair? content_2)" "(let-values()" -"((letrec-values(((loop_67)" +"((letrec-values(((loop_69)" "(lambda(content_3)" "(begin" " 'loop" "(if(if(syntax?$1 content_3)(pair?(syntax-content content_3)) #f)" "(let-values() #f)" "(if(pair? content_3)" -"(let-values()(loop_67(cdr content_3)))" +"(let-values()(loop_69(cdr content_3)))" "(let-values() #t)))))))" -" loop_67)" +" loop_69)" "(cdr content_2)))" "(let-values() #t)))))" "(define-values" @@ -6317,7 +6381,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_49" -"(let-values(((k_15 v_77)(unsafe-immutable-hash-iterate-key+value ht_29 i_49)))" +"(let-values(((k_15 v_79)(unsafe-immutable-hash-iterate-key+value ht_29 i_49)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6327,7 +6391,7 @@ static const char *startup_source = "(values" " k_15" "(preserved-property-value1.1" -" v_77)))))" +" v_79)))))" "(hash-set table_31 key_17 val_8)))))" "(values table_32)))))" "(if(not #f)" @@ -6402,15 +6466,15 @@ static const char *startup_source = "(let-values(((extra-inspector_0) extra-inspector8_0))" "(let-values(((extra-nominal-bindings_0) extra-nominal-bindings9_0))" "(let-values()" -"(if(let-values(((or-part_91) frame-id_0))" +"(if(let-values(((or-part_90) frame-id_0))" +"(if or-part_90" +" or-part_90" +"(let-values(((or-part_91) free=id_0))" "(if or-part_91" " or-part_91" -"(let-values(((or-part_92) free=id_0))" +"(let-values(((or-part_92) extra-inspector_0))" "(if or-part_92" " or-part_92" -"(let-values(((or-part_93) extra-inspector_0))" -"(if or-part_93" -" or-part_93" "(not" "(if(eqv? nominal-phase_0 phase_0)" "(if(eq? nominal-sym_0 sym_0)" @@ -6515,8 +6579,8 @@ static const char *startup_source = "(module-binding?)" "(lambda(b_24)" "(begin" -"(let-values(((or-part_94)(simple-module-binding? b_24)))" -"(if or-part_94 or-part_94(full-module-binding? b_24))))))" +"(let-values(((or-part_93)(simple-module-binding? b_24)))" +"(if or-part_93 or-part_93(full-module-binding? b_24))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -7176,9 +7240,9 @@ static const char *startup_source = "(binding-table-prune-to-reachable)" "(lambda(bt_3 state_15)" "(begin" -"(let-values(((or-part_95)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" -"(if or-part_95" -" or-part_95" +"(let-values(((or-part_94)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" +"(if or-part_94" +" or-part_94" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" "(let-values(((ht_35)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" @@ -7393,7 +7457,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((v_78)" +"(let-values(((v_80)" "(if(binding-reach-scopes?" " binding_2)" "((binding-reach-scopes-ref" @@ -7402,7 +7466,7 @@ static const char *startup_source = " #f)))" "(scopes-register-reachable" " scopes_6" -" v_78" +" v_80" " get-reachable-scopes_0" " reach_2" " register-trigger_0)))" @@ -7460,11 +7524,11 @@ static const char *startup_source = "(void))))))" "(define-values" "(scopes-register-reachable)" -"(lambda(scopes_7 v_79 get-reachable-scopes_1 reach_3 register-trigger_1)" +"(lambda(scopes_7 v_81 get-reachable-scopes_1 reach_3 register-trigger_1)" "(begin" "(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))" "(if(subset? scopes_7 reachable-scopes_2)" -"(let-values()(reach_3 v_79))" +"(let-values()(reach_3 v_81))" "(let-values()" "(let-values(((pending-scopes_0)" "(let-values(((ht_39) scopes_7))" @@ -7481,12 +7545,12 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-key ht_39 i_59)))" "(let-values(((table_58)" "(let-values(((table_59) table_57))" -"(if(let-values(((or-part_96)" +"(if(let-values(((or-part_95)" "(set-member?" " reachable-scopes_2" " sc_0)))" -"(if or-part_96" -" or-part_96" +"(if or-part_95" +" or-part_95" "(implicitly-reachable? sc_0)))" " table_59" "(let-values(((table_60) table_59))" @@ -7520,7 +7584,7 @@ static const char *startup_source = "(if(zero?(hash-count pending-scopes_0))" "(let-values()" "(begin" -"(reach_4 v_79)" +"(reach_4 v_81)" "(let-values(((ht_40) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -7609,7 +7673,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))" "(values))))" -"(let-values(((v_68)(hash-ref(syntax-props s_72) key_23 #f)))(plain-property-value v_68)))))" +"(let-values(((v_70)(hash-ref(syntax-props s_72) key_23 #f)))(plain-property-value v_70)))))" "((s_73 key_24 val_14)" "(let-values((()" "(begin" @@ -7706,7 +7770,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_61" -"(let-values(((k_16 v_30)" +"(let-values(((k_16 v_32)" "(unsafe-immutable-hash-iterate-key+value ht_42 i_61)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" @@ -7769,10 +7833,10 @@ static const char *startup_source = "(let-values(((scope-propagations+tamper5_0)" "(let-values(((t_18)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" -"((p_19)(syntax-scope-propagations+tamper stx_0)))" -"(if(tamper? p_19)" +"((p_20)(syntax-scope-propagations+tamper stx_0)))" +"(if(tamper? p_20)" " t_18" -"((propagation-set-tamper-ref p_19) p_19 t_18)))))" +"((propagation-set-tamper-ref p_20) p_20 t_18)))))" "(syntax1.1" "(syntax-content the-struct_6)" "(syntax-scopes the-struct_6)" @@ -7787,12 +7851,12 @@ static const char *startup_source = "(let-values(((s_77) s_74)" "((f_28) f_27)" "((gf_3)" -"(lambda(tail?_17 v_30)" +"(lambda(tail?_17 v_32)" "(begin" " 'gf" -"(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_27 tail?_17 v_30))))))" +"(if(syntax?$1 v_32)(let-values()(s->_1 v_32))(let-values()(f_27 tail?_17 v_32))))))" "((seen_8) seen_7))" -"((letrec-values(((loop_68)" +"((letrec-values(((loop_70)" "(lambda(tail?_18 s_78 prev-depth_3)" "(begin" " 'loop" @@ -7810,21 +7874,21 @@ static const char *startup_source = "(let-values()" "(f_28" " tail?_18" -"(cons(loop_68 #f(car s_78) depth_3)(loop_68 #t(cdr s_78) depth_3))))" +"(cons(loop_70 #f(car s_78) depth_3)(loop_70 #t(cdr s_78) depth_3))))" "(if(symbol? s_78)" "(let-values()(f_28 #f s_78))" "(if(boolean? s_78)" "(let-values()(f_28 #f s_78))" "(if(number? s_78)" "(let-values()(f_28 #f s_78))" -"(if(let-values(((or-part_80)(vector? s_78)))" +"(if(let-values(((or-part_79)(vector? s_78)))" +"(if or-part_79" +" or-part_79" +"(let-values(((or-part_80)(box? s_78)))" "(if or-part_80" " or-part_80" -"(let-values(((or-part_81)(box? s_78)))" -"(if or-part_81" -" or-part_81" -"(let-values(((or-part_82)(prefab-struct-key s_78)))" -"(if or-part_82 or-part_82(hash? s_78)))))))" +"(let-values(((or-part_81)(prefab-struct-key s_78)))" +"(if or-part_81 or-part_81(hash? s_78)))))))" "(let-values()" "(datum-map-slow" " tail?_18" @@ -7832,7 +7896,7 @@ static const char *startup_source = "(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))" " seen_8))" "(let-values()(gf_3 #f s_78))))))))))))))" -" loop_68)" +" loop_70)" " #f" " s_77" " 0))))))" @@ -7847,9 +7911,9 @@ static const char *startup_source = "(if(tamper-tainted? t_19)" "(let-values() s_6)" "(if(if t_19" -"(let-values(((or-part_97)(set-member? t_19 insp_0)))" -"(if or-part_97" -" or-part_97" +"(let-values(((or-part_96)(set-member? t_19 insp_0)))" +"(if or-part_96" +" or-part_96" "(let-values(((ht_43) t_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -7888,8 +7952,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_7)" "(let-values(((scope-propagations+tamper6_0)" "(let-values(((t_20)(set-add(if t_19(remove-inferior t_19 insp_0)(seteq)) insp_0))" -"((p_20)(syntax-scope-propagations+tamper stx_1)))" -"(if(tamper? p_20) t_20((propagation-set-tamper-ref p_20) p_20 t_20)))))" +"((p_21)(syntax-scope-propagations+tamper stx_1)))" +"(if(tamper? p_21) t_20((propagation-set-tamper-ref p_21) p_21 t_20)))))" "(syntax1.1" "(syntax-content the-struct_7)" "(syntax-scopes the-struct_7)" @@ -7955,10 +8019,10 @@ static const char *startup_source = "(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper7_0)" "(let-values(((t_23) #f)" -"((p_21)(syntax-scope-propagations+tamper stx_2)))" -"(if(tamper? p_21)" +"((p_22)(syntax-scope-propagations+tamper stx_2)))" +"(if(tamper? p_22)" " t_23" -"((propagation-set-tamper-ref p_21) p_21 t_23)))))" +"((propagation-set-tamper-ref p_22) p_22 t_23)))))" "(syntax1.1" "(syntax-content the-struct_8)" "(syntax-scopes the-struct_8)" @@ -7976,10 +8040,10 @@ static const char *startup_source = "(if(syntax?$1 the-struct_9)" "(let-values(((scope-propagations+tamper8_0)" "(let-values(((t_24)(if(not(set-empty? new-t_1)) new-t_1 #f))" -"((p_22)(syntax-scope-propagations+tamper stx_3)))" -"(if(tamper? p_22)" +"((p_23)(syntax-scope-propagations+tamper stx_3)))" +"(if(tamper? p_23)" " t_24" -"((propagation-set-tamper-ref p_22) p_22 t_24)))))" +"((propagation-set-tamper-ref p_23) p_23 t_24)))))" "(syntax1.1" "(syntax-content the-struct_9)" "(syntax-scopes the-struct_9)" @@ -8012,8 +8076,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_10)" "(let-values(((scope-propagations+tamper9_0)" "(let-values(((t_26)(tamper-tainted-for-content(syntax-content s_17)))" -"((p_23)(syntax-scope-propagations+tamper stx_4)))" -"(if(tamper? p_23) t_26((propagation-set-tamper-ref p_23) p_23 t_26)))))" +"((p_24)(syntax-scope-propagations+tamper stx_4)))" +"(if(tamper? p_24) t_26((propagation-set-tamper-ref p_24) p_24 t_26)))))" "(syntax1.1" "(syntax-content the-struct_10)" "(syntax-scopes the-struct_10)" @@ -8031,8 +8095,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_11)" "(let-values(((scope-propagations+tamper10_0)" "(let-values(((t_27) from-t_0)" -"((p_24)(syntax-scope-propagations+tamper stx_5)))" -"(if(tamper? p_24) t_27((propagation-set-tamper-ref p_24) p_24 t_27)))))" +"((p_25)(syntax-scope-propagations+tamper stx_5)))" +"(if(tamper? p_25) t_27((propagation-set-tamper-ref p_25) p_25 t_27)))))" "(syntax1.1" "(syntax-content the-struct_11)" "(syntax-scopes the-struct_11)" @@ -8097,8 +8161,8 @@ static const char *startup_source = " for-loop_2)" " t_25" "(unsafe-immutable-hash-iterate-first ht_16)))))" -"((p_18)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_18) t_28((propagation-set-tamper-ref p_18) p_18 t_28)))))" +"((p_19)(syntax-scope-propagations+tamper stx_6)))" +"(if(tamper? p_19) t_28((propagation-set-tamper-ref p_19) p_19 t_28)))))" "(syntax1.1" "(syntax-content the-struct_12)" "(syntax-scopes the-struct_12)" @@ -8121,8 +8185,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper12_0)" "(let-values(((t_33)(tamper-tainted-for-content(syntax-content s_70)))" -"((p_25)(syntax-scope-propagations+tamper stx_7)))" -"(if(tamper? p_25) t_33((propagation-set-tamper-ref p_25) p_25 t_33)))))" +"((p_26)(syntax-scope-propagations+tamper stx_7)))" +"(if(tamper? p_26) t_33((propagation-set-tamper-ref p_26) p_26 t_33)))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -8166,7 +8230,7 @@ static const char *startup_source = "(inspector-superior-or-same?)" "(lambda(sup-i_0 i_66)" "(begin" -"(let-values(((or-part_98)(eq? sup-i_0 i_66)))(if or-part_98 or-part_98(inspector-superior? sup-i_0 i_66))))))" +"(let-values(((or-part_97)(eq? sup-i_0 i_66)))(if or-part_97 or-part_97(inspector-superior? sup-i_0 i_66))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -8273,10 +8337,10 @@ static const char *startup_source = "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_80)(hash-ref c_15 sym_13 #f)))" -"(if v_80" -"(if(eqv? phase_4(entry-phase v_80))" -"(if(set=? scs_3(entry-scs v_80))(if(set=? smss_7(entry-smss v_80))(entry-binding v_80) #f) #f)" +"(let-values(((v_82)(hash-ref c_15 sym_13 #f)))" +"(if v_82" +"(if(eqv? phase_4(entry-phase v_82))" +"(if(set=? scs_3(entry-scs v_82))(if(set=? smss_7(entry-smss v_82))(entry-binding v_82) #f) #f)" " #f)" " #f))" " #f)))))" @@ -8373,10 +8437,10 @@ static const char *startup_source = "(lambda(s_84 phase_7 b_19)" "(begin" "(let-values(((vec_20)(shifted-cache-vector)))" -"(let-values(((p_26) shifted-cache-pos))" +"(let-values(((p_27) shifted-cache-pos))" "(begin" -"(vector*-set! vec_20 p_26(shifted-entry2.1 s_84 phase_7 b_19))" -"(set! shifted-cache-pos(fxand(fx+ 1 p_26)(fx- SHIFTED-CACHE-SIZE 1)))))))))" +"(vector*-set! vec_20 p_27(shifted-entry2.1 s_84 phase_7 b_19))" +"(set! shifted-cache-pos(fxand(fx+ 1 p_27)(fx- SHIFTED-CACHE-SIZE 1)))))))))" "(define-values(NUM-CACHE-SLOTS) 8)" "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))" "(define-values(cached-sets-pos) 0)" @@ -8387,12 +8451,12 @@ static const char *startup_source = "(lambda(s_45)" "(begin" "(let-values(((vec_21)" -"(let-values(((or-part_99)(weak-box-value cached-sets)))" -"(if or-part_99" -" or-part_99" +"(let-values(((or-part_98)(weak-box-value cached-sets)))" +"(if or-part_98" +" or-part_98" "(let-values(((vec_22)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-sets(make-weak-box vec_22)) vec_22))))))" -"(let-values(((or-part_100)" +"(let-values(((or-part_99)" "(let-values(((vec_23 len_10)" "(let-values(((vec_24) vec_21))" "(begin(check-vector vec_24)(values vec_24(unsafe-vector-length vec_24))))))" @@ -8420,8 +8484,8 @@ static const char *startup_source = " for-loop_54)" " #f" " 0)))))" -"(if or-part_100" -" or-part_100" +"(if or-part_99" +" or-part_99" "(begin" "(vector*-set! vec_21 cached-sets-pos s_45)" "(set! cached-sets-pos(fxand(fx+ 1 cached-sets-pos)(fx- NUM-CACHE-SLOTS 1)))" @@ -8431,12 +8495,12 @@ static const char *startup_source = "(lambda(s_85)" "(begin" "(let-values(((vec_25)" -"(let-values(((or-part_101)(weak-box-value cached-hashes)))" -"(if or-part_101" -" or-part_101" +"(let-values(((or-part_100)(weak-box-value cached-hashes)))" +"(if or-part_100" +" or-part_100" "(let-values(((vec_26)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-hashes(make-weak-box vec_26)) vec_26))))))" -"(let-values(((or-part_98)" +"(let-values(((or-part_97)" "(let-values(((vec_27 len_11)" "(let-values(((vec_28) vec_25))" "(begin(check-vector vec_28)(values vec_28(unsafe-vector-length vec_28))))))" @@ -8464,8 +8528,8 @@ static const char *startup_source = " for-loop_55)" " #f" " 0)))))" -"(if or-part_98" -" or-part_98" +"(if or-part_97" +" or-part_97" "(begin" "(vector*-set! vec_25 cached-hashes-pos s_85)" "(set! cached-hashes-pos(fxand(fx+ 1 cached-hashes-pos)(fx- NUM-CACHE-SLOTS 1)))" @@ -8643,10 +8707,10 @@ static const char *startup_source = "(let-values((()(begin(ser-push!_9(multi-scope-name ms_1))(values))))" "(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_19)))" "(ser-push!_9" -"(let-values(((or-part_102)" +"(let-values(((or-part_101)" "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" -"(if or-part_102" -" or-part_102" +"(if or-part_101" +" or-part_101" "(let-values(((ht_47)(make-hasheqv)))" "(begin" "(let-values(((ht_48)(multi-scope-scopes ms_1)))" @@ -8772,7 +8836,7 @@ static const char *startup_source = "(define-values" "(deserialize-representative-scope)" "(lambda(kind_1 phase_9)" -"(begin(let-values(((v_81)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_81))))" +"(begin(let-values(((v_83)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_83))))" "(define-values" "(deserialize-representative-scope-fill!)" "(lambda(s_95 bt_6 owner_0)" @@ -8835,9 +8899,9 @@ static const char *startup_source = "(lambda(boxed-table_0 key_29 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_103)(hash-ref(unbox boxed-table_0) phase_11 #f)))" -"(if or-part_103" -" or-part_103" +"(let-values(((or-part_102)(hash-ref(unbox boxed-table_0) phase_11 #f)))" +"(if or-part_102" +" or-part_102" "(let-values(((val_17)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" "(let-values(((next_3)(hash-set current_0 key_29 val_17)))" @@ -8846,17 +8910,17 @@ static const char *startup_source = "(transaction-loop_0 boxed-table_0 key_29 make_0)))))))))))" "(if(phase? phase_11)" "(let-values()" -"(let-values(((or-part_104)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" -"(if or-part_104" -" or-part_104" +"(let-values(((or-part_103)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" +"(if or-part_103" +" or-part_103" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_11" "(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_105)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" -"(if or-part_105" -" or-part_105" +"(let-values(((or-part_104)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" +"(if or-part_104" +" or-part_104" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_11" @@ -8899,9 +8963,9 @@ static const char *startup_source = "(interned-scope2.1(-(new-scope-id!)) 'interned empty-binding-table sym_15))))))" "(call-as-atomic" "(lambda()" -"(let-values(((or-part_106)(ephemeron-value(hash-ref! interned-scopes-table sym_15 make_1))))" -"(if or-part_106" -" or-part_106" +"(let-values(((or-part_105)(ephemeron-value(hash-ref! interned-scopes-table sym_15 make_1))))" +"(if or-part_105" +" or-part_105" "(let-values(((new_1)(make_1)))" "(begin(hash-set! interned-scopes-table sym_15 new_1)(ephemeron-value new_1)))))))))))" "(define-values" @@ -8920,9 +8984,9 @@ static const char *startup_source = "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_12)" "(begin" -"(let-values(((or-part_107)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" -"(if or-part_107" -" or-part_107" +"(let-values(((or-part_106)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" +"(if or-part_106" +" or-part_106" "(let-values(((s_96)" "(representative-scope4.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" @@ -8953,8 +9017,8 @@ static const char *startup_source = "(lambda(s_97)" "(begin" "(let-values(((prop_3)(syntax-scope-propagations+tamper s_97)))" -"(if(let-values(((or-part_108)(propagation? prop_3)))" -"(if or-part_108 or-part_108(tamper-needs-propagate? prop_3)))" +"(if(let-values(((or-part_107)(propagation? prop_3)))" +"(if or-part_107 or-part_107(tamper-needs-propagate? prop_3)))" "(let-values(((new-content_0)" "(let-values(((s_98)(syntax-content s_97))" "((f_30)(lambda(tail?_20 x_33)(begin 'f x_33)))" @@ -9006,11 +9070,11 @@ static const char *startup_source = "(let-values(((t_34)" "(tamper-tainted-for-content" "(syntax-content sub-s_1)))" -"((p_27)" +"((p_28)" "(syntax-scope-propagations+tamper stx_8)))" -"(if(tamper? p_27)" +"(if(tamper? p_28)" " t_34" -"((propagation-set-tamper-ref p_27) p_27 t_34)))))" +"((propagation-set-tamper-ref p_28) p_28 t_34)))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -9025,14 +9089,14 @@ static const char *startup_source = "(let-values(((s_99) s_98)" "((f_31) f_30)" "((gf_4)" -"(lambda(tail?_21 v_82)" +"(lambda(tail?_21 v_84)" "(begin" " 'gf" -"(if(syntax?$1 v_82)" -"(let-values()(s->_2 v_82))" -"(let-values()(f_30 tail?_21 v_82))))))" +"(if(syntax?$1 v_84)" +"(let-values()(s->_2 v_84))" +"(let-values()(f_30 tail?_21 v_84))))))" "((seen_10) seen_9))" -"((letrec-values(((loop_69)" +"((letrec-values(((loop_71)" "(lambda(tail?_22 s_100 prev-depth_4)" "(begin" " 'loop" @@ -9051,24 +9115,24 @@ static const char *startup_source = "(f_31" " tail?_22" "(cons" -"(loop_69 #f(car s_100) depth_4)" -"(loop_69 #t(cdr s_100) depth_4))))" +"(loop_71 #f(car s_100) depth_4)" +"(loop_71 #t(cdr s_100) depth_4))))" "(if(symbol? s_100)" "(let-values()(f_31 #f s_100))" "(if(boolean? s_100)" "(let-values()(f_31 #f s_100))" "(if(number? s_100)" "(let-values()(f_31 #f s_100))" -"(if(let-values(((or-part_109)(vector? s_100)))" +"(if(let-values(((or-part_108)(vector? s_100)))" +"(if or-part_108" +" or-part_108" +"(let-values(((or-part_109)(box? s_100)))" "(if or-part_109" " or-part_109" -"(let-values(((or-part_110)(box? s_100)))" +"(let-values(((or-part_110)" +"(prefab-struct-key s_100)))" "(if or-part_110" " or-part_110" -"(let-values(((or-part_111)" -"(prefab-struct-key s_100)))" -"(if or-part_111" -" or-part_111" "(hash? s_100)))))))" "(let-values()" "(datum-map-slow" @@ -9077,7 +9141,7 @@ static const char *startup_source = "(lambda(tail?_24 s_102)(gf_4 tail?_24 s_102))" " seen_10))" "(let-values()(gf_4 #f s_100))))))))))))))" -" loop_69)" +" loop_71)" " #f" " s_99" " 0)))))" @@ -9392,21 +9456,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_22))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" -"((letrec-values(((loop_70)" +"((letrec-values(((loop_72)" "(lambda(s_129)" "(begin" " 'loop" "(let-values(((s_130) s_129)" "((f_33) f_32)" "((gf_5)" -"(lambda(tail?_26 v_83)" +"(lambda(tail?_26 v_85)" "(begin" " 'gf" -"(if(syntax?$1 v_83)" -"(let-values()(d->s_1 v_83(loop_70(s-e_1 v_83))))" -"(let-values()(f_32 tail?_26 v_83))))))" +"(if(syntax?$1 v_85)" +"(let-values()(d->s_1 v_85(loop_72(s-e_1 v_85))))" +"(let-values()(f_32 tail?_26 v_85))))))" "((seen_12) seen_11))" -"((letrec-values(((loop_71)" +"((letrec-values(((loop_73)" "(lambda(tail?_27 s_131 prev-depth_5)" "(begin" " 'loop" @@ -9425,27 +9489,27 @@ static const char *startup_source = "(f_33" " tail?_27" "(cons" -"(loop_71 #f(car s_131) depth_5)" -"(loop_71 #t(cdr s_131) depth_5))))" +"(loop_73 #f(car s_131) depth_5)" +"(loop_73 #t(cdr s_131) depth_5))))" "(if(symbol? s_131)" "(let-values()(f_33 #f s_131))" "(if(boolean? s_131)" "(let-values()(f_33 #f s_131))" "(if(number? s_131)" "(let-values()(f_33 #f s_131))" -"(if(let-values(((or-part_112)" +"(if(let-values(((or-part_111)" "(vector? s_131)))" +"(if or-part_111" +" or-part_111" +"(let-values(((or-part_112)" +"(box? s_131)))" "(if or-part_112" " or-part_112" "(let-values(((or-part_113)" -"(box? s_131)))" -"(if or-part_113" -" or-part_113" -"(let-values(((or-part_114)" "(prefab-struct-key" " s_131)))" -"(if or-part_114" -" or-part_114" +"(if or-part_113" +" or-part_113" "(hash? s_131)))))))" "(let-values()" "(datum-map-slow" @@ -9455,11 +9519,11 @@ static const char *startup_source = "(gf_5 tail?_29 s_133))" " seen_12))" "(let-values()(gf_5 #f s_131))))))))))))))" -" loop_71)" +" loop_73)" " #f" " s_130" " 0))))))" -" loop_70)" +" loop_72)" " s_127))))))))" "(define-values" "(struct:propagation" @@ -9483,8 +9547,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_28 v_84)(propagation-set-tamper p_28 v_84)))" -"(cons prop:propagation-tamper(lambda(p_29)(propagation-tamper p_29)))" +"(cons prop:propagation-set-tamper(lambda(p_29 v_86)(propagation-set-tamper p_29 v_86)))" +"(cons prop:propagation-tamper(lambda(p_30)(propagation-tamper p_30)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -9585,10 +9649,10 @@ static const char *startup_source = "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" "(if(if add_0 base-add_0 #f)" "(lambda(mss_0)(begin 'add-mpi-shifts74(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_115) add_0))(if or-part_115 or-part_115 base-add_0)))))" +"(let-values(((or-part_114) add_0))(if or-part_114 or-part_114 base-add_0)))))" "((inspector75_0)" -"(let-values(((or-part_116)(propagation-inspector prop_7)))" -"(if or-part_116 or-part_116 inspector_2))))" +"(let-values(((or-part_115)(propagation-inspector prop_7)))" +"(if or-part_115 or-part_115 inspector_2))))" "(propagation14.1" "(propagation-prev-scs the-struct_26)" "(propagation-prev-smss the-struct_26)" @@ -9726,7 +9790,7 @@ static const char *startup_source = "(define-values" "(propagation-apply-inspector)" "(lambda(prop_11 i_71)" -"(begin(let-values(((or-part_117) i_71))(if or-part_117 or-part_117(propagation-inspector prop_11))))))" +"(begin(let-values(((or-part_116) i_71))(if or-part_116 or-part_116(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_35)" @@ -9852,8 +9916,8 @@ static const char *startup_source = "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" -"(if(let-values(((or-part_118)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_118 or-part_118(tamper-tainted?(propagation-tamper base-prop_0))))" +"(if(let-values(((or-part_117)(tamper-tainted?(propagation-tamper prop_13))))" +"(if or-part_117 or-part_117(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -9870,10 +9934,10 @@ static const char *startup_source = "((add-mpi-shifts78_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts78(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_119) add_2))(if or-part_119 or-part_119 base-add_1))))" +"(let-values(((or-part_118) add_2))(if or-part_118 or-part_118 base-add_1))))" "((inspector79_0)" -"(let-values(((or-part_120)(propagation-inspector base-prop_0)))" -"(if or-part_120 or-part_120(propagation-inspector prop_13))))" +"(let-values(((or-part_119)(propagation-inspector base-prop_0)))" +"(if or-part_119 or-part_119(propagation-inspector prop_13))))" "((tamper80_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_28)" @@ -10012,21 +10076,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" -"((letrec-values(((loop_72)" +"((letrec-values(((loop_74)" "(lambda(s_137)" "(begin" " 'loop" "(let-values(((s_138) s_137)" "((f_35) f_34)" "((gf_6)" -"(lambda(tail?_31 v_85)" +"(lambda(tail?_31 v_87)" "(begin" " 'gf" -"(if(syntax?$1 v_85)" -"(let-values()(d->s_2 v_85(loop_72(s-e_2 v_85))))" -"(let-values()(f_34 tail?_31 v_85))))))" +"(if(syntax?$1 v_87)" +"(let-values()(d->s_2 v_87(loop_74(s-e_2 v_87))))" +"(let-values()(f_34 tail?_31 v_87))))))" "((seen_14) seen_13))" -"((letrec-values(((loop_73)" +"((letrec-values(((loop_75)" "(lambda(tail?_32 s_139 prev-depth_6)" "(begin" " 'loop" @@ -10045,27 +10109,27 @@ static const char *startup_source = "(f_35" " tail?_32" "(cons" -"(loop_73 #f(car s_139) depth_6)" -"(loop_73 #t(cdr s_139) depth_6))))" +"(loop_75 #f(car s_139) depth_6)" +"(loop_75 #t(cdr s_139) depth_6))))" "(if(symbol? s_139)" "(let-values()(f_35 #f s_139))" "(if(boolean? s_139)" "(let-values()(f_35 #f s_139))" "(if(number? s_139)" "(let-values()(f_35 #f s_139))" -"(if(let-values(((or-part_121)" +"(if(let-values(((or-part_120)" "(vector? s_139)))" +"(if or-part_120" +" or-part_120" +"(let-values(((or-part_121)" +"(box? s_139)))" "(if or-part_121" " or-part_121" "(let-values(((or-part_122)" -"(box? s_139)))" -"(if or-part_122" -" or-part_122" -"(let-values(((or-part_123)" "(prefab-struct-key" " s_139)))" -"(if or-part_123" -" or-part_123" +"(if or-part_122" +" or-part_122" "(hash? s_139)))))))" "(let-values()" "(datum-map-slow" @@ -10076,11 +10140,11 @@ static const char *startup_source = " seen_14))" "(let-values()" "(gf_6 #f s_139))))))))))))))" -" loop_73)" +" loop_75)" " #f" " s_138" " 0))))))" -" loop_72)" +" loop_74)" " s_135))))))))))" "(define-values" "(syntax-swap-scopes)" @@ -10229,21 +10293,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_30))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_76)" "(lambda(s_145)" "(begin" " 'loop" "(let-values(((s_146) s_145)" "((f_37) f_36)" "((gf_7)" -"(lambda(tail?_36 v_86)" +"(lambda(tail?_36 v_88)" "(begin" " 'gf" -"(if(syntax?$1 v_86)" -"(let-values()(d->s_3 v_86(loop_74(s-e_3 v_86))))" -"(let-values()(f_36 tail?_36 v_86))))))" +"(if(syntax?$1 v_88)" +"(let-values()(d->s_3 v_88(loop_76(s-e_3 v_88))))" +"(let-values()(f_36 tail?_36 v_88))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_77)" "(lambda(tail?_37 s_147 prev-depth_7)" "(begin" " 'loop" @@ -10263,27 +10327,27 @@ static const char *startup_source = "(f_37" " tail?_37" "(cons" -"(loop_75 #f(car s_147) depth_7)" -"(loop_75 #t(cdr s_147) depth_7))))" +"(loop_77 #f(car s_147) depth_7)" +"(loop_77 #t(cdr s_147) depth_7))))" "(if(symbol? s_147)" "(let-values()(f_37 #f s_147))" "(if(boolean? s_147)" "(let-values()(f_37 #f s_147))" "(if(number? s_147)" "(let-values()(f_37 #f s_147))" -"(if(let-values(((or-part_124)" +"(if(let-values(((or-part_123)" "(vector? s_147)))" +"(if or-part_123" +" or-part_123" +"(let-values(((or-part_124)" +"(box? s_147)))" "(if or-part_124" " or-part_124" "(let-values(((or-part_125)" -"(box? s_147)))" -"(if or-part_125" -" or-part_125" -"(let-values(((or-part_126)" "(prefab-struct-key" " s_147)))" -"(if or-part_126" -" or-part_126" +"(if or-part_125" +" or-part_125" "(hash? s_147)))))))" "(let-values()" "(datum-map-slow" @@ -10294,11 +10358,11 @@ static const char *startup_source = " seen_16))" "(let-values()" "(gf_7 #f s_147))))))))))))))" -" loop_75)" +" loop_77)" " #f" " s_146" " 0))))))" -" loop_74)" +" loop_76)" " s_143)))))))))))))" "(define-values" "(syntax-scope-set)" @@ -10321,9 +10385,9 @@ static const char *startup_source = "(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_76)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_127)(label-phase? phase_15)))" -"(if or-part_127" -" or-part_127" +"(if(let-values(((or-part_126)(label-phase? phase_15)))" +"(if or-part_126" +" or-part_126" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -10707,12 +10771,12 @@ static const char *startup_source = "(cdr" " i_80))" "(let-values()" -"(let-values(((or-part_128)" +"(let-values(((or-part_127)" "(hash-iterate-next" " ht_59" " i_80)))" -"(if or-part_128" -" or-part_128" +"(if or-part_127" +" or-part_127" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -10723,11 +10787,11 @@ static const char *startup_source = " for-loop_72)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_129)" +"(let-values(((or-part_128)" "(hash-iterate-first" " ht_59)))" -"(if or-part_129" -" or-part_129" +"(if or-part_128" +" or-part_128" " bulk-bindings_2)))))))" "(if(not #f)" "(for-loop_71" @@ -10760,9 +10824,9 @@ static const char *startup_source = "(syntax-scopes s_153)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_130)(not exactly?_0)))" -"(if or-part_130" -" or-part_130" +"(if(let-values(((or-part_129)(not exactly?_0)))" +"(if or-part_129" +" or-part_129" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -10783,11 +10847,11 @@ static const char *startup_source = "(syntax-shifted-multi-scopes s_153)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_32 b_41 phase_17)" +"(lambda(a_33 b_41 phase_17)" "(begin" " 'bound-identifier=?" -"(if(eq?(syntax-e$1 a_32)(syntax-e$1 b_41))" -"(equal?(syntax-scope-set a_32 phase_17)(syntax-scope-set b_41 phase_17))" +"(if(eq?(syntax-e$1 a_33)(syntax-e$1 b_41))" +"(equal?(syntax-scope-set a_33 phase_17)(syntax-scope-set b_41 phase_17))" " #f))))" "(define-values" "(local-binding?)" @@ -10853,14 +10917,14 @@ static const char *startup_source = "(1/prop:rename-transformer 1/rename-transformer? rename-transformer-value)" "(make-struct-type-property" " 'rename-transformer" -"(lambda(v_26 info_1)" +"(lambda(v_28 info_1)" "(let-values((()" "(begin" -"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_26)))" +"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_28)))" "(if or-part_11" " or-part_11" -"(let-values(((or-part_2)(identifier? v_26)))" -"(if or-part_2 or-part_2(if(procedure? v_26)(procedure-arity-includes? v_26 1) #f)))))" +"(let-values(((or-part_2)(identifier? v_28)))" +"(if or-part_2 or-part_2(if(procedure? v_28)(procedure-arity-includes? v_28 1) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -10869,44 +10933,44 @@ static const char *startup_source = " \"(or/c exact-nonnegative-integer?\\n\"" " \" identifier?\\n\"" " \" (procedure-arity-includes? proc 1))\")" -" v_26)))" +" v_28)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_26)" +"(if(exact-nonnegative-integer? v_28)" "(let-values()" "(begin" -"(if(<= v_26(list-ref info_1 1))" +"(if(<= v_28(list-ref info_1 1))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index >= initialized-field count for structure type\"" " \"field index\"" -" v_26" +" v_28" " \"initialized-field count\"" "(list-ref info_1 1))))" -"(if(member v_26(list-ref info_1 5))" +"(if(member v_28(list-ref info_1 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_26)))))" +" v_28)))))" "(void))" "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" -"(if(identifier? v_26)" -"(let-values()(lambda(t_36) v_26))" -"(if(integer? v_26)" +"(if(identifier? v_28)" +"(let-values()(lambda(t_36) v_28))" +"(if(integer? v_28)" "(let-values()" "(lambda(t_37)" -"(let-values(((val_21)(ref_0 t_37 v_26)))" +"(let-values(((val_21)(ref_0 t_37 v_28)))" "(if(identifier? val_21) val_21(datum->syntax$1 #f '?)))))" "(let-values()" "(lambda(t_15)" -"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_15)))))" +"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_28 t_15)))))" "(begin" "(if(identifier? id_0)" "(void)" @@ -10950,12 +11014,12 @@ static const char *startup_source = "(lambda(t_38)(begin 'rename-transformer-target((rename-transformer-value t_38) t_38))))" "(define-values" "(free-identifier=?$1)" -"(lambda(a_33 b_46 a-phase_0 b-phase_0)" +"(lambda(a_34 b_46 a-phase_0 b-phase_0)" "(begin" " 'free-identifier=?" "(let-values(((ab_0)" "(toplevel-as-symbol" -"(let-values(((a43_0) a_33)((a-phase44_0) a-phase_0)((temp45_0) #t))" +"(let-values(((a43_0) a_34)((a-phase44_0) a-phase_0)((temp45_0) #t))" "(resolve+shift28.1 #f #f null unsafe-undefined temp45_0 a43_0 a-phase44_0)))))" "(let-values(((bb_0)" "(toplevel-as-symbol" @@ -11121,8 +11185,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_31)" "(let-values(((mpi-shifts66_0)(cons shift_0(syntax-mpi-shifts s_19)))" "((inspector67_0)" -"(let-values(((or-part_131)(syntax-inspector s_19)))" -"(if or-part_131 or-part_131 inspector_3)))" +"(let-values(((or-part_130)(syntax-inspector s_19)))" +"(if or-part_130 or-part_130 inspector_3)))" "((scope-propagations+tamper68_0)" "(if(datum-has-elements?(syntax-content s_19))" "(propagation-mpi-shift" @@ -11309,7 +11373,7 @@ static const char *startup_source = "(resolve+shift-cache-set!" " s_157" " phase_8" -"(let-values(((or-part_132) b_52))(if or-part_132 or-part_132 '#:none))))" +"(let-values(((or-part_131) b_52))(if or-part_131 or-part_131 '#:none))))" "(void))" "(let-values(((or-part_56) b_52))" "(if or-part_56" @@ -11454,7 +11518,7 @@ static const char *startup_source = "(let-values(((the-struct_32) s_160))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector96_0)" -"(let-values(((or-part_133)(syntax-inspector s_160)))(if or-part_133 or-part_133 insp_3)))" +"(let-values(((or-part_132)(syntax-inspector s_160)))(if or-part_132 or-part_132 insp_3)))" "((scope-propagations+tamper97_0)" "(if(datum-has-elements?(syntax-content s_160))" "(propagation-mpi-shift" @@ -11579,12 +11643,12 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(p_30 ser-push!_14 state_24)" +"(lambda(p_31 ser-push!_14 state_24)" "(begin" "(ser-push!_14 'tag '#:provided)" -"(ser-push!_14(provided-binding p_30))" -"(ser-push!_14(provided-protected? p_30))" -"(ser-push!_14(provided-syntax? p_30))))))" +"(ser-push!_14(provided-binding p_31))" +"(ser-push!_14(provided-protected? p_31))" +"(ser-push!_14(provided-syntax? p_31))))))" " #f" " #f" " '(0 1 2)" @@ -11597,9 +11661,9 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 0 'binding)" "(make-struct-field-accessor -ref_0 1 'protected?)" "(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_87)(begin(if(provided? v_87)(provided-binding v_87) v_87))))" +"(define-values(provided-as-binding)(lambda(v_89)(begin(if(provided? v_89)(provided-binding v_89) v_89))))" "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_88)(begin(if(provided? v_88)(provided-syntax? v_88) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_90)(begin(if(provided? v_90)(provided-syntax? v_90) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" @@ -11681,9 +11745,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_56 mpi-shifts_3)" -"(let-values(((or-part_134)(bulk-binding-provides b_56)))" -"(if or-part_134" -" or-part_134" +"(let-values(((or-part_133)(bulk-binding-provides b_56)))" +"(if or-part_133" +" or-part_133" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_56) mpi-shifts_3))))" @@ -11720,9 +11784,9 @@ static const char *startup_source = "(let-values(((excepts_0)(bulk-binding-excepts b_56)))" "(let-values(((prefix_0)(bulk-binding-prefix b_56)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_135) prefix_0))" -"(if or-part_135" -" or-part_135" +"(if(let-values(((or-part_134) prefix_0))" +"(if or-part_134" +" or-part_134" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11957,32 +12021,32 @@ static const char *startup_source = " frame-id_4))))" "(define-values" "(root-expand-context-post-expansion-scope)" -"(lambda(v_89)(begin(root-expand-context/outer-post-expansion-scope v_89))))" +"(lambda(v_91)(begin(root-expand-context/outer-post-expansion-scope v_91))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_90)(begin(root-expand-context/outer-use-site-scopes v_90))))" -"(define-values(root-expand-context-frame-id)(lambda(v_45)(begin(root-expand-context/outer-frame-id v_45))))" +"(lambda(v_92)(begin(root-expand-context/outer-use-site-scopes v_92))))" +"(define-values(root-expand-context-frame-id)(lambda(v_47)(begin(root-expand-context/outer-frame-id v_47))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_63)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_63)))))" +"(lambda(v_65)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_65)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_46)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_46)))))" +"(lambda(v_48)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_48)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_91)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_91)))))" +"(lambda(v_93)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_93)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_47)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_47)))))" +"(lambda(v_49)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_49)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_92)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_92)))))" +"(lambda(v_94)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_94)))))" "(define-values" "(root-expand-context-counter)" -"(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))" +"(lambda(v_42)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_42)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_93)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_93)))))" +"(lambda(v_95)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_95)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0 initial-scopes4_0 outside-scope5_0 post-expansion-scope6_0 self-mpi3_0)" @@ -12004,8 +12068,8 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_136) all-scopes-stx_1))" -"(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_135) all-scopes-stx_1))" +"(if or-part_135 or-part_135(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -12088,9 +12152,9 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_94)" +"(lambda(v_96)" "(begin" -"(let-values(((ht_63) v_94))" +"(let-values(((ht_63) v_96))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" "((letrec-values(((for-loop_79)" @@ -12173,10 +12237,10 @@ static const char *startup_source = "(lambda(stx_11)(begin(let-values(((s_164)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_164))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_95)" +"(lambda(v_97)" "(begin" "(hash-copy" -"(let-values(((ht_30)(syntax-e$1 v_95)))" +"(let-values(((ht_30)(syntax-e$1 v_97)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_30)))" "((letrec-values(((for-loop_32)" @@ -12314,27 +12378,27 @@ static const char *startup_source = "(lambda(r_5 proc_2)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_5)))" -"((letrec-values(((loop_68)" +"((letrec-values(((loop_70)" "(lambda()" "(begin" " 'loop" -"(let-values(((v_31)(unbox lock-box_0)))" -"(if(let-values(((or-part_76)(not v_31)))" -"(if or-part_76 or-part_76(sync/timeout 0(car v_31)(cdr v_31))))" +"(let-values(((v_33)(unbox lock-box_0)))" +"(if(let-values(((or-part_75)(not v_33)))" +"(if or-part_75 or-part_75(sync/timeout 0(car v_33)(cdr v_33))))" "(let-values()" "(let-values(((sema_0)(make-semaphore)))" "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" "((dynamic-wind" " void" "(lambda()" -"(if(box-cas! lock-box_0 v_31 lock_0)" +"(if(box-cas! lock-box_0 v_33 lock_0)" "(let-values()(begin(proc_2) void))" -"(let-values()(lambda()(loop_68)))))" +"(let-values()(lambda()(loop_70)))))" "(lambda()(semaphore-post sema_0)))))))" -"(if(eq?(current-thread)(cdr v_31))" +"(if(eq?(current-thread)(cdr v_33))" "(let-values()(proc_2))" -"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_68))))))))))" -" loop_68))))))" +"(let-values()(begin(sync(car v_33)(cdr v_33))(loop_70))))))))))" +" loop_70))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12471,8 +12535,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_137)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_137 or-part_137 share-from-ns_0))" +"(let-values(((or-part_136)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_136 or-part_136 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12489,10 +12553,10 @@ static const char *startup_source = "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_96)" +"(lambda(v_98)" "(begin" -" (if (1/namespace? v_96) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_96)))" -" v_96))))" +" (if (1/namespace? v_98) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_98)))" +" v_98))))" "(define-values" "(namespace-get-root-expand-ctx)" "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" @@ -12506,17 +12570,17 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_138" -" or-part_138" +"(let-values(((or-part_137)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_137" +" or-part_137" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_27)" "(begin" -"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_27 #f)))" -"(if or-part_139" -" or-part_139" +"(let-values(((or-part_138)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_27 #f)))" +"(if or-part_138" +" or-part_138" "(let-values(((p-ns_0)" "(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" @@ -12557,9 +12621,9 @@ static const char *startup_source = "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_140) d_8))" -"(if or-part_140" -" or-part_140" +"(let-values(((or-part_139) d_8))" +"(if or-part_139" +" or-part_139" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12640,16 +12704,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_78)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_76(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_78(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_76(syntax-e$1 s_1)))" +"(let-values()(loop_78(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_76)" +" loop_78)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12665,8 +12729,8 @@ static const char *startup_source = "(if(eq? id1_0 unsafe-undefined)" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_28)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_28)(car v_28) #f)))" +"(let-values(((v_30)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_30)(car v_30) #f)))" " id1_0)))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" @@ -12791,7 +12855,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_0" -"(let-values(((k_18 v_87)" +"(let-values(((k_18 v_89)" "(unsafe-immutable-hash-iterate-key+value" " ht_67" " i_0)))" @@ -12811,9 +12875,9 @@ static const char *startup_source = "(if(eq?" " old-v_0" " missing$1)" -" v_87" +" v_89" "(cons/preserve" -" v_87" +" v_89" " old-v_0)))))))" "(values" " old-props_4)))))" @@ -12849,12 +12913,12 @@ static const char *startup_source = "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin4_0 new-stx_2 old-stx_2 id1_1)))))" "(define-values" "(cons/preserve)" -"(lambda(a_34 b_49)" +"(lambda(a_35 b_49)" "(begin" -"(if(let-values(((or-part_67)(preserved-property-value? a_34)))" +"(if(let-values(((or-part_67)(preserved-property-value? a_35)))" "(if or-part_67 or-part_67(preserved-property-value? b_49)))" -"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_49)))" -"(cons a_34 b_49)))))" +"(preserved-property-value1.1(cons(plain-property-value a_35)(plain-property-value b_49)))" +"(cons a_35 b_49)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" @@ -12997,7 +13061,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_40)" -"(let-values(((or-part_100)(not x_40)))(if or-part_100 or-part_100(symbol? x_40))))" +"(let-values(((or-part_99)(not x_40)))(if or-part_99 or-part_99(symbol? x_40))))" " given-name_12)" "(void)" " (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" @@ -13023,45 +13087,45 @@ static const char *startup_source = "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_136) given-name_12))" -"(if or-part_136" -" or-part_136" -"(let-values(((or-part_141)(extract-form-name expr_8)))" -"(if or-part_141 or-part_141 '?)))))))" +"(let-values(((or-part_135) given-name_12))" +"(if or-part_135" +" or-part_135" +"(let-values(((or-part_140)(extract-form-name expr_8)))" +"(if or-part_140 or-part_140 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_142)" +"(let-values(((or-part_141)" "(if sub-expr_6" "(if(error-print-source-location)" " (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))" " #f)" " #f)))" -" (if or-part_142 or-part_142 \"\"))))" +" (if or-part_141 or-part_141 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_135)" +"(let-values(((or-part_134)" "(if expr_8" "(if(error-print-source-location)" " (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))" " #f)" " #f)))" -" (if or-part_135 or-part_135 \"\"))))" +" (if or-part_134 or-part_134 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_143)" +"(let-values(((or-part_142)" "(if(error-print-source-location)" -"(let-values(((or-part_144)(extract-source-location sub-expr_6)))" -"(if or-part_144 or-part_144(extract-source-location expr_8)))" +"(let-values(((or-part_143)(extract-source-location sub-expr_6)))" +"(if or-part_143 or-part_143(extract-source-location expr_8)))" " #f)))" -" (if or-part_143 or-part_143 \"\"))))" +" (if or-part_142 or-part_142 \"\"))))" "(raise" "(exn:fail:syntax_0" " (string-append src-loc-str_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_145) sub-expr_6))(if or-part_145 or-part_145 expr_8))" +"(if(let-values(((or-part_144) sub-expr_6))(if or-part_144 or-part_144 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_137) sub-expr_6))(if or-part_137 or-part_137 expr_8)))" +"(let-values(((or-part_136) sub-expr_6))(if or-part_136 or-part_136 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" @@ -13472,9 +13536,9 @@ static const char *startup_source = " (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))" "(void))" "(if(if prior-mi_1" -"(let-values(((or-part_146)(module-instance-attached? prior-mi_1)))" -"(if or-part_146" -" or-part_146" +"(let-values(((or-part_145)(module-instance-attached? prior-mi_1)))" +"(if or-part_145" +" or-part_145" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13511,21 +13575,21 @@ static const char *startup_source = "(if(eq? unavailable-callback63_0 unsafe-undefined) void unavailable-callback63_0)))" "(let-values()" "(let-values(((mi_0)" -"(let-values(((or-part_147)" +"(let-values(((or-part_146)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" " name_30" " #f)))" +"(if or-part_146" +" or-part_146" +"(let-values(((or-part_147)" +"(let-values(((c-ns_0)" +"(let-values(((or-part_148)" +"(namespace-root-namespace ns_23)))" +"(if or-part_148 or-part_148 ns_23))))" +"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" "(if or-part_147" " or-part_147" -"(let-values(((or-part_148)" -"(let-values(((c-ns_0)" -"(let-values(((or-part_149)" -"(namespace-root-namespace ns_23)))" -"(if or-part_149 or-part_149 ns_23))))" -"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" -"(if or-part_148" -" or-part_148" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13584,7 +13648,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))" +"(let-values(((or-part_149)(namespace-root-namespace ns_24)))(if or-part_149 or-part_149 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13603,10 +13667,10 @@ static const char *startup_source = "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" "(values))))" "(let-values(((at-phase_2)" -"(let-values(((or-part_151)" +"(let-values(((or-part_150)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_151" -" or-part_151" +"(if or-part_150" +" or-part_150" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13621,9 +13685,9 @@ static const char *startup_source = "(if(1/namespace? the-struct_40)" "(let-values(((mpi179_0) mpi_15)" "((source-name180_0)" -"(let-values(((or-part_152)(module-source-name m_5)))" -"(if or-part_152" -" or-part_152" +"(let-values(((or-part_151)(module-source-name m_5)))" +"(if or-part_151" +" or-part_151" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" "((root-expand-ctx181_0)(box #f))" "((phase182_0) 0-phase_3)" @@ -13655,9 +13719,9 @@ static const char *startup_source = "(if(module-cross-phase-persistent? m_5)" "(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_153)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_153" -" or-part_153" +"(let-values(((or-part_152)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_152" +" or-part_152" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13757,7 +13821,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_154)" +"(let-values(((or-part_153)" "(let-values(((ns203_0) ns_30)" "((name204_0) name_34)" "((instance-phase205_0)" @@ -13769,8 +13833,8 @@ static const char *startup_source = " ns203_0" " name204_0" " instance-phase205_0))))" -"(if or-part_154" -" or-part_154" +"(if or-part_153" +" or-part_153" "(namespace-create-module-instance!" " ns_30" " name_34" @@ -13795,8 +13859,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_155)(namespace-root-namespace ns_29)))" -"(if or-part_155 or-part_155 ns_29))))" +"(let-values(((or-part_154)(namespace-root-namespace ns_29)))" +"(if or-part_154 or-part_154 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13861,17 +13925,17 @@ static const char *startup_source = "(let-values(((m-ns_5)(module-instance-namespace mi_7)))" "(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))" "(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))" -"(if(if(let-values(((or-part_156) skip-run?_1))" -"(if or-part_156" -" or-part_156" +"(if(if(let-values(((or-part_155) skip-run?_1))" +"(if or-part_155" +" or-part_155" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_157)(not otherwise-available?_1)))" -"(if or-part_157 or-part_157(module-instance-made-available? mi_7)))" +"(let-values(((or-part_156)(not otherwise-available?_1)))" +"(if or-part_156 or-part_156(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -14248,7 +14312,7 @@ static const char *startup_source = "(registry-call-with-lock" "(namespace-module-registry$1 ns_37)" "(lambda()" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_79)" "(lambda()" "(begin" " 'loop" @@ -14314,8 +14378,8 @@ static const char *startup_source = " for-loop_88)" " lst_67)))" "(void)" -"(loop_77)))))))))" -" loop_77)))))))))))))" +"(loop_79)))))))))" +" loop_79)))))))))))))" "(case-lambda" "((ns_38)(begin(namespace-run-available-modules!134_0 ns_38 unsafe-undefined)))" "((ns_39 run-phase132_1)(namespace-run-available-modules!134_0 ns_39 run-phase132_1)))))" @@ -14590,22 +14654,22 @@ static const char *startup_source = "(let-values(((access_1)" "(let-values(((or-part_27)(module-access m_11)))" "(if or-part_27 or-part_27(module-compute-access! m_11)))))" -"(let-values(((a_35)" +"(let-values(((a_36)" "(hash-ref" "(hash-ref access_1(module-binding-phase b_42) '#hasheq())" "(module-binding-sym b_42)" " 'unexported)))" -"(if(let-values(((or-part_10)(eq? a_35 'unexported)))" -"(if or-part_10 or-part_10(eq? a_35 'protected)))" +"(if(let-values(((or-part_10)(eq? a_36 'unexported)))" +"(if or-part_10 or-part_10(eq? a_36 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_158)" +"(if(let-values(((or-part_157)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_12)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_158" -" or-part_158" +"(if or-part_157" +" or-part_157" "(if(module-binding-extra-inspector b_42)" "(inspector-superior?" "(module-binding-extra-inspector b_42)" @@ -14627,7 +14691,7 @@ static const char *startup_source = " #f" "(format" " \"access disallowed by code inspector to ~a ~a\\n from module: ~a\"" -" a_35" +" a_36" " what_0" "(1/module-path-index-resolve(namespace-mpi(module-instance-namespace mi_13))))" " complain-id_0" @@ -14640,7 +14704,7 @@ static const char *startup_source = "(resolve+shift/extra-inspector)" "(lambda(id_13 phase_34 ns_43)" "(begin" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_80)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" @@ -14667,10 +14731,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_78" +"(loop_80" " next-id_0" -"(let-values(((or-part_76) in-s_1))" -"(if or-part_76 or-part_76 id_14)))))" +"(let-values(((or-part_75) in-s_1))" +"(if or-part_75 or-part_75 id_14)))))" "(if(not next-b_0)" "(let-values() b_58)" "(if(if(module-binding? next-b_0)" @@ -14696,22 +14760,22 @@ static const char *startup_source = "(let-values() next-b_0))))))" " c1_24)" "(let-values() b_58))))))))" -" loop_78)" +" loop_80)" " id_13" " #f))))" "(define-values" "(1/prop:set!-transformer 1/set!-transformer? set!-transformer-value)" "(make-struct-type-property" " 'set!-transformer" -"(lambda(v_26 info_1)" +"(lambda(v_28 info_1)" "(let-values((()" "(begin" "(if(let-values(((or-part_11)" -"(if(procedure? v_26)" -"(let-values(((or-part_2)(procedure-arity-includes? v_26 1)))" -"(if or-part_2 or-part_2(procedure-arity-includes? v_26 2)))" +"(if(procedure? v_28)" +"(let-values(((or-part_2)(procedure-arity-includes? v_28 1)))" +"(if or-part_2 or-part_2(procedure-arity-includes? v_28 2)))" " #f)))" -"(if or-part_11 or-part_11(exact-nonnegative-integer? v_26)))" +"(if or-part_11 or-part_11(exact-nonnegative-integer? v_28)))" "(void)" "(let-values()" "(raise-argument-error" @@ -14720,42 +14784,42 @@ static const char *startup_source = " \"(or/c (procedure-arity-includes? proc 1)\\n\"" " \" (procedure-arity-includes? proc 2)\\n\"" " \" exact-nonnegative-integer?)\")" -" v_26)))" +" v_28)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_26)" +"(if(exact-nonnegative-integer? v_28)" "(let-values()" "(begin" -"(if(<= v_26(list-ref info_1 1))" +"(if(<= v_28(list-ref info_1 1))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index >= initialized-field count for structure type\"" " \"field index\"" -" v_26" +" v_28" " \"initialized-field count\"" "(list-ref info_1 1))))" -"(if(member v_26(list-ref info_1 5))" +"(if(member v_28(list-ref info_1 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_26)))))" +" v_28)))))" "(void))" "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" -"(if(integer? v_26)" +"(if(integer? v_28)" "(let-values()" "(lambda(t_36)" -"(let-values(((p_31)(ref_0 t_36 v_26)))" -"(if(if(procedure? p_31)(procedure-arity-includes? p_31 1) #f)" -" p_31" +"(let-values(((p_32)(ref_0 t_36 v_28)))" +"(if(if(procedure? p_32)(procedure-arity-includes? p_32 1) #f)" +" p_32" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" -"(let-values()(lambda(t_15) v_26)))))))))" +"(let-values()(lambda(t_15) v_28)))))))))" "(define-values" "(1/make-set!-transformer)" "(let-values()" @@ -14789,8 +14853,8 @@ static const char *startup_source = "(lambda(t_39)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_97)((set!-transformer-value t_39) t_39)))" -"(if(procedure-arity-includes? v_97 1) v_97(lambda(s_167)(v_97 t_39 s_167)))))))" +"(let-values(((v_99)((set!-transformer-value t_39) t_39)))" +"(if(procedure-arity-includes? v_99 1) v_99(lambda(s_167)(v_99 t_39 s_167)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14837,8 +14901,8 @@ static const char *startup_source = "(let-values(((or-part_32)(procedure? t_41)))" "(if or-part_32" " or-part_32" -"(let-values(((or-part_159)(1/set!-transformer? t_41)))" -"(if or-part_159 or-part_159(1/rename-transformer? t_41))))))))" +"(let-values(((or-part_158)(1/set!-transformer? t_41)))" +"(if or-part_158 or-part_158(1/rename-transformer? t_41))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_42)" @@ -14992,7 +15056,7 @@ static const char *startup_source = "(if(eq? t_44 missing)" "(let-values()" "(values" -"(let-values(((or-part_104)" +"(let-values(((or-part_103)" "(let-values(((lst_73) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -15031,8 +15095,8 @@ static const char *startup_source = " for-loop_93)" " #f" " lst_73)))))" -"(if or-part_104" -" or-part_104" +"(if or-part_103" +" or-part_103" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_17))))" @@ -15048,7 +15112,7 @@ static const char *startup_source = "(if(syntax-tainted?$1 id_18)" " (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" "(void)))))" -"(define-values(cons-ish)(lambda(a_36 b_60)(begin(if(null? b_60) a_36(cons a_36 b_60)))))" +"(define-values(cons-ish)(lambda(a_37 b_60)(begin(if(null? b_60) a_37(cons a_37 b_60)))))" "(define-values" "(free-id-set)" "(lambda(phase_38 ids_0)" @@ -15312,82 +15376,82 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " name_36))))" -"(define-values(expand-context-context)(lambda(v_98)(begin(expand-context/outer-context v_98))))" -"(define-values(expand-context-env)(lambda(v_99)(begin(expand-context/outer-env v_99))))" +"(define-values(expand-context-context)(lambda(v_100)(begin(expand-context/outer-context v_100))))" +"(define-values(expand-context-env)(lambda(v_101)(begin(expand-context/outer-env v_101))))" "(define-values" "(expand-context-post-expansion-scope-action)" -"(lambda(v_100)(begin(expand-context/outer-post-expansion-scope-action v_100))))" -"(define-values(expand-context-scopes)(lambda(v_101)(begin(expand-context/outer-scopes v_101))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_102)(begin(expand-context/outer-def-ctx-scopes v_102))))" -"(define-values(expand-context-binding-layer)(lambda(v_103)(begin(expand-context/outer-binding-layer v_103))))" +"(lambda(v_102)(begin(expand-context/outer-post-expansion-scope-action v_102))))" +"(define-values(expand-context-scopes)(lambda(v_103)(begin(expand-context/outer-scopes v_103))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_104)(begin(expand-context/outer-def-ctx-scopes v_104))))" +"(define-values(expand-context-binding-layer)(lambda(v_105)(begin(expand-context/outer-binding-layer v_105))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_104)(begin(expand-context/outer-reference-records v_104))))" -"(define-values(expand-context-only-immediate?)(lambda(v_105)(begin(expand-context/outer-only-immediate? v_105))))" +"(lambda(v_106)(begin(expand-context/outer-reference-records v_106))))" +"(define-values(expand-context-only-immediate?)(lambda(v_107)(begin(expand-context/outer-only-immediate? v_107))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_106)(begin(expand-context/outer-need-eventually-defined v_106))))" +"(lambda(v_108)(begin(expand-context/outer-need-eventually-defined v_108))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_107)(begin(expand-context/outer-current-introduction-scopes v_107))))" -"(define-values(expand-context-name)(lambda(v_108)(begin(expand-context/outer-name v_108))))" +"(lambda(v_109)(begin(expand-context/outer-current-introduction-scopes v_109))))" +"(define-values(expand-context-name)(lambda(v_110)(begin(expand-context/outer-name v_110))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_109)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_109)))))" +"(lambda(v_111)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_110)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_110)))))" +"(lambda(v_112)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_111)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_111)))))" +"(lambda(v_113)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_112)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_112)))))" +"(lambda(v_114)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_113)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_113)))))" +"(lambda(v_115)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_114)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_114)))))" +"(lambda(v_116)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_115)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_115)))))" +"(lambda(v_117)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-keep-#%expression?)" -"(lambda(v_116)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_116)))))" +"(lambda(v_118)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_117)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_117)))))" +"(lambda(v_119)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_118)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_118)))))" +"(lambda(v_120)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_119)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_119)))))" +"(lambda(v_121)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_120)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_120)))))" +"(lambda(v_122)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_122)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_121)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_121)))))" +"(lambda(v_123)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_123)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_122)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_122)))))" +"(lambda(v_124)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_124)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_123)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_123)))))" +"(lambda(v_125)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_125)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_124)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_124)))))" +"(lambda(v_126)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_126)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_125)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_125)))))" +"(lambda(v_127)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_127)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_126)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_126)))))" +"(lambda(v_128)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_128)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_127)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_127)))))" +"(lambda(v_129)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_129)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 observer5_0 to-parsed?3_0 ns9_0)" @@ -15444,15 +15508,15 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_128) ctx_1))" -"(let-values(((the-struct_14) v_128))" +"(let-values(((v_130) ctx_1))" +"(let-values(((the-struct_14) v_130))" "(if(expand-context/outer? the-struct_14)" "(let-values(((post-expansion-scope27_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" "((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" "((inner31_0)" -"(let-values(((the-struct_41)(root-expand-context/outer-inner v_128)))" +"(let-values(((the-struct_41)(root-expand-context/outer-inner v_130)))" "(if(expand-context/inner? the-struct_41)" "(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" @@ -15516,22 +15580,22 @@ static const char *startup_source = "(let-values(((who_10) who15_0))" "(let-values(((fail-ok?_0) fail-ok?13_0))" "(let-values()" -"(let-values(((or-part_160)(force(current-expand-context))))" -"(if or-part_160" -" or-part_160" +"(let-values(((or-part_159)(force(current-expand-context))))" +"(if or-part_159" +" or-part_159" " (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_129)" +"(lambda(v_131)" "(begin" -"(if(let-values(((or-part_161)(not v_129)))" -"(if or-part_161 or-part_161(if(procedure? v_129)(procedure-arity-includes? v_129 2) #f)))" +"(if(let-values(((or-part_160)(not v_131)))" +"(if or-part_160 or-part_160(if(procedure? v_131)(procedure-arity-includes? v_131 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_129)))" -" v_129))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_131)))" +" v_131))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15539,13 +15603,13 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_130) ctx_2))" -"(let-values(((the-struct_16) v_130))" +"(let-values(((v_132) ctx_2))" +"(let-values(((the-struct_16) v_132))" "(if(expand-context/outer? the-struct_16)" "(let-values(((context39_0) 'expression)" "((name40_0) #f)" "((post-expansion-scope41_0) #f)" -"((inner42_0)(root-expand-context/outer-inner v_130)))" +"((inner42_0)(root-expand-context/outer-inner v_132)))" "(expand-context/outer1.1" " inner42_0" " post-expansion-scope41_0" @@ -15570,10 +15634,10 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_131) ctx_3))" -"(let-values(((the-struct_42) v_131))" +"(let-values(((v_133) ctx_3))" +"(let-values(((the-struct_42) v_133))" "(if(expand-context/outer? the-struct_42)" -"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_131)))" +"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_133)))" "(expand-context/outer1.1" " inner44_0" "(root-expand-context/outer-post-expansion-scope the-struct_42)" @@ -15601,11 +15665,11 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_132) ctx_4))" -"(let-values(((the-struct_43) v_132))" +"(let-values(((v_134) ctx_4))" +"(let-values(((the-struct_43) v_134))" "(if(expand-context/outer? the-struct_43)" "(let-values(((name45_0)(expand-context-name wrt-ctx_0))" -"((inner46_0)(root-expand-context/outer-inner v_132)))" +"((inner46_0)(root-expand-context/outer-inner v_134)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_43)" @@ -15630,10 +15694,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_133) ctx_5))" -"(let-values(((the-struct_44) v_133))" +"(let-values(((v_135) ctx_5))" +"(let-values(((the-struct_44) v_135))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_133)))" +"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_135)))" "(expand-context/outer1.1" " inner48_0" "(root-expand-context/outer-post-expansion-scope the-struct_44)" @@ -15656,11 +15720,11 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_134) ctx_6))" -"(let-values(((the-struct_45) v_134))" +"(let-values(((v_136) ctx_6))" +"(let-values(((the-struct_45) v_136))" "(if(expand-context/outer? the-struct_45)" "(let-values(((inner49_0)" -"(let-values(((the-struct_46)(root-expand-context/outer-inner v_134)))" +"(let-values(((the-struct_46)(root-expand-context/outer-inner v_136)))" "(if(expand-context/inner? the-struct_46)" "(let-values(((to-parsed?50_0) #t)" "((observer51_0) #f)" @@ -16025,8 +16089,8 @@ static const char *startup_source = "(if(let-values(((s_84)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" "(if(pair? s_84)" "(if(let-values(((s_172)(car s_84)))" -"(let-values(((or-part_162)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" -"(if or-part_162 or-part_162(symbol? s_172))))" +"(let-values(((or-part_161)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" +"(if or-part_161 or-part_161(symbol? s_172))))" "(let-values(((s_173)(cdr s_84))) #t)" " #f)" " #f))" @@ -16052,7 +16116,7 @@ static const char *startup_source = "(taint-dispatch)" "(lambda(s_0 proc_6 phase_33)" "(begin" -"((letrec-values(((loop_79)" +"((letrec-values(((loop_81)" "(lambda(s_73 mode_11)" "(begin" " 'loop" @@ -16072,21 +16136,21 @@ static const char *startup_source = "(lambda(s_178)" "(begin" " 's->" -"(loop_79" +"(loop_81" " s_178" "(syntax-taint-mode-property s_178)))))" "((seen_19) #f))" "(let-values(((s_179) s_177)" "((f_2) f_1)" "((gf_8)" -"(lambda(tail?_41 v_29)" +"(lambda(tail?_41 v_31)" "(begin" " 'gf" -"(if(syntax?$1 v_29)" -"(let-values()(s->_3 v_29))" -"(let-values()(f_1 tail?_41 v_29))))))" +"(if(syntax?$1 v_31)" +"(let-values()(s->_3 v_31))" +"(let-values()(f_1 tail?_41 v_31))))))" "((seen_20) seen_19))" -"((letrec-values(((loop_80)" +"((letrec-values(((loop_82)" "(lambda(tail?_42 s_4 prev-depth_8)" "(begin" " 'loop" @@ -16107,8 +16171,8 @@ static const char *startup_source = "(f_2" " tail?_42" "(cons" -"(loop_80 #f(car s_4) depth_8)" -"(loop_80" +"(loop_82 #f(car s_4) depth_8)" +"(loop_82" " #t" "(cdr s_4)" " depth_8))))" @@ -16118,21 +16182,21 @@ static const char *startup_source = "(let-values()(f_2 #f s_4))" "(if(number? s_4)" "(let-values()(f_2 #f s_4))" -"(if(let-values(((or-part_75)" +"(if(let-values(((or-part_74)" "(vector?" " s_4)))" +"(if or-part_74" +" or-part_74" +"(let-values(((or-part_75)" +"(box?" +" s_4)))" "(if or-part_75" " or-part_75" "(let-values(((or-part_76)" -"(box?" +"(prefab-struct-key" " s_4)))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_77)" -"(prefab-struct-key" -" s_4)))" -"(if or-part_77" -" or-part_77" "(hash?" " s_4)))))))" "(let-values()" @@ -16149,7 +16213,7 @@ static const char *startup_source = "(gf_8" " #f" " s_4))))))))))))))" -" loop_80)" +" loop_82)" " #f" " s_179" " 0)))))" @@ -16166,42 +16230,42 @@ static const char *startup_source = "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_81)(pair? cd_0)))" -"(if or-part_81" -" or-part_81" +"(if(let-values(((or-part_80)(pair? cd_0)))" +"(if or-part_80" +" or-part_80" "(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))" "(let-values()" "(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))" "(datum->syntax$1" " #f" "(cons" -"(loop_79(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_81(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" -"(loop_79(car d_19) 'transparent)" +"(loop_81(car d_19) 'transparent)" "(let-values(((s_5)" -"(let-values(((or-part_163)" +"(let-values(((or-part_162)" "(syntax->list$1(cdr d_19))))" -"(if or-part_163 or-part_163(cdr d_19))))" +"(if or-part_162 or-part_162(cdr d_19))))" "((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" "(lambda(s_182)" "(begin" " 's->" -"(loop_79" +"(loop_81" " s_182" "(syntax-taint-mode-property s_182)))))" "((seen_0) #f))" "(let-values(((s_42) s_5)" "((f_39) f_38)" "((gf_9)" -"(lambda(tail?_45 v_39)" +"(lambda(tail?_45 v_41)" "(begin" " 'gf" -"(if(syntax?$1 v_39)" -"(let-values()(s->_4 v_39))" -"(let-values()(f_38 tail?_45 v_39))))))" +"(if(syntax?$1 v_41)" +"(let-values()(s->_4 v_41))" +"(let-values()(f_38 tail?_45 v_41))))))" "((seen_21) seen_0))" -"((letrec-values(((loop_81)" +"((letrec-values(((loop_83)" "(lambda(tail?_46 s_183 prev-depth_9)" "(begin" " 'loop" @@ -16225,11 +16289,11 @@ static const char *startup_source = "(f_39" " tail?_46" "(cons" -"(loop_81" +"(loop_83" " #f" "(car s_183)" " depth_9)" -"(loop_81" +"(loop_83" " #t" "(cdr s_183)" " depth_9))))" @@ -16242,21 +16306,21 @@ static const char *startup_source = "(if(number? s_183)" "(let-values()" "(f_39 #f s_183))" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_163)" "(vector?" " s_183)))" -"(if or-part_164" -" or-part_164" +"(if or-part_163" +" or-part_163" "(let-values(((or-part_21)" "(box?" " s_183)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_165)" +"(let-values(((or-part_164)" "(prefab-struct-key" " s_183)))" -"(if or-part_165" -" or-part_165" +"(if or-part_164" +" or-part_164" "(hash?" " s_183)))))))" "(let-values()" @@ -16273,7 +16337,7 @@ static const char *startup_source = "(gf_9" " #f" " s_183))))))))))))))" -" loop_81)" +" loop_83)" " #f" " s_42" " 0)))))" @@ -16281,8 +16345,8 @@ static const char *startup_source = "(if(syntax-any-macro-scopes? s_73)" "(1/syntax-property-remove s_73 original-property-sym)" " s_73))))" -"(let-values()(loop_79 s_73 'transparent)))))" -"(let-values()(loop_79 s_73 'transparent)))))" +"(let-values()(loop_81 s_73 'transparent)))))" +"(let-values()(loop_81 s_73 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_73)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_33)))" @@ -16291,21 +16355,21 @@ static const char *startup_source = "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_79 s_73 'transparent))" +"(let-values()(loop_81 s_73 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_79 s_73 'transparent-binding))" -"(let-values()(loop_79 s_73 'opaque))))))))))))))))" -" loop_79)" +"(let-values()(loop_81 s_73 'transparent-binding))" +"(let-values()(loop_81 s_73 'opaque))))))))))))))))" +" loop_81)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" "(lambda(s_186)" "(begin" -"(let-values(((or-part_166)(syntax-property$1 s_186 'taint-mode)))" -"(if or-part_166 or-part_166(syntax-property$1 s_186 'certify-mode))))))" +"(let-values(((or-part_165)(syntax-property$1 s_186 'taint-mode)))" +"(if or-part_165 or-part_165(syntax-property$1 s_186 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" "(lambda(s_187)(begin(1/syntax-property-remove(1/syntax-property-remove s_187 'taint-mode) 'certify-mode))))" @@ -16653,7 +16717,7 @@ static const char *startup_source = " null" "(unsafe-immutable-hash-iterate-first ht_78))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_135)(vector-ref v_135 0))))" +"((temp3_2)(lambda(v_137)(vector-ref v_137 0))))" "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16708,7 +16772,7 @@ static const char *startup_source = " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_80)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16777,7 +16841,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_78" +"(loop_80" " fallback_0" " layer_1))" " fold-var_70))))" @@ -16794,7 +16858,7 @@ static const char *startup_source = " null" " lst_88" " start_14))))))))))" -" loop_78)" +" loop_80)" " info_3" " 0)))" "(let-values(((common-scopes_0)" @@ -16826,7 +16890,7 @@ static const char *startup_source = "(list->set(car relevant-scope-sets_0))" " lst_90))))))" "(string-append" -"((letrec-values(((loop_81)" +"((letrec-values(((loop_83)" "(lambda(info_5 layer_2)" "(begin" " 'loop" @@ -16841,10 +16905,10 @@ static const char *startup_source = "(let-values(((lst_92)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_37 b_64)" +"(lambda(a_38 b_64)" "(begin" " 'temp2" -"(if(hash-ref a_37 'match? #f)" +"(if(hash-ref a_38 'match? #f)" "(not(hash-ref b_64 'match? #f))" " #f)))))" "(sort7.1 #f #f temp1_1 temp2_2))))" @@ -16931,7 +16995,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_81" +"(loop_83" " fallback_1" " layer_3))" " fold-var_75))))" @@ -16947,7 +17011,7 @@ static const char *startup_source = " null" " lst_94" " start_15)))))))))))" -" loop_81)" +" loop_83)" " info_3" " 0)" "(if(set-empty? common-scopes_0)" @@ -16990,7 +17054,7 @@ static const char *startup_source = "(lambda(scopes_19 common-scopes_1)" "(begin" "(let-values(((strs_0)" -"((letrec-values(((loop_55)" +"((letrec-values(((loop_44)" "(lambda(strs_1 scopes_20)" "(begin" " 'loop" @@ -17001,11 +17065,11 @@ static const char *startup_source = "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" -"(loop_55" +"(loop_44" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" "(cdr scopes_20))" -"(loop_55(cons str_3 strs_1)(cdr scopes_20))))))))))" -" loop_55)" +"(loop_44(cons str_3 strs_1)(cdr scopes_20))))))))))" +" loop_44)" " null" "(if(set-empty? common-scopes_1)" " scopes_19" @@ -17127,12 +17191,12 @@ static const char *startup_source = " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" "((letrec-values(((loop_6)" -"(lambda(v_136 ht_79)" +"(lambda(v_138 ht_79)" "(begin" " 'loop" -"(if(identifier? v_136)" +"(if(identifier? v_138)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_79(syntax-e$1 v_136) null)))" +"(let-values(((l_49)(hash-ref ht_79(syntax-e$1 v_138) null)))" "(begin" "(let-values(((lst_102) l_49))" "(begin" @@ -17155,7 +17219,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_20" -" v_136" +" v_138" " phase_44)" "(let-values()" "(raise-syntax-error$1" @@ -17164,7 +17228,7 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_3" -" v_136))" +" v_138))" "(void)))" "(values)))))" "(values)))))" @@ -17175,9 +17239,9 @@ static const char *startup_source = " for-loop_111)" " lst_102)))" "(void)" -"(hash-set ht_79(syntax-e$1 v_136)(cons v_136 l_49)))))" -"(if(pair? v_136)" -"(let-values()(loop_6(cdr v_136)(loop_6(car v_136) ht_79)))" +"(hash-set ht_79(syntax-e$1 v_138)(cons v_138 l_49)))))" +"(if(pair? v_138)" +"(let-values()(loop_6(cdr v_138)(loop_6(car v_138) ht_79)))" "(let-values() ht_79)))))))" " loop_6)" " ids_2" @@ -17311,9 +17375,9 @@ static const char *startup_source = "(intern-module-path-index!)" "(lambda(t_45 mpi_20)" "(begin" -"(let-values(((or-part_73)(hash-ref(mpi-intern-table-fast t_45) mpi_20 #f)))" -"(if or-part_73" -" or-part_73" +"(let-values(((or-part_72)(hash-ref(mpi-intern-table-fast t_45) mpi_20 #f)))" +"(if or-part_72" +" or-part_72" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" "(if(not name_2)" "(let-values()(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 mpi_20) mpi_20))" @@ -17326,9 +17390,9 @@ static const char *startup_source = "(let-values(((at-name_1)(make-hasheq)))" "(begin(hash-set!(mpi-intern-table-normal t_45) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_80)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_80" -" or-part_80" +"(let-values(((or-part_79)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_79" +" or-part_79" "(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" " mpi_20" @@ -17453,9 +17517,9 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_78)(hash-ref positions_0 mpi_23 #f)))" -"(if or-part_78" -" or-part_78" +"(let-values(((or-part_77)(hash-ref positions_0 mpi_23 #f)))" +"(if or-part_77" +" or-part_77" "(let-values(((pos_15)(hash-count positions_0)))" "(begin(hash-set! positions_0 mpi_23 pos_15) pos_15))))))" "(void))))))" @@ -17464,12 +17528,12 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_137)" +"(lambda(v_139)" "(begin" " 'unique-list" -"(if(pair? v_137)" +"(if(pair? v_139)" "(reverse$1" -"(let-values(((lst_104) v_137))" +"(let-values(((lst_104) v_139))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17496,7 +17560,7 @@ static const char *startup_source = " for-loop_113)" " null" " lst_104))))" -" v_137)))))" +" v_139)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" @@ -17510,7 +17574,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_95" -"(let-values(((k_19 v_67)(hash-iterate-key+value ht_80 i_95)))" +"(let-values(((k_19 v_69)(hash-iterate-key+value ht_80 i_95)))" "(let-values(((table_118)" "(let-values(((table_112) table_117))" "(let-values(((table_119)" @@ -17518,7 +17582,7 @@ static const char *startup_source = "(let-values(((key_45 val_38)" "(let-values()" "(values" -" v_67" +" v_69" " k_19))))" "(hash-set" " table_112" @@ -17555,7 +17619,7 @@ static const char *startup_source = "(hash-ref" " rev-positions_0" " i_96)))" -"((letrec-values(((loop_82)" +"((letrec-values(((loop_84)" "(lambda(mpi_25)" "(begin" " 'loop" @@ -17572,7 +17636,7 @@ static const char *startup_source = "(begin" "(if base_16" "(let-values()" -"(loop_82" +"(loop_84" " base_16))" "(void))" "(hash-set!" @@ -17580,7 +17644,7 @@ static const char *startup_source = " mpi_25" "(hash-count" " gen-order_0))))))))))" -" loop_82)" +" loop_84)" " mpi_24)))" "(values)))))" "(values)))))" @@ -17601,7 +17665,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_97" -"(let-values(((k_20 v_36)" +"(let-values(((k_20 v_38)" "(hash-iterate-key+value ht_81 i_97)))" "(let-values(((table_15)" "(let-values(((table_121) table_120))" @@ -17611,7 +17675,7 @@ static const char *startup_source = " val_39)" "(let-values()" "(values" -" v_36" +" v_38" " k_20))))" "(hash-set" " table_121" @@ -17632,7 +17696,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_138)(make-vector len_12 0)))" +"(let-values(((v_140)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17656,7 +17720,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_138" +" v_140" " i_100" "(let-values()" "(let-values(((mpi_26)" @@ -17675,13 +17739,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_167)" +"(let-values(((or-part_166)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_26)))))" -"(if or-part_167" -" or-part_167" +"(if or-part_166" +" or-part_166" " 'self))))" "(if(not" " base_17)" @@ -17712,7 +17776,7 @@ static const char *startup_source = " for-loop_28)" " 0" " start_17)))))" -" v_138))))))" +" v_140))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -17826,7 +17890,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_14)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_139)(make-vector len_14 0)))" +"(let-values(((v_141)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -17841,20 +17905,20 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_21 len_4)" -"(let-values(((p_32)(unsafe-vector-ref vec_36 pos_21)))" +"(let-values(((p_33)(unsafe-vector-ref vec_36 pos_21)))" "(let-values(((i_48)" "(let-values(((i_107) i_106))" "(let-values(((i_108)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_139" +" v_141" " i_107" "(let-values()" -"(vector*-ref gen_0 p_32)))" +"(vector*-ref gen_0 p_33)))" "(unsafe-fx+ 1 i_107)))))" "(values i_108)))))" -"(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_32))" +"(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_33))" "(not #f)" " #f)" "(for-loop_118 i_48(unsafe-fx+ 1 pos_21))" @@ -17863,7 +17927,7 @@ static const char *startup_source = " for-loop_118)" " 0" " 0)))))" -" v_139)))))))))" +" v_141)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17932,22 +17996,22 @@ static const char *startup_source = " lst_105)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_140)" +"(lambda(v_142)" "(begin" -"(let-values(((or-part_168)(null? v_140)))" +"(let-values(((or-part_167)(null? v_142)))" +"(if or-part_167" +" or-part_167" +"(let-values(((or-part_168)(boolean? v_142)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)(boolean? v_140)))" +"(let-values(((or-part_139)" +"(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" +"(if or-part_139" +" or-part_139" +"(let-values(((or-part_169)(symbol? v_142)))" "(if or-part_169" " or-part_169" -"(let-values(((or-part_140)" -"(if(fixnum? v_140)(if(< v_140(sub1(expt 2 30)))(> v_140(-(expt 2 30))) #f) #f)))" -"(if or-part_140" -" or-part_140" -"(let-values(((or-part_170)(symbol? v_140)))" -"(if or-part_170" -" or-part_170" -"(let-values(((or-part_46)(char? v_140)))(if or-part_46 or-part_46(keyword? v_140))))))))))))))" +"(let-values(((or-part_46)(char? v_142)))(if or-part_46 or-part_46(keyword? v_142))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17996,11 +18060,11 @@ static const char *startup_source = "(lambda(syntax-support?2_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_141) v4_0))" +"(let-values(((v_143) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0) syntax-support?2_0))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_141)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_143)))" "(let-values(((state_25)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -18009,64 +18073,64 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_142)(begin 'add-frontier!(set! frontier_0(cons v_142 frontier_0))))" -"((kind_3 v_98)(add-frontier!_0 v_98)))))" +"((v_144)(begin 'add-frontier!(set! frontier_0(cons v_144 frontier_0))))" +"((kind_3 v_100)(add-frontier!_0 v_100)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_100)" +"(lambda(v_102)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_11)" -"(lambda(v_102)" +"(lambda(v_104)" "(begin" " 'loop" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_170)" "(interned-literal?" -" v_102)))" -"(if or-part_171" -" or-part_171" +" v_104)))" +"(if or-part_170" +" or-part_170" "(1/module-path-index?" -" v_102)))" +" v_104)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_102" +" v_104" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_102" +" v_104" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_102" +" v_104" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_102)" +" v_104)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_102" +" v_104" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_102)" -" v_102" +" v_104)" +" v_104" " add-frontier!_0" " state_25)))" "(if(serialize?" -" v_102)" +" v_104)" "(let-values()" "((serialize-ref" -" v_102)" -" v_102" +" v_104)" +" v_104" "(case-lambda" "((sub-v_0)" "(loop_11" @@ -18077,31 +18141,31 @@ static const char *startup_source = " sub-v_1)))" " state_25))" "(if(pair?" -" v_102)" +" v_104)" "(let-values()" "(begin" "(loop_11" "(car" -" v_102))" +" v_104))" "(loop_11" "(cdr" -" v_102))))" +" v_104))))" "(if(vector?" -" v_102)" +" v_104)" "(let-values()" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_171)" "(immutable?" -" v_102)))" -"(if or-part_172" -" or-part_172" +" v_104)))" +"(if or-part_171" +" or-part_171" "(zero?" "(vector-length" -" v_102))))" +" v_104))))" "(begin" "(let-values(((vec_38" " len_15)" "(let-values(((vec_39)" -" v_102))" +" v_104))" "(begin" "(check-vector" " vec_39)" @@ -18146,14 +18210,14 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_102" +" v_104" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_40" " len_16)" "(let-values(((vec_41)" -" v_102))" +" v_104))" "(begin" "(check-vector" " vec_41)" @@ -18196,31 +18260,31 @@ static const char *startup_source = " 0)))" "(void)))))" "(if(box?" -" v_102)" +" v_104)" "(let-values()" "(if(immutable?" -" v_102)" +" v_104)" "(loop_11" "(unbox" -" v_102))" +" v_104))" "(begin" "(hash-set!" " mutables_0" -" v_102" +" v_104" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_102)))))" +" v_104)))))" "(if(hash?" -" v_102)" +" v_104)" "(let-values()" "(if(immutable?" -" v_102)" +" v_104)" "(begin" "(let-values(((lst_108)" "(sorted-hash-keys" -" v_102)))" +" v_104)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18251,7 +18315,7 @@ static const char *startup_source = " k_21)" "(loop_11" "(hash-ref" -" v_102" +" v_104" " k_21))))" "(values)))))" "(values)))))" @@ -18267,13 +18331,13 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_102" +" v_104" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_110)" "(sorted-hash-keys" -" v_102)))" +" v_104)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18304,7 +18368,7 @@ static const char *startup_source = " k_22)" "(add-frontier!_0" "(hash-ref" -" v_102" +" v_104" " k_22))))" "(values)))))" "(values)))))" @@ -18318,7 +18382,7 @@ static const char *startup_source = " lst_110)))" "(void)))))" "(if(prefab-struct-key" -" v_102)" +" v_104)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18335,7 +18399,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_46))" "(struct->vector" -" v_102)" +" v_104)" " 1" " #f" " 1)))" @@ -18374,7 +18438,7 @@ static const char *startup_source = " start*_1)))" "(void)))" "(if(srcloc?" -" v_102)" +" v_104)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18391,7 +18455,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_48))" "(struct->vector" -" v_102)" +" v_104)" " 1" " #f" " 1)))" @@ -18433,13 +18497,13 @@ static const char *startup_source = "(void))))))))))" "(hash-set!" " objs_0" -" v_102" +" v_104" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_11)" -" v_100)" +" v_102)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -18459,7 +18523,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_113)" -"(let-values(((v_143)" +"(let-values(((v_145)" "(unsafe-car" " lst_113))" "((rest_56)" @@ -18472,7 +18536,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_143))" +" v_145))" "(values)))))" "(values)))))" "(if(not" @@ -18485,7 +18549,7 @@ static const char *startup_source = " lst_112)))" "(void))))))))))" " frontier-loop_0)" -" v_141)" +" v_143)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" @@ -18587,12 +18651,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_144)" +"(let-values(((v_146)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_173)(not(keyword? v_144))))" -"(if or-part_173 or-part_173(eq? '#:quote v_144))))))))" +"(let-values(((or-part_172)(not(keyword? v_146))))" +"(if or-part_172 or-part_172(eq? '#:quote v_146))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18611,20 +18675,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_145)" +"((v_147)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_145 #f)" +"(if(hash-ref shares_0 v_147 #f)" "(let-values()" "(let-values(((n_22)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_145))))" +"(hash-ref objs_0 v_147))))" "(begin" "(ser-push!_16 'tag '#:ref)" "(ser-push!_16 'exact n_22))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_145 #f)))" +"(hash-ref mutables_0 v_147 #f)))" "(if c1_25" "((lambda(n_23)" "(begin" @@ -18632,49 +18696,49 @@ static const char *startup_source = "(ser-push!_16 'exact n_23)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_145)))))))" -"((kind_5 v_146)" +"(ser-push-encoded!_0 v_147)))))))" +"((kind_5 v_148)" "(let-values(((tmp_18) kind_5))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_146 stream_0))" +"(set! stream_0(cons v_148 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_146))" +"(let-values()(ser-push!_16 'exact v_148))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_146 #f)" +"(if(hash-ref shares_0 v_148 #f)" "(let-values()" "(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_146))))" +" v_148))))" "(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_146" +" v_148" " #f)))" "(if c2_1" "((lambda(n_25)" "(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_16 v_146))))))" -"(let-values()(ser-push!_16 v_146)))))))))" +"(ser-push!_16 v_148))))))" +"(let-values()(ser-push!_16 v_148)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_147)" +"(lambda(v_149)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_147)" +"(if(keyword? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_147)))" -"(if(1/module-path-index? v_147)" +"(ser-push!_16 'exact v_149)))" +"(if(1/module-path-index? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -18682,16 +18746,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_147))))" -"(if(serialize? v_147)" +" v_149))))" +"(if(serialize? v_149)" "(let-values()" -"((serialize-ref v_147)" -" v_147" +"((serialize-ref v_149)" +" v_149" " ser-push!_16" " state_25))" -"(if(if(list? v_147)" -"(if(pair? v_147)" -"(pair?(cdr v_147))" +"(if(if(list? v_149)" +"(if(pair? v_149)" +"(pair?(cdr v_149))" " #f)" " #f)" "(let-values()" @@ -18707,11 +18771,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_147))" +"(length v_149))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_116)" -" v_147))" +" v_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18765,9 +18829,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))" +" v_149)))" "(void)))))))" -"(if(pair? v_147)" +"(if(pair? v_149)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18782,12 +18846,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_147))" +"(car v_149))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_147))" +"(ser-push!_16(cdr v_149))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18798,9 +18862,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))" +" v_149)))" "(void)))))))))" -"(if(box? v_147)" +"(if(box? v_149)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18813,7 +18877,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(unbox v_147))" +"(ser-push!_16(unbox v_149))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18822,9 +18886,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))" +" v_149)))" "(void)))))))" -"(if(vector? v_147)" +"(if(vector? v_149)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18839,13 +18903,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_147))" +" v_149))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_147))" +" v_149))" "(begin" "(check-vector" " vec_43)" @@ -18903,15 +18967,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))" +" v_149)))" "(void)))))))" -"(if(hash? v_147)" +"(if(hash? v_149)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_84)" -" v_147))" +" v_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18964,21 +19028,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_147)" +" v_149)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_147)" +" v_149)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_147)" +" v_149)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_147)" +" v_149)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18989,11 +19053,11 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_147))" +" v_149))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_147)))" +" v_149)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_117)" " ks_0))" @@ -19037,15 +19101,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_147" +" v_149" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_174)" +"(let-values(((or-part_173)" " as-set?_0))" -"(if or-part_174" -" or-part_174" +"(if or-part_173" +" or-part_173" "(quoted?_0" " v-pos_1)))" " #f)" @@ -19070,16 +19134,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))" +" v_149)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_147)))" +" v_149)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_147)))" +" v_149)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19170,91 +19234,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))" +" v_149)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_147)" +"(if(srcloc? v_149)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_147))" +"(srcloc-source v_149))" "(ser-push!_16" -"(srcloc-line v_147))" +"(srcloc-line v_149))" "(ser-push!_16" -"(srcloc-column v_147))" +"(srcloc-column v_149))" "(ser-push!_16" -"(srcloc-position v_147))" +"(srcloc-position v_149))" "(ser-push!_16" -"(srcloc-span v_147))))" +"(srcloc-span v_149))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_147)))))))))))))))))" +" v_149)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_148)" +"(lambda(v_150)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_148)" +"(if(serialize-fill!? v_150)" "(let-values()" -"((serialize-ref v_148)" -" v_148" +"((serialize-ref v_150)" +" v_150" " ser-push!_16" " state_25))" -"(if(box? v_148)" +"(if(box? v_150)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_148)" +"(if(vector? v_150)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_148))))" -"(if(hash? v_148)" +"(vector-length v_150))))" +"(if(hash? v_150)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_148)" +"(if(hash-eq? v_150)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_148)" +"(if(hash-eqv? v_150)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_148))))))))))" +" v_150))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_149)" +"(lambda(v_151)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_149)" +"(if(serialize-fill!? v_151)" "(let-values()" -"((serialize-fill!-ref v_149)" -" v_149" +"((serialize-fill!-ref v_151)" +" v_151" " ser-push!_16" " state_25))" -"(if(box? v_149)" +"(if(box? v_151)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:set-box!)" -"(ser-push!_16(unbox v_149))))" -"(if(vector? v_149)" +"(ser-push!_16(unbox v_151))))" +"(if(vector? v_151)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:set-vector!)" "(ser-push!_16" " 'exact" -"(vector-length v_149))" +"(vector-length v_151))" "(let-values(((vec_45 len_18)" "(let-values(((vec_46)" -" v_149))" +" v_151))" "(begin" "(check-vector vec_46)" "(values" @@ -19270,7 +19334,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_150)" +"(let-values(((v_152)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19281,7 +19345,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_150))" +" v_152))" "(values)))))" "(values)))))" "(if(not" @@ -19295,7 +19359,7 @@ static const char *startup_source = " for-loop_135)" " 0)))" "(void)))" -"(if(hash? v_149)" +"(if(hash? v_151)" "(let-values()" "(let-values((()" "(begin" @@ -19307,11 +19371,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(hash-count v_149))" +"(hash-count v_151))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_149)))" +" v_151)))" "(begin" "(let-values(((lst_119) ks_1))" "(begin" @@ -19343,7 +19407,7 @@ static const char *startup_source = " k_25)" "(ser-push!_16" "(hash-ref" -" v_149" +" v_151" " k_25))))" "(values)))))" "(values)))))" @@ -19360,7 +19424,7 @@ static const char *startup_source = "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_149))))))))))" +" v_151))))))))))" "(let-values(((rev-mutables_0)" "(let-values(((ht_85) mutables_0))" "(begin" @@ -19374,7 +19438,7 @@ static const char *startup_source = " 'for-loop" "(if i_114" "(let-values(((k_26" -" v_151)" +" v_153)" "(hash-iterate-key+value" " ht_85" " i_114)))" @@ -19387,7 +19451,7 @@ static const char *startup_source = " val_42)" "(let-values()" "(values" -" v_151" +" v_153" " k_26))))" "(hash-set" " table_127" @@ -19613,7 +19677,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_16 v_141)" +"(ser-push!_16 v_143)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -19748,13 +19812,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_45 end_18)(unsafe-fx< pos_46 len_19) #f)" -"(let-values(((v_152)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_154)(unsafe-vector-ref vec_47 pos_46)))" "(let-values(((pos_47)" "(let-values(((pos_48) pos_44))" "(let-values(((pos_49)" "(let-values()" "(decode-fill!" -" v_152" +" v_154" " mutable-fill-vec_0" " pos_48" " mpis_7" @@ -20011,7 +20075,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 10)" "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))" "(let-values()" -"(let-values(((v_153 next-pos_18)" +"(let-values(((v_155 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" @@ -20019,10 +20083,10 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_153) next-pos_18))))" +"(values(box-immutable v_155) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" -"(let-values(((a_38 next-pos_19)" +"(let-values(((a_39 next-pos_19)" "(decode" " vec_50" "(add1 pos_51)" @@ -20038,7 +20102,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(cons a_38 d_24) next-pos_20))))" +"(values(cons a_39 d_24) next-pos_20))))" "(if(unsafe-fx< index_0 13)" "(let-values()" "(let-values(((len_20)(vector*-ref vec_50(add1 pos_51))))" @@ -20059,9 +20123,9 @@ static const char *startup_source = "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_154" +"(let-values(((v_156" " next-pos_22)" -"(let-values(((v_155" +"(let-values(((v_157" " next-pos_23)" "(decode" " vec_50" @@ -20071,13 +20135,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_155" +" v_157" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_127" -" v_154)" +" v_156)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" @@ -20128,7 +20192,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_156" +"(let-values(((v_158" " next-pos_25)" "(decode" " vec_50" @@ -20141,7 +20205,7 @@ static const char *startup_source = "(hash-set" " ht_90" " k_27" -" v_156)" +" v_158)" " next-pos_25))))))" "(values ht_91 pos_61)))))" "(if(not #f)" @@ -20231,7 +20295,7 @@ static const char *startup_source = "((pos_70) pos_67))" "(let-values(((r_34 pos_71)" "(let-values()" -"(let-values(((v_157" +"(let-values(((v_159" " next-pos_29)" "(decode" " vec_50" @@ -20242,7 +20306,7 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_157" +" v_159" " r_33)" " next-pos_29)))))" "(values r_34 pos_71)))))" @@ -20594,7 +20658,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_158 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_160 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" "(if(equal? tmp_23 #f)" @@ -20603,7 +20667,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_67)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_158 c_21) next-pos_67)))" +"(begin(set-box! v_160 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20631,7 +20695,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_158 i_78 c_22)" +"(vector-set! v_160 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" "(if(not #f)(for-loop_149 pos_75(+ pos_74 inc_17)) pos_75)))" @@ -20674,7 +20738,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_158 key_52 val_44)" +"(hash-set! v_160 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" "(if(not #f)(for-loop_150 pos_80(+ pos_79 inc_18)) pos_80)))" @@ -20686,41 +20750,41 @@ static const char *startup_source = "(let-values()" "(let-values(((c_23 next-pos_70)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_158 c_23) next-pos_70)))" +"(begin(deserialize-scope-fill! v_160 c_23) next-pos_70)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" -"(let-values(((a_39 next-pos_71)" +"(let-values(((a_40 next-pos_71)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_51 next-pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_158 a_39 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_160 a_40 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_159)" +"(lambda(v_161)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" "(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_83)" -"(lambda(v_160)" +"((letrec-values(((loop_85)" +"(lambda(v_162)" "(begin" " 'loop" -"(if(interned-literal? v_160)" +"(if(interned-literal? v_162)" "(let-values()(void))" -"(if(hash-ref seen_22 v_160 #f)" +"(if(hash-ref seen_22 v_162 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_160 #t)" -"(if(scope-with-bindings? v_160)" +"(hash-set! seen_22 v_162 #t)" +"(if(scope-with-bindings? v_162)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_160))" -"((reach-scopes-ref v_160) v_160 loop_83)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_160 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_162))" +"((reach-scopes-ref v_162) v_162 loop_85)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_162 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -20741,7 +20805,7 @@ static const char *startup_source = "(begin" "(let-values()" "(proc_7" -" loop_83))" +" loop_85))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20751,26 +20815,26 @@ static const char *startup_source = " for-loop_151)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_160)" -"((scope-with-bindings-ref v_160)" -" v_160" +"(hash-remove! scope-triggers_0 v_162)" +"((scope-with-bindings-ref v_162)" +" v_162" " get-reachable-scopes_4" -" loop_83" +" loop_85" "(lambda(sc-unreachable_0 b_65)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" "(lambda(l_51)(cons b_65 l_51))" " null)))))" -"(if(reach-scopes? v_160)" -"(let-values()((reach-scopes-ref v_160) v_160 loop_83))" -"(if(pair? v_160)" -"(let-values()(begin(loop_83(car v_160))(loop_83(cdr v_160))))" -"(if(vector? v_160)" +"(if(reach-scopes? v_162)" +"(let-values()((reach-scopes-ref v_162) v_162 loop_85))" +"(if(pair? v_162)" +"(let-values()(begin(loop_85(car v_162))(loop_85(cdr v_162))))" +"(if(vector? v_162)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_160))" +"(let-values(((vec_53) v_162))" "(begin" "(check-vector vec_53)" "(values" @@ -20793,7 +20857,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_85" " e_23))" "(values)))))" "(values)))))" @@ -20805,12 +20869,12 @@ static const char *startup_source = " for-loop_152)" " 0)))" "(void)))" -"(if(box? v_160)" -"(let-values()(loop_83(unbox v_160)))" -"(if(hash? v_160)" +"(if(box? v_162)" +"(let-values()(loop_85(unbox v_162)))" +"(if(hash? v_162)" "(let-values()" "(begin" -"(let-values(((ht_92) v_160))" +"(let-values(((ht_92) v_162))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -20821,7 +20885,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_128" -"(let-values(((k_30 v_161)" +"(let-values(((k_30 v_163)" "(hash-iterate-key+value" " ht_92" " i_128)))" @@ -20832,10 +20896,10 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_83" +"(loop_85" " k_30)" -"(loop_83" -" v_161)))" +"(loop_85" +" v_163)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20848,7 +20912,7 @@ static const char *startup_source = " for-loop_153)" "(hash-iterate-first ht_92))))" "(void)))" -"(if(prefab-struct-key v_160)" +"(if(prefab-struct-key v_162)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20858,7 +20922,7 @@ static const char *startup_source = "(lambda(x_52)(vector? x_52))" "(lambda(x_53)" "(unsafe-vector-length x_53))" -"(struct->vector v_160)" +"(struct->vector v_162)" " 1" " #f" " 1)))" @@ -20879,7 +20943,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_85" " e_24))" "(values)))))" "(values)))))" @@ -20891,11 +20955,11 @@ static const char *startup_source = " for-loop_154)" " start*_4)))" "(void)))" -"(if(srcloc? v_160)" -"(let-values()(loop_83(srcloc-source v_160)))" +"(if(srcloc? v_162)" +"(let-values()(loop_85(srcloc-source v_162)))" "(let-values()(void))))))))))))))))))" -" loop_83)" -" v_159)" +" loop_85)" +" v_161)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21920,11 +21984,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_175)" +"(let-values(((or-part_174)" "(not" " shortcut-table_0)))" -"(if or-part_175" -" or-part_175" +"(if or-part_174" +" or-part_174" "(hash-ref" " shortcut-table_0" " sym_35" @@ -22712,8 +22776,8 @@ static const char *startup_source = "(extract-module-definitions)" "(lambda(r+p_12)" "(begin" -"(let-values(((or-part_176)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" -"(if or-part_176 or-part_176 null)))))" +"(let-values(((or-part_175)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" +"(if or-part_175 or-part_175 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_13 mod-name_12 phase_62)" @@ -22945,8 +23009,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_45" -"(if(let-values(((or-part_177) as-protected?_0))" -"(if or-part_177 or-part_177 as-transformer?_3))" +"(if(let-values(((or-part_176) as-protected?_0))" +"(if or-part_176 or-part_176 as-transformer?_3))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" " plain-binding_0))))" "(if(same-binding? b_68 binding_13)" @@ -23121,7 +23185,7 @@ static const char *startup_source = "(let-values()" " binding_14)" "(let-values()" -"((letrec-values(((loop_84)" +"((letrec-values(((loop_86)" "(lambda(binding_15)" "(begin" " 'loop" @@ -23129,7 +23193,7 @@ static const char *startup_source = " binding_15)" "(let-values()" "(provided1.1" -"(loop_84" +"(loop_86" "(provided-binding" " binding_15))" "(provided-protected?" @@ -23141,7 +23205,7 @@ static const char *startup_source = " binding_15" " from-mpi_7" " to-mpi_6)))))))" -" loop_84)" +" loop_86)" " binding_14)))))))" "(hash-set" " table_103" @@ -23258,7 +23322,7 @@ static const char *startup_source = "(let-values(((initial-require?_0) initial-require?13_0))" "(let-values(((who_13) who14_0))" "(let-values()" -"((letrec-values(((loop_85)" +"((letrec-values(((loop_87)" "(lambda(reqs_1" " top-req_0" " phase-shift_9" @@ -23438,12 +23502,12 @@ static const char *startup_source = " for-meta118_1" " phase-level119_1" " spec120_1))))))" -"(let-values(((p_33)" +"(let-values(((p_34)" "(syntax-e$1" " phase-level119_0)))" "(begin" "(if(phase?" -" p_33)" +" p_34)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23451,16 +23515,16 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_85" +"(loop_87" " spec120_0" -"(let-values(((or-part_178)" +"(let-values(((or-part_177)" " top-req_0))" -"(if or-part_178" -" or-part_178" +"(if or-part_177" +" or-part_177" " req_0))" "(phase+" " phase-shift_9" -" p_33)" +" p_34)" " just-meta_0" " adjust_0" " #f" @@ -23531,12 +23595,12 @@ static const char *startup_source = " #t" " for-syntax126_1" " spec127_1))))))" -"(loop_85" +"(loop_87" " spec127_0" -"(let-values(((or-part_179)" +"(let-values(((or-part_178)" " top-req_0))" -"(if or-part_179" -" or-part_179" +"(if or-part_178" +" or-part_178" " req_0))" "(phase+" " phase-shift_9" @@ -23611,12 +23675,12 @@ static const char *startup_source = " #t" " for-template130_1" " spec131_1))))))" -"(loop_85" +"(loop_87" " spec131_0" -"(let-values(((or-part_180)" +"(let-values(((or-part_179)" " top-req_0))" -"(if or-part_180" -" or-part_180" +"(if or-part_179" +" or-part_179" " req_0))" "(phase+" " phase-shift_9" @@ -23691,12 +23755,12 @@ static const char *startup_source = " #t" " for-label134_1" " spec135_1))))))" -"(loop_85" +"(loop_87" " spec135_0" -"(let-values(((or-part_181)" +"(let-values(((or-part_180)" " top-req_0))" -"(if or-part_181" -" or-part_181" +"(if or-part_180" +" or-part_180" " req_0))" "(phase+" " phase-shift_9" @@ -23800,12 +23864,12 @@ static const char *startup_source = " just-meta138_1" " phase-level139_1" " spec140_1))))))" -"(let-values(((p_34)" +"(let-values(((p_35)" "(syntax-e$1" " phase-level139_0)))" "(begin" "(if(phase?" -" p_34)" +" p_35)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23813,15 +23877,15 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_85" +"(loop_87" " spec140_0" -"(let-values(((or-part_182)" +"(let-values(((or-part_181)" " top-req_0))" -"(if or-part_182" -" or-part_182" +"(if or-part_181" +" or-part_181" " req_0))" " phase-shift_9" -" p_34" +" p_35" " adjust_0" " for-meta-ok?_0" " #f" @@ -23928,15 +23992,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id154_0)" "(let-values()" -"(if(let-values(((or-part_183)" +"(if(let-values(((or-part_182)" "(if(syntax?$1" " s_228)" "(symbol?" "(syntax-e$1" " s_228))" " #f)))" -"(if or-part_183" -" or-part_183" +"(if or-part_182" +" or-part_182" "(symbol?" " s_228)))" " s_228" @@ -23982,13 +24046,13 @@ static const char *startup_source = " only146_1" " spec147_1" " id148_1))))))" -"(loop_85" +"(loop_87" "(list" " spec147_0)" -"(let-values(((or-part_184)" +"(let-values(((or-part_183)" " top-req_0))" -"(if or-part_184" -" or-part_184" +"(if or-part_183" +" or-part_183" " req_0))" " phase-shift_9" " just-meta_0" @@ -24048,15 +24112,15 @@ static const char *startup_source = "(let-values(((s_233)" "(car" " s_232)))" -"(if(let-values(((or-part_185)" +"(if(let-values(((or-part_184)" "(if(syntax?$1" " s_233)" "(symbol?" "(syntax-e$1" " s_233))" " #f)))" -"(if or-part_185" -" or-part_185" +"(if or-part_184" +" or-part_184" "(symbol?" " s_233)))" " s_233" @@ -24125,13 +24189,13 @@ static const char *startup_source = " prefix155_1" " id:prefix156_1" " spec157_1))))))" -"(loop_85" +"(loop_87" "(list" " spec157_0)" -"(let-values(((or-part_114)" +"(let-values(((or-part_113)" " top-req_0))" -"(if or-part_114" -" or-part_114" +"(if or-part_113" +" or-part_113" " req_0))" " phase-shift_9" " just-meta_0" @@ -24243,15 +24307,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id172_0)" "(let-values()" -"(if(let-values(((or-part_186)" +"(if(let-values(((or-part_185)" "(if(syntax?$1" " s_246)" "(symbol?" "(syntax-e$1" " s_246))" " #f)))" -"(if or-part_186" -" or-part_186" +"(if or-part_185" +" or-part_185" "(symbol?" " s_246)))" " s_246" @@ -24297,13 +24361,13 @@ static const char *startup_source = " all-except164_1" " spec165_1" " id166_1))))))" -"(loop_85" +"(loop_87" "(list" " spec165_0)" -"(let-values(((or-part_187)" +"(let-values(((or-part_186)" " top-req_0))" -"(if or-part_187" -" or-part_187" +"(if or-part_186" +" or-part_186" " req_0))" " phase-shift_9" " just-meta_0" @@ -24367,15 +24431,15 @@ static const char *startup_source = "(let-values(((s_252)" "(car" " s_251)))" -"(if(let-values(((or-part_188)" +"(if(let-values(((or-part_187)" "(if(syntax?$1" " s_252)" "(symbol?" "(syntax-e$1" " s_252))" " #f)))" -"(if or-part_188" -" or-part_188" +"(if or-part_187" +" or-part_187" "(symbol?" " s_252)))" " s_252" @@ -24453,15 +24517,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id186_0)" "(let-values()" -"(if(let-values(((or-part_189)" +"(if(let-values(((or-part_188)" "(if(syntax?$1" " s_258)" "(symbol?" "(syntax-e$1" " s_258))" " #f)))" -"(if or-part_189" -" or-part_189" +"(if or-part_188" +" or-part_188" "(symbol?" " s_258)))" " s_258" @@ -24517,13 +24581,13 @@ static const char *startup_source = " id:prefix174_1" " spec175_1" " id176_1))))))" -"(loop_85" +"(loop_87" "(list" " spec175_0)" -"(let-values(((or-part_190)" +"(let-values(((or-part_189)" " top-req_0))" -"(if or-part_190" -" or-part_190" +"(if or-part_189" +" or-part_189" " req_0))" " phase-shift_9" " just-meta_0" @@ -24606,15 +24670,15 @@ static const char *startup_source = "(let-values(((s_267)" "(car" " s_266)))" -"(if(let-values(((or-part_191)" +"(if(let-values(((or-part_190)" "(if(syntax?$1" " s_267)" "(symbol?" "(syntax-e$1" " s_267))" " #f)))" -"(if or-part_191" -" or-part_191" +"(if or-part_190" +" or-part_190" "(symbol?" " s_267)))" " s_267" @@ -24639,15 +24703,15 @@ static const char *startup_source = "(let-values(((s_270)" "(car" " s_269)))" -"(if(let-values(((or-part_192)" +"(if(let-values(((or-part_191)" "(if(syntax?$1" " s_270)" "(symbol?" "(syntax-e$1" " s_270))" " #f)))" -"(if or-part_192" -" or-part_192" +"(if or-part_191" +" or-part_191" "(symbol?" " s_270)))" " s_270" @@ -24709,13 +24773,13 @@ static const char *startup_source = " spec188_1" " id:to189_1" " id:from190_1))))))" -"(loop_85" +"(loop_87" "(list" " spec188_0)" -"(let-values(((or-part_193)" +"(let-values(((or-part_192)" " top-req_0))" -"(if or-part_193" -" or-part_193" +"(if or-part_192" +" or-part_192" " req_0))" " phase-shift_9" " just-meta_0" @@ -24732,11 +24796,11 @@ static const char *startup_source = " req_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_194)" +"(if(let-values(((or-part_193)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_194" -" or-part_194" +"(if or-part_193" +" or-part_193" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -24749,10 +24813,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_195)" +"(if(let-values(((or-part_194)" " adjust_0))" -"(if or-part_195" -" or-part_195" +"(if or-part_194" +" or-part_194" "(not" "(eq?" " just-meta_0" @@ -24788,10 +24852,10 @@ static const char *startup_source = "((self203_0)" " self_10)" "((temp204_0)" -"(let-values(((or-part_196)" +"(let-values(((or-part_195)" " req_0))" -"(if or-part_196" -" or-part_196" +"(if or-part_195" +" or-part_195" " top-req_0)))" "((m-ns205_0)" " m-ns_8)" @@ -24857,7 +24921,7 @@ static const char *startup_source = " for-loop_172)" " #t" " lst_140)))))))" -" loop_85)" +" loop_87)" " reqs_0" " #f" " phase-shift_8" @@ -25052,10 +25116,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_197)" +"(let-values(((or-part_196)" " visit?_2))" -"(if or-part_197" -" or-part_197" +"(if or-part_196" +" or-part_196" " run?_2)))" "(let-values()" "(let-values(((m-ns259_0) m-ns_10)" @@ -25073,15 +25137,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_198)" +"(if(let-values(((or-part_197)" "(not adjust_1)))" -"(if or-part_198" -" or-part_198" -"(let-values(((or-part_199)" +"(if or-part_197" +" or-part_197" +"(let-values(((or-part_198)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_199" -" or-part_199" +"(if or-part_198" +" or-part_198" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25212,11 +25276,11 @@ static const char *startup_source = " #f)" " #f))" "((temp250_0)" -"(if(let-values(((or-part_200)" +"(if(let-values(((or-part_199)" "(not" " can-bulk-bind?_0)))" -"(if or-part_200" -" or-part_200" +"(if or-part_199" +" or-part_199" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_4)" @@ -25599,12 +25663,12 @@ static const char *startup_source = " i_137)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_201)" +"(if(let-values(((or-part_200)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_201" -" or-part_201" +"(if or-part_200" +" or-part_200" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25630,10 +25694,10 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_151)" -"(let-values(((or-part_202)" +"(let-values(((or-part_201)" " only-syms_0))" -"(if or-part_202" -" or-part_202" +"(if or-part_201" +" or-part_201" "(hash-keys" " provides_7)))))" "(begin" @@ -25735,7 +25799,7 @@ static const char *startup_source = " in-stx_2)" "((temp303_0)" "(bulk-binding14.1" -"(let-values(((or-part_203)" +"(let-values(((or-part_202)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25744,8 +25808,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_203" -" or-part_203" +"(if or-part_202" +" or-part_202" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25795,7 +25859,7 @@ static const char *startup_source = "(begin" "(let-values(((rebuild-req_0)" "(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_86)" +"(letrec-values(((loop_88)" "(lambda(shifted?_0)" "(begin" " 'loop" @@ -25875,14 +25939,14 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta307_1 phase-level308_1 spec309_1))))))" -"(let-values(((p_35)(syntax-e$1 phase-level308_0)))" +"(let-values(((p_36)(syntax-e$1 phase-level308_0)))" "(begin" -"(if(phase? p_35)" +"(if(phase? p_36)" "(void)" " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta307_0(phase+ p_35 1)(map2(loop_86 #t) spec309_0)))))))" +"(list* for-meta307_0(phase+ p_36 1)(map2(loop_88 #t) spec309_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax315_0 spec316_0)" @@ -25924,7 +25988,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax315_1 spec316_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_86 #t) spec316_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_88 #t) spec316_0)))))" "(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template319_0 spec320_0)" @@ -25966,7 +26030,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template319_1 spec320_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_86 #t) spec320_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_88 #t) spec320_0)))))" "(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label323_0 spec324_0)" @@ -26012,7 +26076,7 @@ static const char *startup_source = "(values #t for-label323_1 spec324_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label323_0(map2(loop_86 #t) spec324_0)))))" +"(list* for-label323_0(map2(loop_88 #t) spec324_0)))))" "(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta327_0 phase-level328_0 spec329_0)" @@ -26095,12 +26159,12 @@ static const char *startup_source = "(list*" " just-meta327_0" " phase-level328_0" -"(map2(loop_86 #f) spec329_0)))))" +"(map2(loop_88 #f) spec329_0)))))" "(let-values()" "(if shifted?_0" " req_3" "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_86 #f) req_1))))))" +"((loop_88 #f) req_1))))))" "(define-values" "(copy-namespace-value)" "(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_12 as-constant?_1)" @@ -26566,21 +26630,21 @@ static const char *startup_source = "(lambda(sym_52 header_0)" "(begin" "(if(symbol-conflicts? sym_52 header_0)" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_89)" "(lambda(pos_89)" "(begin" " 'loop" " (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_89 sym_52))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_87(add1 pos_89)) new-sym_0))))))" -" loop_87)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_89(add1 pos_89)) new-sym_0))))))" +" loop_89)" " 1)" " sym_52))))" "(define-values" "(symbol-conflicts?)" "(lambda(sym_53 header_1)" "(begin" -"(let-values(((or-part_204)(built-in-symbol? sym_53)))" -"(if or-part_204 or-part_204(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" +"(let-values(((or-part_203)(built-in-symbol? sym_53)))" +"(if or-part_203 or-part_203(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" @@ -26597,9 +26661,9 @@ static const char *startup_source = "(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_55 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_205) prev-var-sym_0))" -"(if or-part_205" -" or-part_205" +"(let-values(((or-part_204) prev-var-sym_0))" +"(if or-part_204" +" or-part_204" "(let-values(((sym_54)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" "(hash-set! variable-uses_0 key_55 sym_54)" @@ -26654,21 +26718,21 @@ static const char *startup_source = "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_206)" +"(if(let-values(((or-part_205)" "(hash-ref" " ht_105" " mu_2" " #f)))" -"(if or-part_206" -" or-part_206" -"(let-values(((or-part_207)" +"(if or-part_205" +" or-part_205" +"(let-values(((or-part_206)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_207" -" or-part_207" +"(if or-part_206" +" or-part_206" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -26847,10 +26911,10 @@ static const char *startup_source = "(let-values(((table_144)" "(let-values(((table_145)" " table_143))" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_207)" " extra-inspectors_1))" -"(if or-part_208" -" or-part_208" +"(if or-part_207" +" or-part_207" " cross-linklet-inlining?_0))" "(let-values(((table_146)" " table_145))" @@ -26911,10 +26975,10 @@ static const char *startup_source = "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_209)" +"(let-values(((or-part_208)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_209" -" or-part_209" +"(if or-part_208" +" or-part_208" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_148) fold-var_147))" "(let-values(((fold-var_149)" @@ -27063,26 +27127,26 @@ static const char *startup_source = "(correlated->list)" "(lambda(e_29)" "(begin" -"((letrec-values(((loop_88)" +"((letrec-values(((loop_90)" "(lambda(e_30)" "(begin" " 'loop" "(if(list? e_30)" "(let-values() e_30)" "(if(pair? e_30)" -"(let-values()(cons(car e_30)(loop_88(cdr e_30))))" +"(let-values()(cons(car e_30)(loop_90(cdr e_30))))" "(if(null? e_30)" "(let-values() null)" "(if(1/syntax? e_30)" -"(let-values()(loop_88(syntax-e$2 e_30)))" +"(let-values()(loop_90(syntax-e$2 e_30)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_88)" +" loop_90)" " e_29))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_162)(syntax-property$2 e_32 k_32 v_162))))" +"((e_32 k_32 v_164)(syntax-property$2 e_32 k_32 v_164))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_108)" @@ -27116,20 +27180,20 @@ static const char *startup_source = "(lambda(p3_0 cctx4_0 name1_0 result-used?2_0)" "(begin" " 'compile5" -"(let-values(((p_36) p3_0))" +"(let-values(((p_37) p3_0))" "(let-values(((cctx_1) cctx4_0))" "(let-values(((name_40) name1_0))" "(let-values(((result-used?_0) result-used?2_0))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_37 name_4 result-used?_1)" -"(begin 'compile(compile$2 p_37 cctx_1 name_4 result-used?_1)))))" -"(let-values(((s_170)(parsed-s p_36)))" -"(if(parsed-id? p_36)" +"(lambda(p_38 name_4 result-used?_1)" +"(begin 'compile(compile$2 p_38 cctx_1 name_4 result-used?_1)))))" +"(let-values(((s_170)(parsed-s p_37)))" +"(if(parsed-id? p_37)" "(let-values()" -"(let-values(((p25_0) p_36)((cctx26_0) cctx_1))" +"(let-values(((p25_0) p_37)((cctx26_0) cctx_1))" "(compile-identifier22.1 #f #f p25_0 cctx26_0)))" -"(if(parsed-lambda? p_36)" +"(if(parsed-lambda? p_37)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27139,13 +27203,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_36)" -"(parsed-lambda-body p_36)" +"(parsed-lambda-keys p_37)" +"(parsed-lambda-body p_37)" " cctx_1)))" " name_40" " s_170))" "(let-values()(correlate~ s_170 ''unused-lambda))))" -"(if(parsed-case-lambda? p_36)" +"(if(parsed-case-lambda? p_37)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27155,7 +27219,7 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_86)(parsed-case-lambda-clauses p_36)))" +"(let-values(((lst_86)(parsed-case-lambda-clauses p_37)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27195,13 +27259,13 @@ static const char *startup_source = " name_40" " s_170))" "(let-values()(correlate~ s_170 ''unused-case-lambda))))" -"(if(parsed-app? p_36)" +"(if(parsed-app? p_37)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_36)))" +"(let-values(((rands_0)(parsed-app-rands p_37)))" "(correlate/app" " s_170" "(cons" -"(compile_0(parsed-app-rator p_36) #f #t)" +"(compile_0(parsed-app-rator p_37) #f #t)" "(reverse$1" "(let-values(((lst_88) rands_0))" "(begin" @@ -27237,44 +27301,44 @@ static const char *startup_source = " for-loop_189)" " null" " lst_88))))))))" -"(if(parsed-if? p_36)" +"(if(parsed-if? p_37)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_36) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_37) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_36) name_40 result-used?_0))" +"(compile_0(parsed-if-thn p_37) name_40 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_36) name_40 result-used?_0))" +"(compile_0(parsed-if-els p_37) name_40 result-used?_0))" "(let-values()" "(correlate~" " s_170" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_36) name_40 result-used?_0)" -"(compile_0(parsed-if-els p_36) name_40 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_36)" +"(compile_0(parsed-if-thn p_37) name_40 result-used?_0)" +"(compile_0(parsed-if-els p_37) name_40 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_37)" "(let-values()" "(correlate~" " s_170" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_36) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_36) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_37) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_37) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_36)" +"(parsed-with-continuation-mark-body p_37)" " name_40" " result-used?_0))))" -"(if(parsed-begin0? p_36)" +"(if(parsed-begin0? p_37)" "(let-values()" "(correlate~" " s_170" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_37)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_23)(cdr(parsed-begin0-body p_36))))" +"(let-values(((lst_23)(cdr(parsed-begin0-body p_37))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27311,31 +27375,31 @@ static const char *startup_source = " for-loop_190)" " null" " lst_23)))))))" -"(if(parsed-begin? p_36)" +"(if(parsed-begin? p_37)" "(let-values()" "(correlate~" " s_170" "(compile-begin" -"(parsed-begin-body p_36)" +"(parsed-begin-body p_37)" " cctx_1" " name_40" " result-used?_0)))" -"(if(parsed-set!? p_36)" +"(if(parsed-set!? p_37)" "(let-values()" "(correlate~" " s_170" -"(let-values(((temp27_4)(parsed-set!-id p_36))" +"(let-values(((temp27_4)(parsed-set!-id p_37))" "((cctx28_0) cctx_1)" "((temp29_1) #t)" "((temp30_1)" "(compile_0" -"(parsed-set!-rhs p_36)" -"(parsed-s(parsed-set!-id p_36))" +"(parsed-set!-rhs p_37)" +"(parsed-s(parsed-set!-id p_37))" " #t)))" "(compile-identifier22.1 temp30_1 temp29_1 temp27_4 cctx28_0))))" -"(if(parsed-let-values? p_36)" +"(if(parsed-let-values? p_37)" "(let-values()" -"(let-values(((p31_0) p_36)" +"(let-values(((p31_0) p_37)" "((cctx32_0) cctx_1)" "((name33_0) name_40)" "((temp34_1) #f)" @@ -27346,9 +27410,9 @@ static const char *startup_source = " cctx32_0" " name33_0" " result-used?35_0)))" -"(if(parsed-letrec-values? p_36)" +"(if(parsed-letrec-values? p_37)" "(let-values()" -"(let-values(((p36_0) p_36)" +"(let-values(((p36_0) p_37)" "((cctx37_0) cctx_1)" "((name38_0) name_40)" "((temp39_0) #t)" @@ -27359,26 +27423,26 @@ static const char *startup_source = " cctx37_0" " name38_0" " result-used?40_0)))" -"(if(parsed-quote? p_36)" +"(if(parsed-quote? p_37)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_36)))" +"(let-values(((datum_1)(parsed-quote-datum p_37)))" "(if(self-quoting-in-linklet? datum_1)" "(let-values()(correlate~ s_170 datum_1))" "(let-values()" "(correlate~ s_170(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_36)" +"(if(parsed-quote-syntax? p_37)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_36)" +"(parsed-quote-syntax-datum p_37)" " cctx_1)" "(correlate~" " s_170" "(list 'quote(syntax->datum$1 s_170)))))" -"(if(parsed-#%variable-reference? p_36)" +"(if(parsed-#%variable-reference? p_37)" "(let-values()" "(let-values(((id_45)" -"(parsed-#%variable-reference-id p_36)))" +"(parsed-#%variable-reference-id p_37)))" "(correlate~" " s_170" "(if id_45" @@ -27390,11 +27454,11 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_36)))))))))))))))))))))))))))" +" p_37)))))))))))))))))))))))))))" "(case-lambda" -"((p_38 cctx_2)(begin 'compile(compile5_0 p_38 cctx_2 #f #t)))" -"((p_39 cctx_3 name_41 result-used?2_1)(compile5_0 p_39 cctx_3 name_41 result-used?2_1))" -"((p_40 cctx_4 name1_1)(compile5_0 p_40 cctx_4 name1_1 #t)))))" +"((p_39 cctx_2)(begin 'compile(compile5_0 p_39 cctx_2 #f #t)))" +"((p_40 cctx_3 name_41 result-used?2_1)(compile5_0 p_40 cctx_3 name_41 result-used?2_1))" +"((p_41 cctx_4 name1_1)(compile5_0 p_41 cctx_4 name1_1 #t)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" @@ -27453,26 +27517,26 @@ static const char *startup_source = "(lambda(s_305 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_163)" +"(lambda(v_165)" "(begin" " 'simplify-name" -"(if(pair? v_163)" +"(if(pair? v_165)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_163))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_163))))(if(eq? n1_0 n2_0) n1_0 v_163))))" -"(let-values() v_163))))))" +"(let-values(((n1_0)(simplify-name_0(car v_165))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_165))))(if(eq? n1_0 n2_0) n1_0 v_165))))" +"(let-values() v_165))))))" "(let-values(((name_44)" -"(let-values(((or-part_210)" -"(let-values(((v_52)" +"(let-values(((or-part_209)" +"(let-values(((v_54)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_211)(symbol? v_52)))" -"(if or-part_211" -" or-part_211" -"(let-values(((or-part_212)(syntax?$1 v_52)))" -"(if or-part_212 or-part_212(void? v_52)))))" -" v_52" +"(if(let-values(((or-part_210)(symbol? v_54)))" +"(if or-part_210" +" or-part_210" +"(let-values(((or-part_211)(syntax?$1 v_54)))" +"(if or-part_211 or-part_211(void? v_54)))))" +" v_54" " #f))))" -"(if or-part_210 or-part_210 inferred-name_0))))" +"(if or-part_209 or-part_209 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_44" "(correlated-property" @@ -27489,20 +27553,20 @@ static const char *startup_source = "(lambda(rec?7_0 p9_0 cctx10_0 name11_0 result-used?12_0)" "(begin" " 'compile-let13" -"(let-values(((p_41) p9_0))" +"(let-values(((p_42) p9_0))" "(let-values(((cctx_8) cctx10_0))" "(let-values(((name_45) name11_0))" "(let-values(((rec?_0) rec?7_0))" "(let-values(((result-used?_4) result-used?12_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_41)))" +"(let-values(((body_0)(parsed-let_-values-body p_42)))" "(correlate~" -"(parsed-s p_41)" +"(parsed-s p_42)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_162)(parsed-let_-values-clauses p_41))" -"((lst_163)(parsed-let_-values-idss p_41)))" +"(let-values(((lst_162)(parsed-let_-values-clauses p_42))" +"((lst_163)(parsed-let_-values-idss p_42)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27620,26 +27684,26 @@ static const char *startup_source = "(correlated-property" "(->correlated id_47)" " 'undefined-error-name" -"(let-values(((or-part_213)(syntax-property$1 orig-id_0 'undefined-error-name)))" -"(if or-part_213 or-part_213(syntax-e$1 orig-id_0))))))))" +"(let-values(((or-part_212)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_212 or-part_212(syntax-e$1 orig-id_0))))))))" "(define-values" "(compile-identifier22.1)" "(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)" "(begin" " 'compile-identifier22" -"(let-values(((p_42) p20_0))" +"(let-values(((p_43) p20_0))" "(let-values(((cctx_9) cctx21_0))" "(let-values(((set-to?_0) set-to?16_0))" "(let-values(((rhs_0) set-to17_0))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_42)))" +"(let-values(((normal-b_0)(parsed-id-binding p_43)))" "(let-values(((b_71)" -"(let-values(((or-part_214) normal-b_0))" -"(if or-part_214" -" or-part_214" +"(let-values(((or-part_213) normal-b_0))" +"(if or-part_213" +" or-part_213" "(let-values(((temp43_0)(compile-context-self cctx_9))" "((temp44_0)(compile-context-phase cctx_9))" -"((temp45_1)(syntax-e$1(parsed-s p_42))))" +"((temp45_1)(syntax-e$1(parsed-s p_43))))" "(make-module-binding22.1" " #f" " null" @@ -27659,10 +27723,10 @@ static const char *startup_source = "(if(module-binding? b_71)" "(let-values()" "(let-values(((mpi_41)" -"(if(parsed-top-id? p_42)" +"(if(parsed-top-id? p_43)" "(compile-context-self cctx_9)" "(module-binding-module b_71))))" -"(if(parsed-primitive-id? p_42)" +"(if(parsed-primitive-id? p_43)" "(let-values()" "(begin" "(if(zero?(module-binding-phase b_71))" @@ -27688,16 +27752,16 @@ static const char *startup_source = "((temp48_1)(module-binding-phase b_71))" "((temp49_0)(module-binding-sym b_71))" "((temp50_0)" -"(let-values(((or-part_215)" +"(let-values(((or-part_214)" "(module-binding-extra-inspector b_71)))" +"(if or-part_214" +" or-part_214" +"(let-values(((or-part_215)" +"(parsed-id-inspector p_43)))" "(if or-part_215" " or-part_215" -"(let-values(((or-part_216)" -"(parsed-id-inspector p_42)))" -"(if or-part_216" -" or-part_216" -"(if(parsed-s p_42)" -"(syntax-inspector(parsed-s p_42))" +"(if(parsed-s p_43)" +"(syntax-inspector(parsed-s p_43))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -27710,8 +27774,8 @@ static const char *startup_source = "(error" " \"not a reference to a module or local binding:\"" " b_71" -"(parsed-s p_42)))))))" -"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_56 rhs_0) sym_56)))))))))))))" +"(parsed-s p_43)))))))" +"(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_56 rhs_0) sym_56)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27766,8 +27830,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_217)(not extra-inspectors-1_0)))" -"(if or-part_217 or-part_217(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_216)(not extra-inspectors-1_0)))" +"(if or-part_216 or-part_216(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -28030,7 +28094,7 @@ static const char *startup_source = "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_218) add-insp?_0))(if or-part_218 or-part_218 add-extra-insp?_0))" +"(if(let-values(((or-part_217) add-insp?_0))(if or-part_217 or-part_217 add-extra-insp?_0))" "(let-values()" "(let-values(((lst_178) imports_1))" "(begin" @@ -28061,22 +28125,22 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_219)" +"(let-values(((or-part_218)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_219" -" or-part_219" -"(let-values(((or-part_101)" +"(if or-part_218" +" or-part_218" +"(let-values(((or-part_100)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_101" -" or-part_101" +"(if or-part_100" +" or-part_100" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" @@ -28231,7 +28295,7 @@ static const char *startup_source = " other-form-callback10_0)))" "(let-values(((get-module-linklet-info_0)" "(if(eq? get-module-linklet-info11_0 unsafe-undefined)" -"(lambda(mod-name_14 p_43)(begin 'get-module-linklet-info #f))" +"(lambda(mod-name_14 p_44)(begin 'get-module-linklet-info #f))" " get-module-linklet-info11_0)))" "(let-values(((to-source?_0) to-source?12_0))" "(let-values(((serializable?_0) serializable?13_0))" @@ -28255,13 +28319,13 @@ static const char *startup_source = "(lambda(phase_73)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_220)" +"(let-values(((or-part_219)" "(hash-ref" " phase-to-header_0" " phase_73" " #f)))" -"(if or-part_220" -" or-part_220" +"(if or-part_219" +" or-part_219" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28683,11 +28747,11 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_0)))" -"(if(let-values(((or-part_169)" +"(if(let-values(((or-part_168)" "(compile-context-module-self" " cctx_11)))" -"(if or-part_169" -" or-part_169" +"(if or-part_168" +" or-part_168" "(null?" " ids_5)))" "(void)" @@ -29028,16 +29092,16 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_75))))" -"(if(let-values(((or-part_221)" +"(if(let-values(((or-part_220)" "(parsed-#%declare?" " body_0)))" -"(if or-part_221" -" or-part_221" -"(let-values(((or-part_88)" +"(if or-part_220" +" or-part_220" +"(let-values(((or-part_87)" "(parsed-module?" " body_0)))" -"(if or-part_88" -" or-part_88" +"(if or-part_87" +" or-part_87" "(parsed-require?" " body_0)))))" "(let-values()" @@ -29637,9 +29701,9 @@ static const char *startup_source = "(let-values(((lst_201) ids_7)" "((lst_202) binding-syms_2)" "((lst_47)" -"(let-values(((or-part_222) trans-exprs_0))" -"(if or-part_222" -" or-part_222" +"(let-values(((or-part_221) trans-exprs_0))" +"(if or-part_221" +" or-part_221" "(reverse$1" "(let-values(((lst_203) ids_7))" "(begin" @@ -29772,8 +29836,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_164)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_164(correlated-property e_36 'compiler-hint:cross-module-inline v_164) e_36)))))" +"(let-values(((v_166)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_166(correlated-property e_36 'compiler-hint:cross-module-inline v_166) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29828,10 +29892,10 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_223)" +"(let-values(((or-part_222)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_223" -" or-part_223" +"(if or-part_222" +" or-part_222" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -29857,8 +29921,8 @@ static const char *startup_source = "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" "((lst_213)" -"(let-values(((or-part_224) extra-inspectorsss_3))" -"(if or-part_224 or-part_224 mus_2))))" +"(let-values(((or-part_223) extra-inspectorsss_3))" +"(if or-part_223 or-part_223 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -30075,7 +30139,7 @@ static const char *startup_source = "(map-cim-tree)" "(lambda(cims_1 proc_8)" "(begin" -"((letrec-values(((loop_89)" +"((letrec-values(((loop_91)" "(lambda(cims_2)" "(begin" " 'loop" @@ -30100,10 +30164,10 @@ static const char *startup_source = "(let-values()" "(vector" "(proc_8 cim_4)" -"(loop_89" +"(loop_91" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_89" +"(loop_91" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" " fold-var_163))))" @@ -30115,7 +30179,7 @@ static const char *startup_source = " for-loop_96)" " null" " lst_80))))))))" -" loop_89)" +" loop_91)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -30261,7 +30325,7 @@ static const char *startup_source = "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_82)" +"((letrec-values(((loop_84)" "(lambda(cims_5)" "(begin" " 'loop" @@ -30272,9 +30336,9 @@ static const char *startup_source = "(if(if(compiled-in-memory?(car cims_5))" "(compiled-in-memory-purely-functional?(car cims_5))" " #f)" -"(let-values()(loop_82(cdr cims_5)))" +"(let-values()(loop_84(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_82)" +" loop_84)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" @@ -30386,7 +30450,7 @@ static const char *startup_source = " e12_0" " expected-results13_0))))))" "(let-values(((actual-results_0)" -"((letrec-values(((loop_80)" +"((letrec-values(((loop_82)" "(lambda(e_39 locals_2)" "(begin" " 'loop" @@ -30420,25 +30484,25 @@ static const char *startup_source = "(if(unsafe-fx< index_1 2)" "(if(unsafe-fx< index_1 1)" "(let-values()" -"(let-values(((v_30)(correlated-e e_39)))" -"(if(let-values(((or-part_74)(string? v_30)))" +"(let-values(((v_32)(correlated-e e_39)))" +"(if(let-values(((or-part_73)(string? v_32)))" +"(if or-part_73" +" or-part_73" +"(let-values(((or-part_74)" +"(number? v_32)))" "(if or-part_74" " or-part_74" "(let-values(((or-part_75)" -"(number? v_30)))" +"(boolean? v_32)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)" -"(boolean? v_30)))" -"(if or-part_76" -" or-part_76" -"(char? v_30)))))))" +"(char? v_32)))))))" "(let-values() 1)" "(let-values(((c1_26)" -"(if(pair? v_30)" +"(if(pair? v_32)" "(let-values(((rator_0)" "(correlated-e" -"(car v_30))))" +"(car v_32))))" "(let-values(((or-part_29)" "(hash-ref" " locals_2" @@ -30514,8 +30578,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" +"(if(let-values(((or-part_224)" "(if(let-values(((or-part_225)" -"(if(let-values(((or-part_226)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30528,8 +30592,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_226" -" or-part_226" +"(if or-part_225" +" or-part_225" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30591,8 +30655,8 @@ static const char *startup_source = " #t" " lst_220)))" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_224" +" or-part_224" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30689,32 +30753,32 @@ static const char *startup_source = " #f))))" " c1_26)" "(let-values()" -"(if(let-values(((or-part_167)" +"(if(let-values(((or-part_166)" "(self-quoting-in-linklet?" -" v_30)))" -"(if or-part_167" -" or-part_167" -"(if(symbol? v_30)" +" v_32)))" +"(if or-part_166" +" or-part_166" +"(if(symbol? v_32)" "(let-values(((or-part_65)" "(hash-ref" " locals_2" -" v_30" +" v_32" " #f)))" "(if or-part_65" " or-part_65" -"(let-values(((or-part_227)" +"(let-values(((or-part_226)" "(lookup-defn" " defns_1" -" v_30)))" -"(if or-part_227" -" or-part_227" +" v_32)))" +"(if or-part_226" +" or-part_226" "(let-values(((or-part_66)" "(built-in-symbol?" -" v_30)))" +" v_32)))" "(if or-part_66" " or-part_66" "(ready-variable?_0" -" v_30)))))))" +" v_32)))))))" " #f)))" " 1" " #f)))))))" @@ -31072,7 +31136,7 @@ static const char *startup_source = " #f" " lst_194" " lst_224))))" -"(loop_80" +"(loop_82" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" " #f)))" @@ -31355,7 +31419,7 @@ static const char *startup_source = "(let-values() #f)" "(if(null?(cdr es_1))" "(let-values()" -"(loop_80" +"(loop_82" "(car es_1)" " locals_2))" "(let-values()" @@ -31505,7 +31569,7 @@ static const char *startup_source = " for-loop_221)" " #t" " lst_230)))" -"(loop_80 e051_0 locals_2)" +"(loop_82 e051_0 locals_2)" " #f)))" "(if(unsafe-fx< index_1 8)" "(let-values()" @@ -31719,20 +31783,20 @@ static const char *startup_source = " quot59_1" " datum60_1)))" "(values #f #f #f #f)))))" -"(if(let-values(((or-part_228)" +"(if(let-values(((or-part_227)" "(if ok?_23" "(if(eq? 'quote quot59_0)" -"(let-values(((or-part_229)" +"(let-values(((or-part_228)" "(symbol?" " datum60_0)))" -"(if or-part_229" -" or-part_229" +"(if or-part_228" +" or-part_228" "(string?" " datum60_0)))" " #f)" " #f)))" -"(if or-part_228" -" or-part_228" +"(if or-part_227" +" or-part_227" "(null?(cdr(correlated-e e_39)))))" " 1" " #f)))" @@ -31779,15 +31843,15 @@ static const char *startup_source = "(if(let-values(((s_355)" "(car" " s_354)))" -"(let-values(((or-part_230)" +"(let-values(((or-part_229)" "(if(1/syntax?" " s_355)" "(symbol?" "(syntax-e$2" " s_355))" " #f)))" -"(if or-part_230" -" or-part_230" +"(if or-part_229" +" or-part_229" "(symbol?" " s_355))))" "(let-values(((s_356)" @@ -31804,15 +31868,15 @@ static const char *startup_source = "(if(let-values(((s_250)" "(car" " s_249)))" -"(let-values(((or-part_231)" +"(let-values(((or-part_230)" "(if(1/syntax?" " s_250)" "(symbol?" "(syntax-e$2" " s_250))" " #f)))" -"(if or-part_231" -" or-part_231" +"(if or-part_230" +" or-part_230" "(symbol?" " s_250))))" "(let-values(((s_357)" @@ -32025,13 +32089,13 @@ static const char *startup_source = "(if ok?_24" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_232)" +"(let-values(((or-part_231)" "(hash-ref" " locals_2" " id:rator70_0" " #f)))" -"(if or-part_232" -" or-part_232" +"(if or-part_231" +" or-part_231" "(lookup-defn" " defns_1" " id:rator70_0)))))" @@ -32048,7 +32112,7 @@ static const char *startup_source = "(known-satisfies7.1" "(known-predicate-key" " d_31)))))" -"(loop_80 els73_0 locals_2)" +"(loop_82 els73_0 locals_2)" " #f)" " #f))" " c2_2)" @@ -32244,25 +32308,25 @@ static const char *startup_source = " thn91_0" " expected-results_0" " locals_2))" -"(loop_80 els92_0 locals_2)" +"(loop_82 els92_0 locals_2)" " #f)" " #f)" " #f)))))))))))))))))" -" loop_80)" +" loop_82)" " e_37" " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_233)(not expected-results_0)))" -"(if or-part_233 or-part_233(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_232)(not expected-results_0)))" +"(if or-part_232 or-part_232(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_62 key_50 defns_2 locals_3)" "(begin" "(let-values(((d_32)" -"(let-values(((or-part_234)(hash-ref locals_3 e_62 #f)))" -"(if or-part_234 or-part_234(lookup-defn defns_2 e_62)))))" +"(let-values(((or-part_233)(hash-ref locals_3 e_62 #f)))" +"(if or-part_233 or-part_233(lookup-defn defns_2 e_62)))))" "(if d_32(if(known-satisfies? d_32)(eq? key_50(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" @@ -32285,7 +32349,7 @@ static const char *startup_source = "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_90)" +"((letrec-values(((loop_92)" "(lambda(rhs_11)" "(begin" " 'loop" @@ -32384,11 +32448,11 @@ static const char *startup_source = "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_90" +"(loop_92" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_90 #f)))" +"(loop_92 #f)))" "(let-values()" "(let-values(((lst_239)" "(correlated->list" @@ -32435,7 +32499,7 @@ static const char *startup_source = " for-loop_223)" " locals_7" " lst_239)))))))))))" -" loop_90)" +" loop_92)" " rhs_10))))" "(values locals_8)))))" "(if(not #f)(for-loop_148 locals_6 rest_130 rest_131) locals_6)))" @@ -32453,11 +32517,11 @@ static const char *startup_source = "(let-values(((lst_241)(cdr l_57))" "((lst_242)" "(list" -"(lambda(v_165)(quoted? symbol? v_165))" -"(lambda(v_166)(is-lambda? v_166 2 defns_3))" -"(lambda(v_167)(ok-make-struct-type-property-super? v_167 defns_3))" -"(lambda(v_168)" -"(let-values(((v103_0) v_168)((temp104_0) 1)((defns105_0) defns_3))" +"(lambda(v_167)(quoted? symbol? v_167))" +"(lambda(v_168)(is-lambda? v_168 2 defns_3))" +"(lambda(v_169)(ok-make-struct-type-property-super? v_169 defns_3))" +"(lambda(v_170)" +"(let-values(((v103_0) v_170)((temp104_0) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_0))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" @@ -32489,17 +32553,17 @@ static const char *startup_source = " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_169 defns_4)" +"(lambda(v_171 defns_4)" "(begin" -"(let-values(((or-part_235)(quoted? null? v_169)))" +"(let-values(((or-part_234)(quoted? null? v_171)))" +"(if or-part_234" +" or-part_234" +"(let-values(((or-part_235)(eq? 'null(correlated-e v_171))))" "(if or-part_235" " or-part_235" -"(let-values(((or-part_236)(eq? 'null(correlated-e v_169))))" -"(if or-part_236" -" or-part_236" -"(if(pair?(correlated-e v_169))" -"(if(eq?(correlated-e(car(correlated-e v_169))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_169))))" +"(if(pair?(correlated-e v_171))" +"(if(eq?(correlated-e(car(correlated-e v_171))) 'list)" +"(if(let-values(((lst_244)(cdr(correlated->list v_171))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32527,7 +32591,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_237)" +"(if(let-values(((or-part_236)" "(memq" "(correlated-e" "(list-ref" @@ -32536,8 +32600,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_237" -" or-part_237" +"(if or-part_236" +" or-part_236" "(known-property?" "(lookup-defn" " defns_4" @@ -32574,9 +32638,9 @@ static const char *startup_source = " #t" " lst_244)))" "(=" -"(sub1(correlated-length v_169))" +"(sub1(correlated-length v_171))" "(set-count" -"(let-values(((lst_245)(cdr(correlated->list v_169))))" +"(let-values(((lst_245)(cdr(correlated->list v_171))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32627,21 +32691,21 @@ static const char *startup_source = "(field-count-expr-to-field-count init-field-count-expr_0)" "(field-count-expr-to-field-count auto-field-count-expr_0))))" "(let-values(((immutables-expr_0)" -"(let-values(((or-part_238)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_238 or-part_238 'null))))" +"(let-values(((or-part_237)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_237 or-part_237 'null))))" "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" "(let-values(((lst_247)(cdr l_58))" "((lst_248)" "(list" -"(lambda(v_170)(quoted? symbol? v_170))" -"(lambda(v_171)(super-ok? v_171 defns_5))" -"(lambda(v_172)(field-count-expr-to-field-count v_172))" -"(lambda(v_173)(field-count-expr-to-field-count v_173))" -"(lambda(v_174)" +"(lambda(v_172)(quoted? symbol? v_172))" +"(lambda(v_173)(super-ok? v_173 defns_5))" +"(lambda(v_174)(field-count-expr-to-field-count v_174))" +"(lambda(v_175)(field-count-expr-to-field-count v_175))" +"(lambda(v_176)" "(not" -"(let-values(((v109_0) v_174)" +"(let-values(((v109_0) v_176)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32651,11 +32715,11 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_175)" -"(known-good-struct-properties? v_175 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_176)(inspector-or-false? v_176))" -"(lambda(v_177)(procedure-spec? v_177 num-fields_0))" -"(lambda(v_178)(immutables-ok? v_178 init-field-count-expr_0)))))" +"(lambda(v_177)" +"(known-good-struct-properties? v_177 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_178)(inspector-or-false? v_178))" +"(lambda(v_179)(procedure-spec? v_179 num-fields_0))" +"(lambda(v_180)(immutables-ok? v_180 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32696,9 +32760,9 @@ static const char *startup_source = "(super-ok?)" "(lambda(e_65 defns_6)" "(begin" -"(let-values(((or-part_239)(quoted? false? e_65)))" -"(if or-part_239" -" or-part_239" +"(let-values(((or-part_238)(quoted? false? e_65)))" +"(if or-part_238" +" or-part_238" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_65))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32709,49 +32773,49 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_179)" +"(lambda(val?_0 v_181)" "(begin" -"(let-values(((or-part_240)" -"(if(pair?(correlated-e v_179))" -"(if(eq?(correlated-e(car(correlated-e v_179))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_179)))" +"(let-values(((or-part_239)" +"(if(pair?(correlated-e v_181))" +"(if(eq?(correlated-e(car(correlated-e v_181))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_181)))" " #f)" " #f)))" -"(if or-part_240 or-part_240(val?_0(correlated-e v_179)))))))" +"(if or-part_239 or-part_239(val?_0(correlated-e v_181)))))))" "(define-values" "(quoted-value)" -"(lambda(v_180)" -"(begin(if(pair?(correlated-e v_180))(correlated-e(correlated-cadr v_180))(correlated-e v_180)))))" -"(define-values(false?)(lambda(v_181)(begin(eq?(correlated-e v_181) #f))))" +"(lambda(v_182)" +"(begin(if(pair?(correlated-e v_182))(correlated-e(correlated-cadr v_182))(correlated-e v_182)))))" +"(define-values(false?)(lambda(v_183)(begin(eq?(correlated-e v_183) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_182)(begin(if(quoted? exact-nonnegative-integer? v_182)(quoted-value v_182) #f))))" +"(lambda(v_184)(begin(if(quoted? exact-nonnegative-integer? v_184)(quoted-value v_184) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_183)" +"(lambda(v_185)" "(begin" -"(let-values(((or-part_241)(quoted? false? v_183)))" +"(let-values(((or-part_240)(quoted? false? v_185)))" +"(if or-part_240" +" or-part_240" +"(let-values(((or-part_241)(if(quoted? symbol? v_185)(eq? 'prefab(quoted-value v_185)) #f)))" "(if or-part_241" " or-part_241" -"(let-values(((or-part_242)(if(quoted? symbol? v_183)(eq? 'prefab(quoted-value v_183)) #f)))" -"(if or-part_242" -" or-part_242" -"(if(= 1(correlated-length v_183))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_183))))" +"(if(= 1(correlated-length v_185))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_185))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_184 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_186 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_243)(quoted? null? v_184)))" +"(let-values(((or-part_242)(quoted? null? v_186)))" +"(if or-part_242" +" or-part_242" +"(let-values(((or-part_243)(eq? 'null(correlated-e v_186))))" "(if or-part_243" " or-part_243" -"(let-values(((or-part_244)(eq? 'null(correlated-e v_184))))" -"(if or-part_244" -" or-part_244" -"(if(pair?(correlated-e v_184))" -"(if(eq?(correlated-e(car(correlated-e v_184))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_184))))" +"(if(pair?(correlated-e v_186))" +"(if(eq?(correlated-e(car(correlated-e v_186))) 'list)" +"(if(let-values(((lst_251)(cdr(correlated->list v_186))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32798,9 +32862,9 @@ static const char *startup_source = " #t" " lst_251)))" "(=" -"(sub1(correlated-length v_184))" +"(sub1(correlated-length v_186))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_184))))" +"(let-values(((lst_253)(cdr(correlated->list v_186))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32847,12 +32911,12 @@ static const char *startup_source = "(let-values(((tmp_28) prop-name_0))" "(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_245)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_245 or-part_245(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_244)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_244 or-part_244(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_246)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_246 or-part_246(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_245)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_245 or-part_245(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_28 'prop:equal+hash)" @@ -32893,51 +32957,51 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_247)" +"(let-values(((or-part_246)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_248)(not arity_0)))" -"(if or-part_248 or-part_248(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_247)(not arity_0)))" +"(if or-part_247 or-part_247(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_247" -" or-part_247" -"(let-values(((or-part_249)" +"(if or-part_246" +" or-part_246" +"(let-values(((or-part_248)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_249" -" or-part_249" +"(if or-part_248" +" or-part_248" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_250)(not arity_0)))" -"(if or-part_250" -" or-part_250" -"((letrec-values(((loop_91)" +"(let-values(((or-part_249)(not arity_0)))" +"(if or-part_249" +" or-part_249" +"((letrec-values(((loop_93)" "(lambda(args_4 arity_1)" "(begin" " 'loop" "(if(correlated? args_4)" -"(let-values()(loop_91(correlated-e args_4) arity_1))" +"(let-values()(loop_93(correlated-e args_4) arity_1))" "(if(null? args_4)" "(let-values()(zero? arity_1))" "(if(pair? args_4)" -"(let-values()(loop_91(cdr args_4)(sub1 arity_1)))" +"(let-values()(loop_93(cdr args_4)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_91)" +" loop_93)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" " #f)))))))))" "(define-values" "(arity-includes?)" -"(lambda(a_40 n_26)" +"(lambda(a_41 n_26)" "(begin" -"(let-values(((or-part_251)(equal? a_40 n_26)))" -"(if or-part_251" -" or-part_251" -"(if(list? a_40)" -"(let-values(((lst_254) a_40))" +"(let-values(((or-part_250)(equal? a_41 n_26)))" +"(if or-part_250" +" or-part_250" +"(if(list? a_41)" +"(let-values(((lst_254) a_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32947,14 +33011,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_255)" -"(let-values(((a_41)(unsafe-car lst_255))((rest_141)(unsafe-cdr lst_255)))" +"(let-values(((a_42)(unsafe-car lst_255))((rest_141)(unsafe-cdr lst_255)))" "(let-values(((result_110)" "(let-values()" "(let-values(((result_111)" "(let-values()" -"(let-values()(equal? a_41 n_26)))))" +"(let-values()(equal? a_42 n_26)))))" "(values result_111)))))" -"(if(if(not((lambda x_70 result_110) a_41))(not #f) #f)" +"(if(if(not((lambda x_70 result_110) a_42))(not #f) #f)" "(for-loop_230 result_110 rest_141)" " result_110)))" " result_109)))))" @@ -32976,28 +33040,28 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_185)(correlated-cadr e_67)))" -"(let-values(((or-part_252)" -"(if(correlated-length v_185)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_185))))" +"(let-values(((v_187)(correlated-cadr e_67)))" +"(let-values(((or-part_251)" +"(if(correlated-length v_187)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_187))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_252 or-part_252 fail-v_0))))" +"(if or-part_251 or-part_251 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_68 field-count_1)" "(begin" -"(let-values(((or-part_253)(quoted? false? e_68)))" -"(if or-part_253" -" or-part_253" -"(let-values(((or-part_254)" +"(let-values(((or-part_252)(quoted? false? e_68)))" +"(if or-part_252" +" or-part_252" +"(let-values(((or-part_253)" "(if(quoted? exact-nonnegative-integer? e_68)" "(if field-count_1(<(quoted-value e_68) field-count_1) #f)" " #f)))" -"(if or-part_254 or-part_254(is-lambda? e_68 #f '#hasheq()))))))))" +"(if or-part_253 or-part_253(is-lambda? e_68 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_69 init-field-count-expr_1)" @@ -33034,33 +33098,33 @@ static const char *startup_source = "(lambda(e_70 locals_17 type_1 defns_10)" "(begin" "(let-values(((l_63)(correlated->list e_70)))" -"(let-values(((a_42)" -"(if(let-values(((or-part_255)(=(length l_63) 3)))" -"(if or-part_255 or-part_255(=(length l_63) 4)))" -"(let-values(((or-part_256)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_256 or-part_256(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(let-values(((a_43)" +"(if(let-values(((or-part_254)(=(length l_63) 3)))" +"(if or-part_254 or-part_254(=(length l_63) 4)))" +"(let-values(((or-part_255)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_255 or-part_255(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" -"(if(known-struct-op? a_42)" -"(if(eq?(known-struct-op-type a_42) type_1)" -"(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_257)(=(length l_63) 3)))" -"(if or-part_257 or-part_257(quoted? symbol?(list-ref l_63 3))))" +"(if(known-struct-op? a_43)" +"(if(eq?(known-struct-op-type a_43) type_1)" +"(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_43))" +"(let-values(((or-part_256)(=(length l_63) 3)))" +"(if or-part_256 or-part_256(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" "(define-values(maybe+)(lambda(x_72 y_10)(begin(if x_72(if y_10(+ x_72 y_10) #f) #f))))" "(define-values" "(compile-single)" -"(lambda(p_44 cctx_13)" +"(lambda(p_45 cctx_13)" "(begin" -"(let-values(((p12_0) p_44)((cctx13_0) cctx_13)((temp14_4) #f)((temp15_4) #t))" +"(let-values(((p12_0) p_45)((cctx13_0) cctx_13)((temp14_4) #f)((temp15_4) #t))" "(compile-top9.1 temp14_4 temp15_4 #f p12_0 cctx13_0)))))" "(define-values" "(compile-top9.1)" "(lambda(serializable?1_0 single-expression?2_0 to-source?3_0 p7_0 cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_45) p7_0))" +"(let-values(((p_46) p7_0))" "(let-values(((cctx_14) cctx8_0))" "(let-values(((serializable?_1) serializable?1_0))" "(let-values(((single-expression?_0) single-expression?2_0))" @@ -33078,7 +33142,7 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_45))" +"(let-values(((temp16_4)(list p_46))" "((cctx17_0) cctx_14)" "((mpis18_0) mpis_18)" "((temp19_0)" @@ -33215,12 +33279,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_46 cctx_16)" +"(lambda(p_47 cctx_16)" "(begin" "(let-values(((phase_83)(compile-context-phase cctx_16)))" -"(if(parsed-require? p_46)" +"(if(parsed-require? p_47)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_16)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_47)) cctx_16)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -33249,9 +33313,9 @@ static const char *startup_source = "(let-values(((as-transformer?_5) as-transformer?5_0))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_83)(hash-ref defined-syms_8 phase_84 #f)))" -"(if or-part_83" -" or-part_83" +"(let-values(((or-part_82)(hash-ref defined-syms_8 phase_84 #f)))" +"(if or-part_82" +" or-part_82" "(let-values(((ht_115)(make-hasheq)))" "(begin(hash-set! defined-syms_8 phase_84 ht_115) ht_115))))))" "(reverse$1" @@ -33296,7 +33360,7 @@ static const char *startup_source = " #f)" " #f)" " sym_61" -"((letrec-values(((loop_81)" +"((letrec-values(((loop_83)" "(lambda(pos_98)" "(begin" " 'loop" @@ -33314,11 +33378,11 @@ static const char *startup_source = " id_53" " phase_84" " top-level-bind-scope_3)" -"(loop_81" +"(loop_83" "(add1" " pos_98))" " s_183))))))" -" loop_81)" +" loop_83)" " 1))))" "(let-values((()" "(begin" @@ -33417,9 +33481,9 @@ static const char *startup_source = "(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_70)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_210)(bound-identifier=?$1 id_54 m-id_0 phase_70)))" -"(if or-part_210" -" or-part_210" +"(let-values(((or-part_209)(bound-identifier=?$1 id_54 m-id_0 phase_70)))" +"(if or-part_209" +" or-part_209" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_70)" " #f)))))))" @@ -33429,9 +33493,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_85))" -"(let-values(((or-part_258)(not top-level-bind-scope_5)))" -"(if or-part_258" -" or-part_258" +"(let-values(((or-part_257)(not top-level-bind-scope_5)))" +"(if or-part_257" +" or-part_257" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33466,9 +33530,9 @@ static const char *startup_source = "(lambda(defined-syms_9 phase_75 sym_62 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_219)(hash-ref defined-syms_9 phase_75 #f)))" -"(if or-part_219" -" or-part_219" +"(let-values(((or-part_218)(hash-ref defined-syms_9 phase_75 #f)))" +"(if or-part_218" +" or-part_218" "(let-values(((ht_116)(make-hasheq)))" "(begin(hash-set! defined-syms_9 phase_75 ht_116) ht_116))))))" "(hash-set! defined-syms-at-phase_1 sym_62 id_56)))))" @@ -33710,11 +33774,11 @@ static const char *startup_source = "(begin" "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_186) root-context_0))" -"(let-values(((the-struct_54) v_186))" +"(let-values(((v_188) root-context_0))" +"(let-values(((the-struct_54) v_188))" "(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_186)))" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_188)))" "(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -33767,8 +33831,8 @@ static const char *startup_source = "((lst_159) import-module-uses_0)" "((lst_89) import-module-instances_0)" "((lst_262)" -"(let-values(((or-part_82) extra-inspectorsss_4))" -"(if or-part_82 or-part_82 import-module-uses_0))))" +"(let-values(((or-part_81) extra-inspectorsss_4))" +"(if or-part_81 or-part_81 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -33846,7 +33910,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((a_43)" +"(let-values(((a_44)" "(hash-ref" "(hash-ref" " access_2" @@ -33857,32 +33921,32 @@ static const char *startup_source = " 'unexported)))" "(if(let-values(((or-part_21)" "(eq?" -" a_43" +" a_44" " 'unexported)))" "(if or-part_21" " or-part_21" "(eq?" -" a_43" +" a_44" " 'protected)))" "(let-values()" "(let-values(((guard-insp_3)" "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_259)" +"(if(let-values(((or-part_258)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_260)" +"(if or-part_258" +" or-part_258" +"(let-values(((or-part_259)" "(if extra-inspector_6" "(inspector-superior?" " extra-inspector_6" " guard-insp_3)" " #f)))" -"(if or-part_260" -" or-part_260" +"(if or-part_259" +" or-part_259" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33901,7 +33965,7 @@ static const char *startup_source = " \"access disallowed by code inspector to ~a variable\\n\"" " \" variable: ~s\\n\"" " \" from module: ~a\")" -" a_43" +" a_44" " import-sym_0" "(1/module-path-index-resolve" "(namespace-mpi" @@ -33940,15 +34004,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_261)(module-access m_16)))" -"(if or-part_261 or-part_261(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_64 'unexported)))" -"(if(let-values(((or-part_34)(eq? a_44 'unexported)))" -"(if or-part_34 or-part_34(eq? a_44 'protected)))" +"(let-values(((or-part_260)(module-access m_16)))" +"(if or-part_260 or-part_260(module-compute-access! m_16)))))" +"(let-values(((a_45)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_64 'unexported)))" +"(if(let-values(((or-part_34)(eq? a_45 'unexported)))" +"(if or-part_34 or-part_34(eq? a_45 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_262)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_262 or-part_262(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_261)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_261 or-part_261(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -34019,7 +34083,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_99))" "(let-values(((table_178)" -"(let-values(((v_187)" +"(let-values(((v_189)" "(hash-ref" " h_1" " phase-level_17" @@ -34034,7 +34098,7 @@ static const char *startup_source = "(let-values(((table_180)" "(let-values(((table_109)" " table_179))" -"(if v_187" +"(if v_189" "(let-values(((table_181)" " table_109))" "(let-values(((table_182)" @@ -34045,7 +34109,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_187)))))" +" v_189)))))" "(hash-set" " table_181" " key_68" @@ -34664,9 +34728,9 @@ static const char *startup_source = "(force-syntax-deserialize)" "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" "(begin" -"(if(let-values(((or-part_263)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" -"(if or-part_263" -" or-part_263" +"(if(let-values(((or-part_262)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" +"(if or-part_262" +" or-part_262" "(eq? syntax-literals-data-instance_2 empty-syntax-literals-instance/empty-namespace)))" "(void)" "(let-values()" @@ -35330,9 +35394,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_217)(symbol? name_54)))" -"(if or-part_217" -" or-part_217" +"(if(let-values(((or-part_216)(symbol? name_54)))" +"(if or-part_216" +" or-part_216" "(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" @@ -35655,7 +35719,7 @@ static const char *startup_source = " cctx12_0)" "(begin" " 'compile-module13" -"(let-values(((p_45) p11_0))" +"(let-values(((p_46) p11_0))" "(let-values(((cctx_14) cctx12_0))" "(let-values(((force-linklet-directory?_0) force-linklet-directory?1_0))" "(let-values(((serializable?_2) serializable?2_0))" @@ -35668,13 +35732,13 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_14))" -"((name_55)(syntax-e$1(parsed-module-name-id p_45))))" +"((name_55)(syntax-e$1(parsed-module-name-id p_46))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" "(list name_55))" " name_55))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_45)))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_46)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" @@ -35711,7 +35775,7 @@ static const char *startup_source = "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_45))" +" p_46))" " #f)" "(update-submodule-names" "(cdr" @@ -35734,7 +35798,7 @@ static const char *startup_source = "(hash-iterate-first ht_121)))))))))" "(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_45)))" +"(let-values(((c1_27)(parsed-module-compiled-module p_46)))" "(if c1_27" "((lambda(c_45)" "(let-values(((name_52 prefix_6)" @@ -35749,7 +35813,7 @@ static const char *startup_source = "(map2 cdr post-submodules_0)))))" " c1_27)" "(let-values()" -"(let-values(((p37_0) p_45)" +"(let-values(((p37_0) p_46)" "((cctx38_0) cctx_14)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -35785,7 +35849,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_18) p32_1))" +"(let-values(((p_19) p32_1))" "(let-values(((cctx_17) cctx33_0))" "(let-values(((full-module-name_2) full-module-name16_0))" "(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))" @@ -35798,16 +35862,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_25)(parsed-module-self p_18)))" -"(let-values(((requires_5)(parsed-module-requires p_18)))" -"(let-values(((provides_11)(parsed-module-provides p_18)))" +"(let-values(((self_25)(parsed-module-self p_19)))" +"(let-values(((requires_5)(parsed-module-requires p_19)))" +"(let-values(((provides_11)(parsed-module-provides p_19)))" "(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_18))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_18)))" +"(box(parsed-module-encoded-root-ctx p_19))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_19)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_18) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_18)))" +"(syntax-property$1(parsed-s p_19) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_19)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" @@ -36320,10 +36384,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_179)" +"(let-values(((or-part_178)" " declaration-linklet_0))" -"(if or-part_179" -" or-part_179" +"(if or-part_178" +" or-part_178" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36668,21 +36732,21 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_155" -"(let-values(((k_33 v_71)(hash-iterate-key+value ht_129 i_155)))" +"(let-values(((k_33 v_73)(hash-iterate-key+value ht_129 i_155)))" "(let-values(((table_200)" "(let-values(((table_201) table_199))" "(let-values(((table_202)" "(let-values()" "(let-values(((key_75 val_66)" "(let-values()" -"(if(1/linklet? v_71)" +"(if(1/linklet? v_73)" "(let-values()" "(values" " k_33" "(1/recompile-linklet" -" v_71)))" +" v_73)))" "(let-values()" -"(values k_33 v_71))))))" +"(values k_33 v_73))))))" "(hash-set table_201 key_75 val_66)))))" "(values table_202)))))" "(if(not #f)" @@ -36762,9 +36826,9 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_76)(1/linklet-bundle? ld_6)))" -"(if or-part_76" -" or-part_76" +"(let-values(((or-part_75)(1/linklet-bundle? ld_6)))" +"(if or-part_75" +" or-part_75" "(let-values(((b_77)" "(hash-ref" "(1/linklet-directory->hash ld_6)" @@ -36911,7 +36975,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_29)))" -"(let-values(((v_67)(make-vector len_29 0)))" +"(let-values(((v_69)(make-vector len_29 0)))" "(begin" "(if(zero? len_29)" "(void)" @@ -36945,7 +37009,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_67" +" v_69" " i_63" "(let-values()" "(vector-ref" @@ -36974,7 +37038,7 @@ static const char *startup_source = " for-loop_102)" " 0" " 0)))))" -" v_67))))" +" v_69))))" "(let-values(((len_31)(cdr syntax-literals-spec_0)))" "(begin" "(if(exact-nonnegative-integer? len_31)" @@ -36984,7 +37048,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_31)))" -"(let-values(((v_34)(make-vector len_31 0)))" +"(let-values(((v_36)(make-vector len_31 0)))" "(begin" "(if(zero? len_31)" "(void)" @@ -37013,7 +37077,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_34" +" v_36" " i_36" "(let-values()" "(if syntax-literals_5" @@ -37047,7 +37111,7 @@ static const char *startup_source = " for-loop_245)" " 0" " start_15)))))" -" v_34))))" +" v_36))))" "(map-construct-compiled-in-memory_0 pres_0 1)" "(map-construct-compiled-in-memory_0 posts_0 2)" " namespace-scopes_0" @@ -37509,7 +37573,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_96)(make-vector len_32 0)))" +"(let-values(((v_98)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37534,7 +37598,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_96" +" v_98" " i_164" "(let-values()" "(swap-top-level-scopes" @@ -37558,7 +37622,7 @@ static const char *startup_source = " for-loop_6)" " 0" " 0)))))" -" v_96)))))))))" +" v_98)))))))))" "(1/make-instance" " 'link" " #f" @@ -37571,12 +37635,12 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_44 ns_42 self-mpi_3)" +"(lambda(p_45 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_44)" +"(if(parsed-app? p_45)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" -"(let-values(((lst_103)(parsed-app-rands p_44)))" +"(if(can-direct-eval?(parsed-app-rator p_45) ns_42 self-mpi_3)" +"(let-values(((lst_103)(parsed-app-rands p_45)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -37602,21 +37666,21 @@ static const char *startup_source = " #t" " lst_103)))" " #f))" -"(if(parsed-id? p_44)" -"(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_44)" +"(if(parsed-id? p_45)" +"(let-values()(not(eq?(get-id-value p_45 ns_42 self-mpi_3) not-available)))" +"(if(parsed-quote? p_45)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_44)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_45)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_47 ns_67 self-mpi_4)" +"(lambda(p_48 ns_67 self-mpi_4)" "(begin" -"(if(parsed-app? p_47)" +"(if(parsed-app? p_48)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_47) ns_67 self-mpi_4)" +"(direct-eval(parsed-app-rator p_48) ns_67 self-mpi_4)" "(reverse$1" -"(let-values(((lst_77)(parsed-app-rands p_47)))" +"(let-values(((lst_77)(parsed-app-rands p_48)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_95)" @@ -37639,11 +37703,11 @@ static const char *startup_source = " for-loop_95)" " null" " lst_77))))))" -"(if(parsed-id? p_47)" -"(let-values()(get-id-value p_47 ns_67 self-mpi_4))" -"(if(parsed-quote? p_47)" -"(let-values()(parsed-quote-datum p_47))" -"(if(parsed-quote-syntax? p_47)(let-values()(parsed-quote-syntax-datum p_47))(let-values() #f))))))))" +"(if(parsed-id? p_48)" +"(let-values()(get-id-value p_48 ns_67 self-mpi_4))" +"(if(parsed-quote? p_48)" +"(let-values()(parsed-quote-datum p_48))" +"(if(parsed-quote-syntax? p_48)(let-values()(parsed-quote-syntax-datum p_48))(let-values() #f))))))))" "(define-values" "(get-id-value)" "(lambda(p_1 ns_73 self-mpi_5)" @@ -37651,11 +37715,11 @@ static const char *startup_source = "(let-values(((b_74)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" "(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_74) get-not-available))" -"(if(let-values(((or-part_75)(parsed-top-id? p_1)))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_76)(not b_74)))" -"(if or-part_76 or-part_76(eq? self-mpi_5(module-binding-module b_74))))))" +"(if(let-values(((or-part_74)(parsed-top-id? p_1)))" +"(if or-part_74" +" or-part_74" +"(let-values(((or-part_75)(not b_74)))" +"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_74))))))" "(let-values()" "(namespace-get-variable" " ns_73" @@ -37720,7 +37784,7 @@ static const char *startup_source = "(define-values" "(runtime-instances)" " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))" -"(define-values(box-cons!)(lambda(b_16 v_71)(begin(set-box! b_16(cons v_71(unbox b_16))))))" +"(define-values(box-cons!)(lambda(b_16 v_73)(begin(set-box! b_16(cons v_73(unbox b_16))))))" "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" @@ -38049,12 +38113,12 @@ static const char *startup_source = "(lambda(module-lifts_2 s_409 phase_100)" "(begin" "(begin" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_170)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_171" -" or-part_171" +"(if or-part_170" +" or-part_170" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" @@ -38219,10 +38283,10 @@ static const char *startup_source = "(1/prop:expansion-contexts expansion-contexts? expansion-contexts-ref)" "(make-struct-type-property" " 'expansion-contexts" -"(lambda(v_26 info_1)" +"(lambda(v_28 info_1)" "(begin" -"(if(if(list? v_26)" -"(let-values(((lst_75) v_26))" +"(if(if(list? v_28)" +"(let-values(((lst_75) v_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -38259,8 +38323,8 @@ static const char *startup_source = "(raise-argument-error" " 'guard-for-prop:expansion-contexts" " \"(listof (or/c 'expression 'top-level 'module 'module-begin 'definition-context))\"" -" v_26)))" -" v_26))))" +" v_28)))" +" v_28))))" "(define-values" "(not-in-this-expand-context?)" "(lambda(t_46 ctx_12)" @@ -38438,8 +38502,8 @@ static const char *startup_source = "(let-values(((c1_28)(hash-ref key->arity key_80 #f)))" "(if c1_28" "((lambda(arity_2)" -"(if(let-values(((or-part_131)(eq? arity_2 'any)))" -"(if or-part_131 or-part_131(eqv?(length args_5) arity_2)))" +"(if(let-values(((or-part_130)(eq? arity_2 'any)))" +"(if or-part_130 or-part_130(eqv?(length args_5) arity_2)))" "(void)" " (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))" " c1_28)" @@ -38637,9 +38701,9 @@ static const char *startup_source = "(let-values(((i_45)(unsafe-car lst_273))((rest_152)(unsafe-cdr lst_273)))" "(let-values(((fold-var_225)" "(let-values(((fold-var_226) fold-var_5))" -"(if(let-values(((or-part_264)(parsed? i_45)))" -"(if or-part_264" -" or-part_264" +"(if(let-values(((or-part_263)(parsed? i_45)))" +"(if or-part_263" +" or-part_263" "(let-values(((or-part_36)(expanded+parsed? i_45)))" "(if or-part_36" " or-part_36" @@ -38684,9 +38748,9 @@ static const char *startup_source = "(let-values(((i_37)(unsafe-car lst_280))((rest_159)(unsafe-cdr lst_280)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_156))" -"(if(let-values(((or-part_24)(syntax?$1 i_37)))" -"(if or-part_24" -" or-part_24" +"(if(let-values(((or-part_264)(syntax?$1 i_37)))" +"(if or-part_264" +" or-part_264" "(let-values(((or-part_25)(expanded+parsed? i_37)))" "(if or-part_25" " or-part_25" @@ -38905,8 +38969,8 @@ static const char *startup_source = "(let-values(((fail-non-transformer_1) fail-non-transformer12_0))" "(let-values()" "(let-values(((id_61)" -"(let-values(((or-part_141) alternate-id_2))" -"(if or-part_141 or-part_141(car(syntax-e/no-taint s_70))))))" +"(let-values(((or-part_140) alternate-id_2))" +"(if or-part_140 or-part_140(car(syntax-e/no-taint s_70))))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" "(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" " #f)" @@ -39116,11 +39180,11 @@ static const char *startup_source = "(if(let-values(((or-part_266)(syntax-any-macro-scopes? s_59)))" "(if or-part_266" " or-part_266" -"(let-values(((or-part_215)" +"(let-values(((or-part_214)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_215" -" or-part_215" +"(if or-part_214" +" or-part_214" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39496,15 +39560,15 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_188) accum-ctx_0))" -"(let-values(((the-struct_57) v_188))" +"(let-values(((v_190) accum-ctx_0))" +"(let-values(((the-struct_57) v_190))" "(if(expand-context/outer? the-struct_57)" "(let-values(((current-introduction-scopes202_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes203_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner204_0)(root-expand-context/outer-inner v_188)))" +"((inner204_0)(root-expand-context/outer-inner v_190)))" "(expand-context/outer1.1" " inner204_0" "(root-expand-context/outer-post-expansion-scope the-struct_57)" @@ -39587,11 +39651,11 @@ static const char *startup_source = "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_189) ctx_29))" -"(let-values(((the-struct_58) v_189))" +"(let-values(((v_191) ctx_29))" +"(let-values(((the-struct_58) v_191))" "(if(expand-context/outer? the-struct_58)" "(let-values(((scopes205_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner206_0)(root-expand-context/outer-inner v_189)))" +"((inner206_0)(root-expand-context/outer-inner v_191)))" "(expand-context/outer1.1" " inner206_0" "(root-expand-context/outer-post-expansion-scope the-struct_58)" @@ -39674,7 +39738,7 @@ static const char *startup_source = "(let-values(((context_6)(expand-context-context ctx_31)))" "(let-values(((phase_102)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_92)" +"((letrec-values(((loop_94)" "(lambda(s_417 always-wrap?_1 ctx_32)" "(begin" " 'loop" @@ -39692,13 +39756,13 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp216_0 temp215_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_190) ctx_32))" -"(let-values(((the-struct_59) v_190))" +"(let-values(((v_192) ctx_32))" +"(let-values(((the-struct_59) v_192))" "(if(expand-context/outer? the-struct_59)" "(let-values(((inner217_0)" "(let-values(((the-struct_60)" "(root-expand-context/outer-inner" -" v_190)))" +" v_192)))" "(if(expand-context/inner?" " the-struct_60)" "(let-values(((lift-key218_0)" @@ -39838,7 +39902,7 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_92 rhs_15 #f rhs-ctx_0)))))" +"(loop_94 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts224_0) lifts_6)" @@ -39876,8 +39940,8 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_92 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_92)" +"(loop_94 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_94)" " s_252" " always-wrap?_0" " ctx_31))))))))))))))" @@ -39927,8 +39991,8 @@ static const char *startup_source = "(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" "(begin" "(namespace-visit-available-modules! ns_74 phase_103)" -"(let-values(((v_191) ctx_34))" -"(let-values(((the-struct_61) v_191))" +"(let-values(((v_193) ctx_34))" +"(let-values(((the-struct_61) v_193))" "(if(expand-context/outer? the-struct_61)" "(let-values(((context236_0) context_8)" "((scopes237_0) null)" @@ -39938,7 +40002,7 @@ static const char *startup_source = "((def-ctx-scopes240_0) #f)" "((post-expansion-scope241_0) #f)" "((inner242_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_191)))" +"(let-values(((the-struct_62)(root-expand-context/outer-inner v_193)))" "(if(expand-context/inner? the-struct_62)" "(let-values(((phase243_0) phase_103)" "((namespace244_0) ns_74)" @@ -40051,13 +40115,13 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_48 phase_104 ns_75 ctx_37)" +"(lambda(who_18 ids_21 p_49 phase_104 ns_75 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_48 ns_75(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_48" +" p_49" "(let-values(((ns255_0) ns_75)((phase256_0) phase_104))" "(make-compile-context14.1 #f unsafe-undefined #f ns255_0 phase256_0 unsafe-undefined))))))" "(let-values(((vals_4)" @@ -40076,7 +40140,7 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_75)" -"(direct-eval p_48 ns_75(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_49 ns_75(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" @@ -40143,7 +40207,7 @@ static const char *startup_source = "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_93)" +"(if((letrec-values(((loop_95)" "(lambda(ids_23)" "(begin" " 'loop" @@ -40151,10 +40215,10 @@ static const char *startup_source = "(if or-part_276" " or-part_276" "(if(pair? ids_23)" -"(let-values(((or-part_198)(loop_93(car ids_23))))" -"(if or-part_198 or-part_198(loop_93(cdr ids_23))))" +"(let-values(((or-part_197)(loop_95(car ids_23))))" +"(if or-part_197 or-part_197(loop_95(cdr ids_23))))" " #f)))))))" -" loop_93)" +" loop_95)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -40181,8 +40245,8 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_192) rhs-ctx_1))" -"(let-values(((the-struct_63) v_192))" +"(let-values(((v_194) rhs-ctx_1))" +"(let-values(((the-struct_63) v_194))" "(if(expand-context/outer? the-struct_63)" "(let-values(((env257_0)" "(let-values(((lst_281) ids_24)((lst_282) keys_4))" @@ -40237,7 +40301,7 @@ static const char *startup_source = "(expand-context-env rhs-ctx_1)" " lst_281" " lst_282))))" -"((inner258_0)(root-expand-context/outer-inner v_192)))" +"((inner258_0)(root-expand-context/outer-inner v_194)))" "(expand-context/outer1.1" " inner258_0" "(root-expand-context/outer-post-expansion-scope the-struct_63)" @@ -40471,11 +40535,11 @@ static const char *startup_source = "(let-values(((or-part_65)(root-expand-context-frame-id ctx_43)))" "(if or-part_65" " or-part_65" -"(let-values(((or-part_227)" +"(let-values(((or-part_226)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_227 or-part_227(gensym)))))))" +"(if or-part_226 or-part_226(gensym)))))))" "(let-values(((sc_32)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40516,8 +40580,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_99)(not s_423)))" -"(if or-part_99 or-part_99(syntax?$1 s_423)))" +"(if(let-values(((or-part_98)(not s_423)))" +"(if or-part_98 or-part_98(syntax?$1 s_423)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40767,17 +40831,17 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp60_3)" -"(let-values(((v_193)" +"(let-values(((v_195)" " ctx_44))" "(let-values(((the-struct_65)" -" v_193))" +" v_195))" "(if(expand-context/outer?" " the-struct_65)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" "(root-expand-context/outer-inner" -" v_193)))" +" v_195)))" "(expand-context/outer1.1" " inner64_0" "(root-expand-context/outer-post-expansion-scope" @@ -41074,8 +41138,8 @@ static const char *startup_source = "(if(identifier? id_71)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_207)(1/internal-definition-context? intdef_8)))" -"(if or-part_207 or-part_207(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" +"(if(let-values(((or-part_206)(1/internal-definition-context? intdef_8)))" +"(if or-part_206 or-part_206(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41083,18 +41147,18 @@ static const char *startup_source = " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_8)))" "(let-values(((x_77)" -"(let-values(((a_45) intdef_8))" -"(if(list? a_45)" -"(let-values()(reverse$1 a_45))" -"(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" +"(let-values(((a_46) intdef_8))" +"(if(list? a_46)" +"(let-values()(reverse$1 a_46))" +"(if(not a_46)(let-values() null)(let-values()(list a_46)))))))" "(begin" " #t" "((letrec-values(((for-loop_257)" -"(lambda(id_72 a_46)" +"(lambda(id_72 a_47)" "(begin" " 'for-loop" -"(if(pair? a_46)" -"(let-values(((intdef_9)(car a_46)))" +"(if(pair? a_47)" +"(let-values(((intdef_9)(car a_47)))" "(let-values(((id_73)" "(let-values(((id_74) id_72))" "(let-values(((id_75)" @@ -41104,7 +41168,7 @@ static const char *startup_source = " id_74" " 'remove))))" "(values id_75)))))" -"(if(not #f)(for-loop_257 id_73(cdr a_46)) id_73)))" +"(if(not #f)(for-loop_257 id_73(cdr a_47)) id_73)))" " id_72)))))" " for-loop_257)" " id_71" @@ -41127,18 +41191,18 @@ static const char *startup_source = "(lambda(env_11 intdefs_0)" "(begin" "(let-values(((x_80)" -"(let-values(((a_47) intdefs_0))" -"(if(list? a_47)" -"(let-values()(reverse$1 a_47))" -"(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" +"(let-values(((a_48) intdefs_0))" +"(if(list? a_48)" +"(let-values()(reverse$1 a_48))" +"(if(not a_48)(let-values() null)(let-values()(list a_48)))))))" "(begin" " #t" "((letrec-values(((for-loop_258)" -"(lambda(env_12 a_48)" +"(lambda(env_12 a_49)" "(begin" " 'for-loop" -"(if(pair? a_48)" -"(let-values(((intdef_10)(car a_48)))" +"(if(pair? a_49)" +"(let-values(((intdef_10)(car a_49)))" "(let-values(((env_13)" "(let-values(((env_14) env_12))" "(let-values(((env_15)" @@ -41156,7 +41220,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_10))))" -"((letrec-values(((loop_94)" +"((letrec-values(((loop_96)" "(lambda(env_16" " env-mixins_2)" "(begin" @@ -41167,17 +41231,17 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_180)" +"(let-values(((or-part_179)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_180" -" or-part_180" +"(if or-part_179" +" or-part_179" "(let-values(((new-env_0)" "(env-extend" -"(loop_94" +"(loop_96" " env_16" "(cdr" " env-mixins_2))" @@ -41192,11 +41256,11 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_94)" +" loop_96)" " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" -"(if(not #f)(for-loop_258 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_258 env_13(cdr a_49)) env_13)))" " env_12)))))" " for-loop_258)" " env_11" @@ -41212,18 +41276,18 @@ static const char *startup_source = "(let-values(((action_0)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))" "(let-values()" "(let-values(((x_81)" -"(let-values(((a_49) intdefs_1))" -"(if(list? a_49)" -"(let-values()(reverse$1 a_49))" -"(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" +"(let-values(((a_50) intdefs_1))" +"(if(list? a_50)" +"(let-values()(reverse$1 a_50))" +"(if(not a_50)(let-values() null)(let-values()(list a_50)))))))" "(begin" " #t" "((letrec-values(((for-loop_259)" -"(lambda(s_425 a_50)" +"(lambda(s_425 a_51)" "(begin" " 'for-loop" -"(if(pair? a_50)" -"(let-values(((intdef_11)(car a_50)))" +"(if(pair? a_51)" +"(let-values(((intdef_11)(car a_51)))" "(let-values(((s_321)" "(let-values(((s_213) s_425))" "(if(let-values(((or-part_279) always?_0))" @@ -41240,7 +41304,7 @@ static const char *startup_source = " intdef_11)))))" "(values s_427)))" " s_213))))" -"(if(not #f)(for-loop_259 s_321(cdr a_50)) s_321)))" +"(if(not #f)(for-loop_259 s_321(cdr a_51)) s_321)))" " s_425)))))" " for-loop_259)" " s_39" @@ -41277,8 +41341,8 @@ static const char *startup_source = "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_194) ctx_45))" -"(let-values(((the-struct_66) v_194))" +"(let-values(((v_196) ctx_45))" +"(let-values(((the-struct_66) v_196))" "(if(expand-context/outer? the-struct_66)" "(let-values(((context69_0) context_9)" "((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" @@ -41294,20 +41358,20 @@ static const char *startup_source = " #f))" "((frame-id72_0)" "(let-values(((x_82)" -"(let-values(((a_51) intdefs_2))" -"(if(list? a_51)" -"(let-values()(reverse$1 a_51))" -"(if(not a_51)" +"(let-values(((a_52) intdefs_2))" +"(if(list? a_52)" +"(let-values()(reverse$1 a_52))" +"(if(not a_52)" "(let-values() null)" -"(let-values()(list a_51)))))))" +"(let-values()(list a_52)))))))" "(begin" " #t" "((letrec-values(((for-loop_260)" -"(lambda(frame-id_9 a_52)" +"(lambda(frame-id_9 a_53)" "(begin" " 'for-loop" -"(if(pair? a_52)" -"(let-values(((intdef_12)(car a_52)))" +"(if(pair? a_53)" +"(let-values(((intdef_12)(car a_53)))" "(let-values(((frame-id_10)" "(let-values(((frame-id_11)" " frame-id_9))" @@ -41337,7 +41401,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_260" " frame-id_10" -"(cdr a_52))" +"(cdr a_53))" " frame-id_10)))" " frame-id_9)))))" " for-loop_260)" @@ -41374,7 +41438,7 @@ static const char *startup_source = "(if ht_130(let-values()(make-hasheqv))(let-values() #f)))))" "((inner79_0)" "(let-values(((the-struct_67)" -"(root-expand-context/outer-inner v_194)))" +"(root-expand-context/outer-inner v_196)))" "(if(expand-context/inner? the-struct_67)" "(let-values(((to-parsed?82_0)" "(if to-parsed-ok?_0" @@ -41720,11 +41784,11 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_83)" -"(let-values(((or-part_210)(not x_83)))" -"(if or-part_210" -" or-part_210" -"((lambda(p_49)" -"(if(procedure? p_49)(procedure-arity-includes? p_49 0) #f))" +"(let-values(((or-part_209)(not x_83)))" +"(if or-part_209" +" or-part_209" +"((lambda(p_50)" +"(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" " x_83))))" " failure-thunk_0)" "(void)" @@ -41745,14 +41809,14 @@ static const char *startup_source = "(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" "(let-values(((ctx_11)" "(if intdefs_3" -"(let-values(((v_195) current-ctx_0))" -"(let-values(((the-struct_68) v_195))" +"(let-values(((v_197) current-ctx_0))" +"(let-values(((the-struct_68) v_197))" "(if(expand-context/outer? the-struct_68)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_195)))" +"((inner83_0)(root-expand-context/outer-inner v_197)))" "(expand-context/outer1.1" " inner83_0" "(root-expand-context/outer-post-expansion-scope the-struct_68)" @@ -41783,7 +41847,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((phase_70)(expand-context-phase ctx_11)))" -"((letrec-values(((loop_95)" +"((letrec-values(((loop_97)" "(lambda(id_61)" "(begin" " 'loop" @@ -41828,7 +41892,7 @@ static const char *startup_source = "(failure-thunk_0)" " (error who_19 \"unbound identifier: ~v\" id_61))))" "(let-values()" -"(let-values(((v_37 primitive?_7 insp_17 protected?_8)" +"(let-values(((v_39 primitive?_7 insp_17 protected?_8)" "(let-values(((b87_1) b_81)" "((ctx88_0) ctx_11)" "((id89_0) id_61)" @@ -41839,8 +41903,8 @@ static const char *startup_source = " b87_1" " ctx88_0" " id89_0))))" -"(if(let-values(((or-part_102)(variable? v_37)))" -"(if or-part_102 or-part_102(core-form? v_37)))" +"(if(let-values(((or-part_101)(variable? v_39)))" +"(if or-part_101 or-part_101(core-form? v_39)))" "(let-values()" "(begin" "(let-values(((obs_37)" @@ -41866,7 +41930,7 @@ static const char *startup_source = "(if obs_38" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_37)" +"(if(1/rename-transformer? v_39)" "(not immediate?_1)" " #f))" "(let-values()" @@ -41876,18 +41940,18 @@ static const char *startup_source = " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_37)" +"(if(1/rename-transformer? v_39)" "(let-values()" "(if immediate?_1" "(values" -" v_37" -"(1/rename-transformer-target v_37))" -"(loop_95" -"(1/rename-transformer-target v_37))))" +" v_39" +"(1/rename-transformer-target v_39))" +"(loop_97" +"(1/rename-transformer-target v_39))))" "(if immediate?_1" -"(let-values()(values v_37 #f))" -"(let-values() v_37)))))))))))))))" -" loop_95)" +"(let-values()(values v_39 #f))" +"(let-values() v_39)))))))))))))))" +" loop_97)" "(flip-introduction-scopes id_78 ctx_11))))))))))))))))))" "(define-values" "(1/syntax-local-value)" @@ -42646,34 +42710,34 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_69)" -"(begin" -"(let-values(((or-part_26)(if(list? v_69)(if(=(length v_69) 5)(srcloc-vector?(list->vector v_69)) #f) #f)))" -"(if or-part_26 or-part_26(if(vector? v_69)(if(=(vector-length v_69) 5)(srcloc-vector? v_69) #f) #f))))))" -"(define-values" -"(srcloc-vector?)" "(lambda(v_71)" "(begin" -"(if(let-values(((or-part_291)(not(vector-ref v_71 1))))" -"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_71 1))))" -"(if(let-values(((or-part_27)(not(vector-ref v_71 2))))" -"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_71 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_71 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_71 3))))" -"(let-values(((or-part_158)(not(vector-ref v_71 4))))" -"(if or-part_158 or-part_158(exact-nonnegative-integer?(vector-ref v_71 4))))" +"(let-values(((or-part_26)(if(list? v_71)(if(=(length v_71) 5)(srcloc-vector?(list->vector v_71)) #f) #f)))" +"(if or-part_26 or-part_26(if(vector? v_71)(if(=(vector-length v_71) 5)(srcloc-vector? v_71) #f) #f))))))" +"(define-values" +"(srcloc-vector?)" +"(lambda(v_73)" +"(begin" +"(if(let-values(((or-part_291)(not(vector-ref v_73 1))))" +"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_73 1))))" +"(if(let-values(((or-part_27)(not(vector-ref v_73 2))))" +"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_73 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_73 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_73 3))))" +"(let-values(((or-part_157)(not(vector-ref v_73 4))))" +"(if or-part_157 or-part_157(exact-nonnegative-integer?(vector-ref v_73 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_136)" +"(lambda(v_138)" "(begin" -"(if(srcloc? v_136)" +"(if(srcloc? v_138)" "(let-values()" "(let-values(((the-struct_35) empty-syntax))" "(if(syntax?$1 the-struct_35)" -"(let-values(((srcloc1_2) v_136))" +"(let-values(((srcloc1_2) v_138))" "(syntax1.1" "(syntax-content the-struct_35)" "(syntax-scopes the-struct_35)" @@ -42684,19 +42748,19 @@ static const char *startup_source = "(syntax-props the-struct_35)" "(syntax-inspector the-struct_35)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))" -"(if(pair? v_136)" -"(let-values()(to-srcloc-stx(list->vector v_136)))" -"(if(vector? v_136)" +"(if(pair? v_138)" +"(let-values()(to-srcloc-stx(list->vector v_138)))" +"(if(vector? v_138)" "(let-values()" "(let-values(((the-struct_36) empty-syntax))" "(if(syntax?$1 the-struct_36)" "(let-values(((srcloc2_0)" "(srcloc" -"(vector-ref v_136 0)" -"(vector-ref v_136 1)" -"(vector-ref v_136 2)" -"(vector-ref v_136 3)" -"(vector-ref v_136 4))))" +"(vector-ref v_138 0)" +"(vector-ref v_138 1)" +"(vector-ref v_138 2)" +"(vector-ref v_138 3)" +"(vector-ref v_138 4))))" "(syntax1.1" "(syntax-content the-struct_36)" "(syntax-scopes the-struct_36)" @@ -42707,7 +42771,7 @@ static const char *startup_source = "(syntax-props the-struct_36)" "(syntax-inspector the-struct_36)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))" -"(let-values() v_136)))))))" +"(let-values() v_138)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42806,7 +42870,7 @@ static const char *startup_source = "(lambda(a9_0 b10_0 phase8_0)" "(begin" " 'bound-identifier=?11" -"(let-values(((a_53) a9_0))" +"(let-values(((a_54) a9_0))" "(let-values(((b_82) b10_0))" "(let-values(((phase_120)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" @@ -42814,26 +42878,26 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_53)" +"(if(identifier? a_54)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_54)))" "(if(identifier? b_82)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_82)))" "(if(phase? phase_120)" "(void)" "(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_120)))" -"(bound-identifier=?$1 a_53 b_82 phase_120))))))))))))" +"(bound-identifier=?$1 a_54 b_82 phase_120))))))))))))" "(case-lambda" -"((a_54 b_83)(begin 'bound-identifier=?(bound-identifier=?11_0 a_54 b_83 unsafe-undefined)))" -"((a_55 b_84 phase8_1)(bound-identifier=?11_0 a_55 b_84 phase8_1)))))" +"((a_55 b_83)(begin 'bound-identifier=?(bound-identifier=?11_0 a_55 b_83 unsafe-undefined)))" +"((a_56 b_84 phase8_1)(bound-identifier=?11_0 a_56 b_84 phase8_1)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?17_0)" "(lambda(a15_0 b16_1 a-phase13_0 b-phase14_0)" "(begin" " 'free-identifier=?17" -"(let-values(((a_56) a15_0))" +"(let-values(((a_57) a15_0))" "(let-values(((b_85) b16_1))" "(let-values(((a-phase_1)" "(if(eq? a-phase13_0 unsafe-undefined)(1/syntax-local-phase-level) a-phase13_0)))" @@ -42842,9 +42906,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_56)" +"(if(identifier? a_57)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_57)))" "(if(identifier? b_85)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_85)))" @@ -42854,23 +42918,23 @@ static const char *startup_source = "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_56 b_85 a-phase_1 b-phase_1)))))))))))))" +"(free-identifier=?$1 a_57 b_85 a-phase_1 b-phase_1)))))))))))))" "(case-lambda" -"((a_57 b_39)(begin 'free-identifier=?(free-identifier=?17_0 a_57 b_39 unsafe-undefined unsafe-undefined)))" -"((a_58 b_86 a-phase_2 b-phase14_1)(free-identifier=?17_0 a_58 b_86 a-phase_2 b-phase14_1))" -"((a_59 b_87 a-phase13_1)(free-identifier=?17_0 a_59 b_87 a-phase13_1 unsafe-undefined)))))" +"((a_58 b_39)(begin 'free-identifier=?(free-identifier=?17_0 a_58 b_39 unsafe-undefined unsafe-undefined)))" +"((a_59 b_86 a-phase_2 b-phase14_1)(free-identifier=?17_0 a_59 b_86 a-phase_2 b-phase14_1))" +"((a_60 b_87 a-phase13_1)(free-identifier=?17_0 a_60 b_87 a-phase13_1 unsafe-undefined)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_88)" +"(lambda(a_61 b_88)" "(begin" " 'free-transformer-identifier=?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? a_60)" +"(if(identifier? a_61)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_60)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_61)))" "(values))))" "(let-values((()" "(begin" @@ -42879,19 +42943,19 @@ static const char *startup_source = " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_88)))" "(values))))" "(let-values(((phase_121)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_88 phase_121 phase_121)))))))))" +"(free-identifier=?$1 a_61 b_88 phase_121 phase_121)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_89)" +"(lambda(a_62 b_89)" "(begin" " 'free-template-identifier=?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? a_61)" +"(if(identifier? a_62)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_61)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_62)))" "(values))))" "(let-values((()" "(begin" @@ -42900,22 +42964,22 @@ static const char *startup_source = " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_89)))" "(values))))" "(let-values(((phase_122)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_122 phase_122)))))))))" +"(free-identifier=?$1 a_62 b_89 phase_122 phase_122)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_62 b_90)" +"(lambda(a_63 b_90)" "(begin" " 'free-label-identifier=?" "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_62)" +"(if(identifier? a_63)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_63)))" "(if(identifier? b_90)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_90)))" -"(free-identifier=?$1 a_62 b_90 #f #f)))))))" +"(free-identifier=?$1 a_63 b_90 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding22_0)" @@ -43226,7 +43290,7 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_96)" +"((letrec-values(((loop_98)" "(lambda(mpi_46" " phase_128" " attach-instances?_1" @@ -43257,10 +43321,10 @@ static const char *startup_source = " '#hasheqv())" " phase_128" " missing_0)))" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_163)" "(eq? missing_0 m-ns_12)))" -"(if or-part_164" -" or-part_164" +"(if or-part_163" +" or-part_163" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -43287,7 +43351,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(loop_96" +"(loop_98" " mpi_46" " 0" " attach-instances?_1" @@ -43501,7 +43565,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_96" +"(loop_98" "(module-path-index-shift" " req_5" "(module-self" @@ -43560,7 +43624,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_96" +"(loop_98" "(1/module-path-index-join" "(list" " 'submod" @@ -43584,7 +43648,7 @@ static const char *startup_source = "(if(module-supermodule-name" " m_20)" "(let-values()" -"(loop_96" +"(loop_98" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -43594,7 +43658,7 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_96)" +" loop_98)" "(1/module-path-index-join" "(if(1/resolved-module-path? mod-path_16)" "(resolved-module-path->module-path mod-path_16)" @@ -43866,11 +43930,11 @@ static const char *startup_source = "((temp65_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp66_2)" -"(let-values(((or-part_75)" +"(let-values(((or-part_74)" "(namespace-declaration-inspector" " ns_58)))" -"(if or-part_75" -" or-part_75" +"(if or-part_74" +" or-part_74" "(current-code-inspector))))" "((temp67_1) #t))" "(syntax-transfer-shifts36.1" @@ -43914,8 +43978,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_83)(1/namespace? where_0)))" -"(if or-part_83 or-part_83(phase? where_0)))" +"(if(let-values(((or-part_82)(1/namespace? where_0)))" +"(if or-part_82 or-part_82(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43973,8 +44037,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_77)))))" -"(if(let-values(((or-part_164)(1/module-path-index? req_6)))" -"(if or-part_164 or-part_164(1/module-path? req_6)))" +"(if(let-values(((or-part_163)(1/module-path-index? req_6)))" +"(if or-part_163 or-part_163(1/module-path? req_6)))" "(let-values()" "(let-values(((temp70_0)" "(if(1/module-path-index? req_6)" @@ -44191,7 +44255,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_196" +"(let-values(((v_198" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44215,7 +44279,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_196)" +"(if(variable? v_198)" "(void)" "(let-values()" "(escape_0" @@ -44570,7 +44634,7 @@ static const char *startup_source = "(begin" " 'compile-single" "(let-values(((exp-s_4)(expand_2 s_451 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_97)" +"((letrec-values(((loop_99)" "(lambda(exp-s_5)" "(begin" " 'loop" @@ -44624,7 +44688,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_97" +"(loop_99" " e_74))" " fold-var_160))))" "(values" @@ -44652,7 +44716,7 @@ static const char *startup_source = "((serializable?91_0) serializable?_7)" "((to-source?92_0) to-source?_5))" "(compile-top9.1 serializable?91_0 #f to-source?92_0 exp-s89_0 temp90_2)))))))))" -" loop_97)" +" loop_99)" " exp-s_4)))))" "(define-values" "(expand$1)" @@ -44814,11 +44878,11 @@ static const char *startup_source = "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" " s_458" -"(let-values(((v_126)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" -"(let-values(((the-struct_69) v_126))" +"(let-values(((v_128)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" +"(let-values(((the-struct_69) v_128))" "(if(expand-context/outer? the-struct_69)" "(let-values(((inner122_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_126)))" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_128)))" "(if(expand-context/inner? the-struct_70)" "(let-values(((just-once?123_0) #t))" "(expand-context/inner2.1" @@ -44941,18 +45005,18 @@ static const char *startup_source = "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" "(make-expand-context10.1 #f observer133_0 #f ns132_0))))" "(let-values(((phase_130)(namespace-phase ns_106)))" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_100)" "(lambda(s_461 phase_131 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_197) ctx_68))" -"(let-values(((the-struct_71) v_197))" +"(let-values(((v_199) ctx_68))" +"(let-values(((the-struct_71) v_199))" "(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_197)))" +" v_199)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase135_1)" @@ -45065,15 +45129,15 @@ static const char *startup_source = "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" " s_461" -"(let-values(((v_198) tl-ctx_0))" -"(let-values(((the-struct_73) v_198))" +"(let-values(((v_200) tl-ctx_0))" +"(let-values(((the-struct_73) v_200))" "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" "(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_198)))" +" v_200)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase141_0)" @@ -45201,7 +45265,7 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_3" -"(loop_98" +"(loop_100" " new-s_3" " phase_131" " ns_107" @@ -45312,7 +45376,7 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_98" +"(loop_100" "(car es_2)" " phase_131" " ns_107" @@ -45331,16 +45395,16 @@ static const char *startup_source = " 'next)))" "(void)))" "(values))))" -"(let-values(((a_63)" +"(let-values(((a_64)" "(if combine_0" -"(loop_98" +"(loop_100" "(car" " es_2)" " phase_131" " ns_107" " #f)" "(begin" -"(loop_98" +"(loop_100" "(car" " es_2)" " phase_131" @@ -45349,7 +45413,7 @@ static const char *startup_source = "(void)))))" "(if combine_0" "(combine_0" -" a_63" +" a_64" "(begin-loop_0" "(cdr" " es_2)))" @@ -45523,7 +45587,7 @@ static const char *startup_source = " obs_54" " 'next)))" "(void)))" -"(loop_98" +"(loop_100" " s_467" " next-phase_0" " next-ns_0" @@ -45573,7 +45637,7 @@ static const char *startup_source = " exp-s_7" " ns_107" " as-tail?_7))))))))))))))))))" -" loop_98)" +" loop_100)" " s_216" " phase_130" " ns_106" @@ -45603,12 +45667,12 @@ static const char *startup_source = "(let-values(((exp-s_8)" "(let-values(((s155_0) s_343)" "((temp156_0)" -"(let-values(((v_199) ctx_27))" -"(let-values(((the-struct_75) v_199))" +"(let-values(((v_201) ctx_27))" +"(let-values(((the-struct_75) v_201))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_199)))" +"(root-expand-context/outer-inner v_201)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" @@ -45963,9 +46027,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_217)(1/module-path? mod-path_5)))" -"(if or-part_217" -" or-part_217" +"(if(let-values(((or-part_216)(1/module-path? mod-path_5)))" +"(if or-part_216" +" or-part_216" "(let-values(((or-part_3)(1/module-path-index? mod-path_5)))" "(if or-part_3 or-part_3(1/resolved-module-path? mod-path_5)))))" "(void)" @@ -46310,48 +46374,48 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_50)" +"(lambda(p_51)" "(begin" -"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) p_50)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) p_51)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_50)))" -" p_50))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_51)))" +" p_51))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_31)" +"(lambda(p_32)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_31)" +"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_32)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_31)))" -" p_31))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_32)))" +" p_32))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_53)" +"(lambda(p_54)" "(begin" -"(if((lambda(p_36)(if(procedure? p_36)(procedure-arity-includes? p_36 2) #f)) p_53)" +"(if((lambda(p_37)(if(procedure? p_37)(procedure-arity-includes? p_37 2) #f)) p_54)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_53)))" -" p_53))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_54)))" +" p_54))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_45)" +"(lambda(p_46)" "(begin" -"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_45)" +"(if((lambda(p_48)(if(procedure? p_48)(procedure-arity-includes? p_48 2) #f)) p_46)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_45)))" -" p_45))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_46)))" +" p_46))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -46379,15 +46443,15 @@ static const char *startup_source = "(if((lambda(l_75)" "(if(list? l_75)" "(andmap2" -"(lambda(p_54)" -"(let-values(((or-part_297)(not p_54)))" +"(lambda(p_55)" +"(let-values(((or-part_297)(not p_55)))" "(if or-part_297" " or-part_297" -"(let-values(((or-part_298)(complete-path-string? p_54)))" +"(let-values(((or-part_298)(complete-path-string? p_55)))" "(if or-part_298" " or-part_298" -"(if(hash? p_54)" -"(let-values(((ht_144) p_54))" +"(if(hash? p_55)" +"(let-values(((ht_144) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -46404,11 +46468,11 @@ static const char *startup_source = "(let-values(((result_120)" "(let-values()" "(let-values()" -"(if(let-values(((or-part_78)" +"(if(let-values(((or-part_77)" "(not" " k_35)))" -"(if or-part_78" -" or-part_78" +"(if or-part_77" +" or-part_77" "(if(symbol?" " k_35)" "(1/module-path?" @@ -46447,15 +46511,15 @@ static const char *startup_source = " \" (listof (and/c path-string? complete-path?)))))\")" " l_8)))" "(map2" -"(lambda(p_3)" -"(if(not p_3)" +"(lambda(p_4)" +"(if(not p_4)" "(let-values() #f)" -"(if(path? p_3)" -"(let-values() p_3)" -"(if(string? p_3)" -"(let-values()(string->path p_3))" +"(if(path? p_4)" +"(let-values() p_4)" +"(if(string? p_4)" +"(let-values()(string->path p_4))" "(let-values()" -"(let-values(((ht_145) p_3))" +"(let-values(((ht_145) p_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -46465,7 +46529,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_92" -"(let-values(((k_36 v_200)(hash-iterate-key+value ht_145 i_92)))" +"(let-values(((k_36 v_202)(hash-iterate-key+value ht_145 i_92)))" "(let-values(((table_206)" "(let-values(((table_178) table_205))" "(let-values(((table_207)" @@ -46474,7 +46538,7 @@ static const char *startup_source = "(let-values()" "(values" " k_36" -"(to-path v_200)))))" +"(to-path v_202)))))" "(hash-set" " table_178" " key_82" @@ -46512,8 +46576,8 @@ static const char *startup_source = "(if((lambda(l_78)" "(if(list? l_78)" "(andmap2" -"(lambda(p_55)" -"(let-values(((or-part_8)(path-string? p_55)))(if or-part_8 or-part_8(eq? p_55 'same))))" +"(lambda(p_56)" +"(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))" " l_78)" " #f))" " l_77)" @@ -46527,22 +46591,22 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_201)" +"(lambda(v_203)" "(begin" -"(if((lambda(v_67)" -"(let-values(((or-part_32)(eq? v_67 'modify-seconds)))" -"(if or-part_32 or-part_32(eq? v_67 'exists))))" -" v_201)" +"(if((lambda(v_69)" +"(let-values(((or-part_32)(eq? v_69 'modify-seconds)))" +"(if or-part_32 or-part_32(eq? v_69 'exists))))" +" v_203)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_201)))" -" v_201))))))" -"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_80)(if v_80 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_202)(if v_202 #t #f))))" -"(define-values(complete-path-string?)(lambda(p_56)(begin(if(path-string? p_56)(complete-path? p_56) #f))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_203)))" +" v_203))))))" +"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_204)(if v_204 #t #f))))" +"(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_57)(begin 'relative-path-string?(if(path-string? p_57)(relative-path? p_57) #f))))" -"(define-values(to-path)(lambda(p_58)(begin(if(string? p_58)(string->path p_58) p_58))))" +"(lambda(p_58)(begin 'relative-path-string?(if(path-string? p_58)(relative-path? p_58) #f))))" +"(define-values(to-path)(lambda(p_59)(begin(if(string? p_59)(string->path p_59) p_59))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -46554,8 +46618,8 @@ static const char *startup_source = "(begin" " (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_59)(->path s_0)))" -"(call-with-current-load-relative-directory p_59(lambda()((1/current-load) p_59 #f))))))))))" +"(let-values(((p_60)(->path s_0)))" +"(call-with-current-load-relative-directory p_60(lambda()((1/current-load) p_60 #f))))))))))" "(define-values" "(1/load-extension)" "(lambda(s_1)" @@ -46569,13 +46633,13 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))" "(values))))" -"(let-values(((p_60)(->path s_1)))" -"(call-with-current-load-relative-directory p_60(lambda()((current-load-extension) p_60 #f))))))))))" +"(let-values(((p_61)(->path s_1)))" +"(call-with-current-load-relative-directory p_61(lambda()((current-load-extension) p_61 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_31 thunk_6)" +"(lambda(p_32 thunk_6)" "(begin" -"(let-values(((base_18 name_63 dir?_2)(split-path p_31)))" +"(let-values(((base_18 name_63 dir?_2)(split-path p_32)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46596,7 +46660,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_27)))" "(values))))" -"(let-values(((p_47)(->path f_27)))((1/current-load/use-compiled) p_47 #f))))))))" +"(let-values(((p_48)(->path f_27)))((1/current-load/use-compiled) p_48 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_41 end_31 str_24 as-predefined?_0)" @@ -46610,8 +46674,8 @@ static const char *startup_source = "(let-values(((or-part_298)(1/string->number start_41)))" "(if or-part_298 or-part_298 0))))" "(let-values(((end_32)" -"(let-values(((or-part_91)(1/string->number end_31)))" -"(if or-part_91 or-part_91 0))))" +"(let-values(((or-part_90)(1/string->number end_31)))" +"(if or-part_90 or-part_90 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -46621,8 +46685,8 @@ static const char *startup_source = "(file-position(current-input-port) start_42)" "(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 'binary exe4_0 temp5_5)))))))))" -"(let-values(((p_61)(open-input-bytes s_170)))" -"((letrec-values(((loop_68)" +"(let-values(((p_62)(open-input-bytes s_170)))" +"((letrec-values(((loop_70)" "(lambda()" "(begin" " 'loop" @@ -46639,7 +46703,7 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_61)))))" +"(let-values()(1/read p_62)))))" "(if(eof-object? e_75)" "(void)" "(let-values()" @@ -46651,8 +46715,8 @@ static const char *startup_source = " current-module-declare-as-predefined" " as-predefined?_0)" "(let-values()((1/current-eval) e_75)))" -"(loop_68)))))))))" -" loop_68)))))))" +"(loop_70)))))))))" +" loop_70)))))))" "(define-values(->path)(lambda(s_78)(begin(if(string? s_78)(string->path s_78) s_78))))" "(define-values" "(find-main-collects)" @@ -46677,8 +46741,8 @@ static const char *startup_source = "(let-values(((base_19 name_64 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_19)))))" "(let-values()" -"(let-values(((p_60)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_60(simplify-path p_60) #f))))))))" +"(let-values(((p_61)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_61(simplify-path p_61) #f))))))))" "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" @@ -46695,7 +46759,7 @@ static const char *startup_source = "(check-fail)" "(lambda(who_24 fail_2)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) fail_2)" +"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 1) #f)) fail_2)" "(void)" " (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" @@ -46728,11 +46792,11 @@ static const char *startup_source = "(get-config-table)" "(lambda(d_34)" "(begin" -" (let-values (((p_62) (if d_34 (build-path d_34 \"config.rktd\") #f)))" +" (let-values (((p_63) (if d_34 (build-path d_34 \"config.rktd\") #f)))" "(let-values(((or-part_293)" -"(if p_62" -"(if(file-exists? p_62)" -"(let-values(((p7_1) p_62)" +"(if p_63" +"(if(file-exists? p_63)" +"(let-values(((p7_1) p_63)" "((temp8_1)" "(lambda()" "(begin" @@ -46757,30 +46821,30 @@ static const char *startup_source = "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_63)" +"(lambda(p_64)" "(begin" -"(if(complete-path? p_63)" -"(let-values() p_63)" +"(if(complete-path? p_64)" +"(let-values() p_64)" "(let-values()" "(path->complete-path" -" p_63" -"(let-values(((or-part_73)(find-main-collects)))(if or-part_73 or-part_73(current-directory)))))))))" +" p_64" +"(let-values(((or-part_72)(find-main-collects)))(if or-part_72 or-part_72(current-directory)))))))))" "(define-values" "(add-config-search)" "(lambda(ht_67 key_83 orig-l_9)" "(begin" "(let-values(((l_79)(hash-ref ht_67 key_83 #f)))" "(if l_79" -"((letrec-values(((loop_99)" +"((letrec-values(((loop_101)" "(lambda(l_64)" "(begin" " 'loop" "(if(null? l_64)" "(let-values() null)" "(if(not(car l_64))" -"(let-values()(append orig-l_9(loop_99(cdr l_64))))" -"(let-values()(cons(coerce-to-path(car l_64))(loop_99(cdr l_64))))))))))" -" loop_99)" +"(let-values()(append orig-l_9(loop_101(cdr l_64))))" +"(let-values()(cons(coerce-to-path(car l_64))(loop_101(cdr l_64))))))))))" +" loop_101)" " l_79)" " orig-l_9)))))" "(define-values" @@ -46791,12 +46855,12 @@ static const char *startup_source = "(let-values(((ht_146)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_81)(hash-ref ht_146 'links-file #f)))" -"(if or-part_81" -" or-part_81" +"(let-values(((or-part_80)(hash-ref ht_146 'links-file #f)))" +"(if or-part_80" +" or-part_80" "(build-path" -"(let-values(((or-part_82)(hash-ref ht_146 'share-dir #f)))" -" (if or-part_82 or-part_82 (build-path 'up \"share\")))" +"(let-values(((or-part_81)(hash-ref ht_146 'share-dir #f)))" +" (if or-part_81 or-part_81 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" @@ -46823,7 +46887,7 @@ static const char *startup_source = "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_63)" +"((letrec-values(((loop_65)" "(lambda(path_8)" "(begin" " 'loop" @@ -46831,9 +46895,9 @@ static const char *startup_source = "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" -"(loop_63 base_20))" +"(loop_65 base_20))" " #f))))))" -" loop_63)" +" loop_65)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -46853,27 +46917,27 @@ static const char *startup_source = "(begin" "(let-values(((path9_0) path_9)" "((temp10_4)" -"(lambda(p_64)" +"(lambda(p_65)" "(begin" " 'temp10" -"(let-values(((bstr_1)(read-bytes 8192 p_64)))" +"(let-values(((bstr_1)(read-bytes 8192 p_65)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_100)" +"((letrec-values(((loop_102)" "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_64)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))" -" loop_100))))" +"(let-values(((bstr_2)(read-bytes 8192 p_65)))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_102))))))))" +" loop_102))))" " bstr_1))))))" "(call-with-input-file*61.1 'binary path9_0 temp10_4)))))" "(define-values" "(no-file-stamp?)" -"(lambda(a_64)(begin(let-values(((or-part_31)(not a_64)))(if or-part_31 or-part_31(not(car a_64)))))))" +"(lambda(a_65)(begin(let-values(((or-part_31)(not a_65)))(if or-part_31 or-part_31(not(car a_65)))))))" "(define-values" "(get-linked-collections)" "(lambda(links-path_0)" @@ -46918,45 +46982,45 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_203)" +"(let-values(((v_205)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" "((temp12_3)" -"(lambda(p_38)" +"(lambda(p_39)" "(begin" " 'temp12" "(begin0" -"(1/read p_38)" -"(if(eof-object?(1/read p_38))" +"(1/read p_39)" +"(if(eof-object?(1/read p_39))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_203)" +"(if(if(list? v_205)" "(andmap2" -"(lambda(p_65)" -"(if(list? p_65)" -"(if(let-values(((or-part_226)(= 2(length p_65))))" -"(if or-part_226 or-part_226(= 3(length p_65))))" -"(if(let-values(((or-part_300)(string?(car p_65))))" +"(lambda(p_66)" +"(if(list? p_66)" +"(if(let-values(((or-part_225)(= 2(length p_66))))" +"(if or-part_225 or-part_225(= 3(length p_66))))" +"(if(let-values(((or-part_300)(string?(car p_66))))" "(if or-part_300" " or-part_300" "(let-values(((or-part_301)" -"(eq? 'root(car p_65))))" +"(eq? 'root(car p_66))))" "(if or-part_301" " or-part_301" -"(eq? 'static-root(car p_65))))))" -"(if(path-string?(cadr p_65))" -"(let-values(((or-part_302)(null?(cddr p_65))))" -"(if or-part_302 or-part_302(regexp?(caddr p_65))))" +"(eq? 'static-root(car p_66))))))" +"(if(path-string?(cadr p_66))" +"(let-values(((or-part_302)(null?(cddr p_66))))" +"(if or-part_302 or-part_302(regexp?(caddr p_66))))" " #f)" " #f)" " #f)" " #f))" -" v_203)" +" v_205)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -46967,13 +47031,13 @@ static const char *startup_source = " base_21)))" "(begin" "(for-each2" -"(lambda(p_66)" -"(if(let-values(((or-part_265)(null?(cddr p_66))))" -"(if or-part_265 or-part_265(regexp-match?(caddr p_66)(version))))" +"(lambda(p_67)" +"(if(let-values(((or-part_265)(null?(cddr p_67))))" +"(if or-part_265 or-part_265(regexp-match?(caddr p_67)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_66) dir_0))))" -"(if(eq?(car p_66) 'static-root)" +"(simplify-path(path->complete-path(cadr p_67) dir_0))))" +"(if(eq?(car p_67) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" @@ -46986,7 +47050,7 @@ static const char *startup_source = "(cons dir_1(hash-ref ht_147 k_37 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_66) 'root)" +"(if(eq?(car p_67) 'root)" "(let-values()" "(begin" "(if(hash-ref ht_147 #f #f)" @@ -46994,19 +47058,19 @@ static const char *startup_source = "(let-values()(hash-set! ht_147 #f null)))" "(hash-for-each" " ht_147" -"(lambda(k_38 v_204)" -"(hash-set! ht_147 k_38(cons dir_1 v_204))))))" +"(lambda(k_38 v_206)" +"(hash-set! ht_147 k_38(cons dir_1 v_206))))))" "(let-values()" -"(let-values(((s_484)(string->symbol(car p_66))))" +"(let-values(((s_484)(string->symbol(car p_67))))" "(hash-set!" " ht_147" " s_484" "(cons(box dir_1)(hash-ref ht_147 s_484 null)))))))))" "(void)))" -" v_203)" +" v_205)" "(hash-for-each" " ht_147" -"(lambda(k_39 v_205)(hash-set! ht_147 k_39(reverse$1 v_205))))" +"(lambda(k_39 v_207)(hash-set! ht_147 k_39(reverse$1 v_207))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_147))" " ht_147))))))))))))))))))))))" "(define-values" @@ -47039,7 +47103,7 @@ static const char *startup_source = "(let-values(((sym_95)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_47)" "(lambda(l_81)" "(begin" " 'loop" @@ -47047,30 +47111,30 @@ static const char *startup_source = "(let-values() null)" "(if(not(car l_81))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_101(cdr l_81))))" +"(append(1/current-library-collection-paths)(loop_47(cdr l_81))))" "(if(hash?(car l_81))" "(let-values()" "(append" "(map2 box(hash-ref(car l_81) sym_95 null))" "(hash-ref(car l_81) #f null)" -"(loop_101(cdr l_81))))" +"(loop_47(cdr l_81))))" "(let-values()" "(let-values(((ht_148)(get-linked-collections(car l_81))))" "(append" "(hash-ref ht_148 sym_95 null)" "(hash-ref ht_148 #f null)" -"(loop_101(cdr l_81))))))))))))" -" loop_101)" +"(loop_47(cdr l_81))))))))))))" +" loop_47)" "(1/current-library-collection-links)))))" -"(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))" +"(let-values(((done_1)(lambda(p_12)(begin 'done(if file-name_1(build-path p_12 file-name_1) p_12)))))" "(let-values(((*build-path-rep_0)" -"(lambda(p_67 c_55)" -"(begin '*build-path-rep(if(path? p_67)(build-path p_67 c_55)(unbox p_67))))))" +"(lambda(p_68 c_55)" +"(begin '*build-path-rep(if(path? p_68)(build-path p_68 c_55)(unbox p_68))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_49)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_49) #t)))))" +"(lambda(orig_0 p_50)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_50) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_68)(begin 'to-string(if(path? p_68)(path->string p_68) p_68)))))" +"(lambda(p_69)(begin 'to-string(if(path? p_69)(path->string p_69) p_69)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -47083,7 +47147,7 @@ static const char *startup_source = " \"\"" "(apply" " string-append" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_103)" "(lambda(cp_0)" "(begin" " 'loop" @@ -47092,8 +47156,8 @@ static const char *startup_source = "(list*" "(to-string_0(car cp_0))" " \"/\"" -"(loop_102(cdr cp_0))))))))" -" loop_102)" +"(loop_103(cdr cp_0))))))))" +" loop_103)" " collection-path_3)))))" "(letrec-values(((filter_1)" "(lambda(f_40 l_82)" @@ -47113,7 +47177,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_69) (format \"\\n ~a ~a\" \" \" p_69))" +" (lambda (p_70) (format \"\\n ~a ~a\" \" \" p_70))" "(let-values(((len_34)(length all-paths_0))" "((clen_0)" "(length(1/current-library-collection-paths))))" @@ -47132,7 +47196,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_70) (format \"\\n ~a\" (unbox p_70)))" +" (lambda (p_71) (format \"\\n ~a\" (unbox p_71)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -47177,8 +47241,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_101) found-col_0))" -"(if or-part_101 or-part_101 cpath_0))))" +"(let-values(((or-part_100) found-col_0))" +"(if or-part_100 or-part_100 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -47189,9 +47253,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_102)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_102" -" or-part_102" +"(let-values(((or-part_101)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_101" +" or-part_101" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -47201,12 +47265,12 @@ static const char *startup_source = "(ormap2" "(lambda(mode_16)" "(file-exists?" -"(let-values(((p_71)(build-path dir_3 mode_16 try-path_0)))" +"(let-values(((p_72)(build-path dir_3 mode_16 try-path_0)))" "(if(eq? d_35 'same)" -"(let-values() p_71)" +"(let-values() p_72)" "(if(relative-path? d_35)" -"(let-values()(build-path p_71 d_35))" -"(let-values()(reroot-path p_71 d_35)))))))" +"(let-values()(build-path p_72 d_35))" +"(let-values()(reroot-path p_72 d_35)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -47241,23 +47305,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_104)" "(lambda(l_83)" "(begin" " 'loop" "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_206)" +"(let-values(((v_208)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_206" +"(if v_208" "(cons" "(simplify-path" -"(path->complete-path v_206(current-directory)))" -"(loop_103(cdr l_83)))" -"(loop_103(cdr l_83))))))))))" -" loop_103)" +"(path->complete-path v_208(current-directory)))" +"(loop_104(cdr l_83)))" +"(loop_104(cdr l_83))))))))))" +" loop_104)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -47274,14 +47338,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_207)" +"(lambda(v_209)" "(begin" "(if((lambda(x_85)" "(let-values(((or-part_11)(not x_85)))(if or-part_11 or-part_11(prop:readtable? x_85))))" -" v_207)" +" v_209)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_207)))" -" v_207))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_209)))" +" v_209))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47407,44 +47471,44 @@ static const char *startup_source = " pos_108" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_25)(begin(read-config/outer-wrap v_25))))" -"(define-values(read-config-line)(lambda(v_208)(begin(read-config/outer-line v_208))))" -"(define-values(read-config-col)(lambda(v_209)(begin(read-config/outer-col v_209))))" -"(define-values(read-config-pos)(lambda(v_210)(begin(read-config/outer-pos v_210))))" -"(define-values(read-config-indentations)(lambda(v_211)(begin(read-config/outer-indentations v_211))))" -"(define-values(read-config-keep-comment?)(lambda(v_96)(begin(read-config/outer-keep-comment? v_96))))" +"(define-values(read-config-wrap)(lambda(v_27)(begin(read-config/outer-wrap v_27))))" +"(define-values(read-config-line)(lambda(v_210)(begin(read-config/outer-line v_210))))" +"(define-values(read-config-col)(lambda(v_211)(begin(read-config/outer-col v_211))))" +"(define-values(read-config-pos)(lambda(v_212)(begin(read-config/outer-pos v_212))))" +"(define-values(read-config-indentations)(lambda(v_213)(begin(read-config/outer-indentations v_213))))" +"(define-values(read-config-keep-comment?)(lambda(v_98)(begin(read-config/outer-keep-comment? v_98))))" "(define-values" "(read-config-readtable)" -"(lambda(v_212)(begin(read-config/inner-readtable(read-config/outer-inner v_212)))))" +"(lambda(v_214)(begin(read-config/inner-readtable(read-config/outer-inner v_214)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_213)(begin(read-config/inner-next-readtable(read-config/outer-inner v_213)))))" +"(lambda(v_215)(begin(read-config/inner-next-readtable(read-config/outer-inner v_215)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_214)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_214)))))" -"(define-values(read-config-source)(lambda(v_74)(begin(read-config/inner-source(read-config/outer-inner v_74)))))" +"(lambda(v_216)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_216)))))" +"(define-values(read-config-source)(lambda(v_76)(begin(read-config/inner-source(read-config/outer-inner v_76)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_215)(begin(read-config/inner-read-compiled(read-config/outer-inner v_215)))))" +"(lambda(v_217)(begin(read-config/inner-read-compiled(read-config/outer-inner v_217)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_216)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_216)))))" +"(lambda(v_218)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_218)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_217)(begin(read-config/inner-module-declared?(read-config/outer-inner v_217)))))" +"(lambda(v_219)(begin(read-config/inner-module-declared?(read-config/outer-inner v_219)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" +"(lambda(v_208)(begin(read-config/inner-coerce(read-config/outer-inner v_208)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_218)(begin(read-config/inner-coerce-key(read-config/outer-inner v_218)))))" +"(lambda(v_220)(begin(read-config/inner-coerce-key(read-config/outer-inner v_220)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_219)(begin(read-config/inner-parameter-override(read-config/outer-inner v_219)))))" +"(lambda(v_221)(begin(read-config/inner-parameter-override(read-config/outer-inner v_221)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_38)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_38)))))" -"(define-values(read-config-st)(lambda(v_220)(begin(read-config/inner-st(read-config/outer-inner v_220)))))" +"(lambda(v_40)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_40)))))" +"(define-values(read-config-st)(lambda(v_222)(begin(read-config/inner-st(read-config/outer-inner v_222)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47518,14 +47582,14 @@ static const char *startup_source = " or-part_304" "(lambda(mod-path_26 sym_96 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_178) module-declared?_1))" -"(if or-part_178" -" or-part_178" +"(let-values(((or-part_177) module-declared?_1))" +"(if or-part_177" +" or-part_177" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_221) coerce_1))" -"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_142 srcloc_9) v_142)))" +"(let-values(((or-part_220) coerce_1))" +"(if or-part_220 or-part_220(lambda(for-syntax?_2 v_144 srcloc_9) v_144)))" "(let-values(((or-part_305) coerce-key_1))" -"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_100) v_100)))" +"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_102) v_102)))" " #f" " #f" " #f" @@ -47550,13 +47614,13 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_221) config_0))" -"(let-values(((the-struct_78) v_221))" +"(let-values(((v_223) config_0))" +"(let-values(((the-struct_78) v_223))" "(if(read-config/outer? the-struct_78)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_221)))" +"(let-values(((the-struct_79)(read-config/outer-inner v_223)))" "(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -47618,13 +47682,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_222) config_2))" -"(let-values(((the-struct_80) v_222))" +"(let-values(((v_224) config_2))" +"(let-values(((the-struct_80) v_224))" "(if(read-config/outer? the-struct_80)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_222)))" +"((inner65_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_80)" @@ -47638,10 +47702,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_223) config_3))" -"(let-values(((the-struct_81) v_223))" +"(let-values(((v_225) config_3))" +"(let-values(((the-struct_81) v_225))" "(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_223)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_225)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -47655,10 +47719,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_224) config_4))" -"(let-values(((the-struct_82) v_224))" +"(let-values(((v_226) config_4))" +"(let-values(((the-struct_82) v_226))" "(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_224)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_226)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_82)" @@ -47675,10 +47739,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_225) config_5))" -"(let-values(((the-struct_83) v_225))" +"(let-values(((v_227) config_5))" +"(let-values(((the-struct_83) v_227))" "(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_225)))" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner71_0" "(read-config/outer-wrap the-struct_83)" @@ -47695,11 +47759,11 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_226) config_6))" -"(let-values(((the-struct_84) v_226))" +"(let-values(((v_228) config_6))" +"(let-values(((the-struct_84) v_228))" "(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_226)))" +"(let-values(((the-struct_85)(read-config/outer-inner v_228)))" "(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -47736,30 +47800,30 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_227)(begin 'default-reader-guard v_227)))" +"(define-values(default-reader-guard$1)(lambda(v_229)(begin 'default-reader-guard v_229)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_228)" +"(lambda(v_230)" "(begin" -"(if(if(procedure? v_228)(procedure-arity-includes? v_228 1) #f)" +"(if(if(procedure? v_230)(procedure-arity-includes? v_230 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_228)))" -" v_228))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_230)))" +" v_230))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_229)(if v_229 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_230)(if v_230 #t #f))))" -"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_64)(if v_64 #t #f))))" -"(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" -"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_65)(if v_65 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_66)(if v_66 #t #f))))" +"(define-values(1/read-cdot)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_67)(if v_67 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" -"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_66)(if v_66 #t #f))))" -"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_233)(if v_233 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_234)(if v_234 #t #f))))" +"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" +"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" -"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" +"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_33)(if v_33 #t #f))))" "(define-values(1/read-accept-lang)(make-parameter #t(lambda(v_4)(if v_4 #t #f))))" "(define-values(unknown)(gensym 'unknown))" "(define-values" @@ -47767,23 +47831,23 @@ static const char *startup_source = "(lambda(param_0 config_8)" "(begin" "(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_68)" +"(let-values(((v_70)" "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_68 unknown)" -"(let-values()(let-values(((v_69)(param_0)))(begin(hash-set! cache_4 param_0 v_69) v_69)))" -"(let-values() v_68)))))))" +"(if(eq? v_70 unknown)" +"(let-values()(let-values(((v_71)(param_0)))(begin(hash-set! cache_4 param_0 v_71) v_71)))" +"(let-values() v_70)))))))" "(define-values" "(override-parameter)" -"(lambda(param_1 config_9 v_28)" +"(lambda(param_1 config_9 v_30)" "(begin" -"(let-values(((v_233) config_9))" -"(let-values(((the-struct_86) v_233))" +"(let-values(((v_235) config_9))" +"(let-values(((the-struct_86) v_235))" "(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_233)))" +"(let-values(((the-struct_87)(read-config/outer-inner v_235)))" "(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" -"(hash-set(read-config-parameter-override config_9) param_1 v_28)))" +"(hash-set(read-config-parameter-override config_9) param_1 v_30)))" "(read-config/inner2.1" "(read-config/inner-readtable the-struct_87)" "(read-config/inner-next-readtable the-struct_87)" @@ -47891,7 +47955,7 @@ static const char *startup_source = "(if(let-values(((or-part_53)(not rt_0)))(if or-part_53 or-part_53(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_96)" +"((letrec-values(((loop_98)" "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" @@ -47901,8 +47965,8 @@ static const char *startup_source = "(let-values(((key_84)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_165)(not key_84)))" -"(if or-part_165 or-part_165(char? key_84)))" +"(if(let-values(((or-part_164)(not key_84)))" +"(if or-part_164 or-part_164(char? key_84)))" "(void)" "(let-values()" "(raise-argument-error" @@ -47934,16 +47998,16 @@ static const char *startup_source = "(begin" "(if key_84" "(let-values()" -"(if(let-values(((or-part_259)" +"(if(let-values(((or-part_258)" "(eq? mode_17 'terminating-macro)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_260)" +"(if or-part_258" +" or-part_258" +"(let-values(((or-part_259)" "(eq?" " mode_17" " 'non-terminating-macro)))" -"(if or-part_260" -" or-part_260" +"(if or-part_259" +" or-part_259" "(let-values(((or-part_294)" "(eq? mode_17 'dispatch-macro)))" "(if or-part_294" @@ -47990,7 +48054,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_96" +"(loop_98" " rest-args_0" " target_0" " char-ht_0" @@ -48008,7 +48072,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_96" +"(loop_98" " rest-args_0" " symbol-parser_0" " char-ht_0" @@ -48056,7 +48120,7 @@ static const char *startup_source = " mode_17" " mode_17)" " mode_17))))" -"(loop_96" +"(loop_98" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -48084,13 +48148,13 @@ static const char *startup_source = "(if(eq? mode_17 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_96" +"(loop_98" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_96)" +" loop_98)" " args_7" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" @@ -48131,7 +48195,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_234)" +"(let-values(((v_236)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48153,7 +48217,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_234) v_234(coerce v_234 in_3 config_14)))))))" +"(if(1/special-comment? v_236) v_236(coerce v_236 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48171,7 +48235,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_167)" +"(let-values(((or-part_166)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -48179,7 +48243,7 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_167 or-part_167 c_63))" +"(if or-part_166 or-part_166 c_63))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" @@ -48200,10 +48264,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_171" -"(let-values(((k_40 v_92)(hash-iterate-key+value ht_150 i_171)))" +"(let-values(((k_40 v_94)(hash-iterate-key+value ht_150 i_171)))" "(let-values(((fold-var_281)" "(let-values(((fold-var_85) fold-var_82))" -"(if(eqv? v_92 c_64)" +"(if(eqv? v_94 c_64)" "(let-values(((fold-var_236) fold-var_85))" "(let-values(((fold-var_13)" "(let-values()" @@ -48352,9 +48416,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_158) init-c_2))" -"(if or-part_158" -" or-part_158" +"(let-values(((or-part_157) init-c_2))" +"(if or-part_157" +" or-part_157" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -48378,7 +48442,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_80)" "(lambda()" "(begin" " 'loop" @@ -48397,8 +48461,8 @@ static const char *startup_source = " '#\\newline" "(effective-char c_66 config_15))))" "(void)" -"(let-values()(loop_78))))))))" -" loop_78))" +"(let-values()(loop_80))))))))" +" loop_80))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -48472,13 +48536,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_235)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_237)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_235)" +"(if(eof-object? v_237)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_235)" +"((v3_0) v_237)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48507,7 +48571,7 @@ static const char *startup_source = "(let-values(((line_5 col_4 pos_112)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_105)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -48530,23 +48594,23 @@ static const char *startup_source = " temp9_4" "(list))))" "(if(not(char? c_71))" -"(let-values()(loop_104 #f depth_10))" +"(let-values()(loop_105 #f depth_10))" "(if(if(char=? '#\\| c_71)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_104 #f(add1 depth_10)))" +"(let-values()(loop_105 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_71)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_104 #f(sub1 depth_10)))" +"(let-values()(loop_105 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_104 c_71 depth_10)))))))))))" -" loop_104)" +"(let-values()(loop_105 c_71 depth_10)))))))))))" +" loop_105)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_106)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -48556,13 +48620,13 @@ static const char *startup_source = "(if(eof-object? c_42)" "(let-values()(void))" "(if(not(char? c_42))" -"(let-values()(loop_105 #f))" +"(let-values()(loop_106 #f))" "(if(char=? c_42 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_105 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_106 #f))(void)))" "(if(char=? c_42 '#\\\\)" -"(let-values()(loop_105 #t))" -"(let-values()(loop_105 #f)))))))))))" -" loop_105)" +"(let-values()(loop_106 #t))" +"(let-values()(loop_106 #f)))))))))))" +" loop_106)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -48591,18 +48655,18 @@ static const char *startup_source = "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_158)(char=? dc_0 '#\\{)))" -"(if or-part_158" -" or-part_158" +"(let-values(((or-part_157)(char=? dc_0 '#\\{)))" +"(if or-part_157" +" or-part_157" "(let-values(((or-part_12)(char=? dc_0 '#\\})))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_217)(char=? dc_0 '#\\`)))" -"(if or-part_217" -" or-part_217" +"(let-values(((or-part_216)(char=? dc_0 '#\\`)))" +"(if or-part_216" +" or-part_216" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -48648,15 +48712,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_107)" "(lambda(cs_2)" "(begin" " 'loop" "(if(null?(cdr cs_2))" " (let-values () (list (format \"or `~a`\" (car cs_2))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_106 (cdr cs_2)))))))))" -" loop_106)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_107 (cdr cs_2)))))))))" +" loop_107)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -48673,17 +48737,17 @@ static const char *startup_source = "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_62)(opener-name '#\\( config_21)))" +"(let-values(((p_63)(opener-name '#\\( config_21)))" "(let-values(((s_10)" "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))" "(let-values(((c_72)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_72 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_62 s_10 c_72))" +" (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_72))" "(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_72))" "(let-values()" -" (format \"~a or ~a\" p_62 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))" -"(let-values() p_62)))))))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))" +"(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -48709,66 +48773,66 @@ static const char *startup_source = "(lambda(config_26)" "(begin" "(let-values(((st_1)(read-config-st config_26)))" -"(let-values(((a_65)(read-config-state-accum-str st_1)))" -"(if a_65" -"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_65 0) a_65))" +"(let-values(((a_66)(read-config-state-accum-str st_1)))" +"(if a_66" +"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_66 0) a_66))" "(let-values()(accum-string1.1 0(make-string 32)))))))))" "(define-values" "(accum-string-add!)" -"(lambda(a_66 c_50)" +"(lambda(a_67 c_50)" "(begin" -"(let-values(((pos_113)(accum-string-pos a_66)))" -"(let-values(((str_27)(accum-string-str a_66)))" +"(let-values(((pos_113)(accum-string-pos a_67)))" +"(let-values(((str_27)(accum-string-str a_67)))" "(let-values(((str2_0)" "(if(< pos_113(string-length str_27))" "(let-values() str_27)" "(let-values()" "(let-values(((str2_1)(make-string(*(string-length str_27) 2))))" -"(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_66 str2_1) str2_1))))))" -"(begin(string-set! str2_0 pos_113 c_50)(set-accum-string-pos! a_66(add1 pos_113)))))))))" -"(define-values(accum-string-count)(lambda(a_67)(begin(accum-string-pos a_67))))" -"(define-values(set-accum-string-count!)(lambda(a_68 pos_12)(begin(set-accum-string-pos! a_68 pos_12))))" +"(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_67 str2_1) str2_1))))))" +"(begin(string-set! str2_0 pos_113 c_50)(set-accum-string-pos! a_67(add1 pos_113)))))))))" +"(define-values(accum-string-count)(lambda(a_68)(begin(accum-string-pos a_68))))" +"(define-values(set-accum-string-count!)(lambda(a_69 pos_12)(begin(set-accum-string-pos! a_69 pos_12))))" "(define-values" "(accum-string-convert!)" -"(lambda(a_69 convert_1 start-pos_6)" +"(lambda(a_70 convert_1 start-pos_6)" "(begin" -"(let-values(((str_28)(accum-string-str a_69)))" -"(let-values(((s_80)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))" +"(let-values(((str_28)(accum-string-str a_70)))" +"(let-values(((s_80)(convert_1(substring str_28 start-pos_6(accum-string-pos a_70)))))" "(let-values(((len_36)(string-length s_80)))" "(begin" "(if(<(+ len_36 start-pos_6)(string-length str_28))" "(void)" "(let-values()" "(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))" -"(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_69 str2_2)))))" -"(string-copy!(accum-string-str a_69) start-pos_6 s_80)" -"(set-accum-string-pos! a_69(+ start-pos_6 len_36)))))))))" +"(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_70 str2_2)))))" +"(string-copy!(accum-string-str a_70) start-pos_6 s_80)" +"(set-accum-string-pos! a_70(+ start-pos_6 len_36)))))))))" "(define-values" "(accum-string-get!6.1)" "(lambda(start-pos2_0 a4_0 config5_0)" "(begin" " 'accum-string-get!6" -"(let-values(((a_54) a4_0))" +"(let-values(((a_55) a4_0))" "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7) start-pos2_0))" "(let-values()" -"(let-values(((s_43)(substring(accum-string-str a_54) start-pos_7(accum-string-pos a_54))))" -"(begin(accum-string-abandon! a_54 config_27) s_43)))))))))" +"(let-values(((s_43)(substring(accum-string-str a_55) start-pos_7(accum-string-pos a_55))))" +"(begin(accum-string-abandon! a_55 config_27) s_43)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 a11_0 config12_0)" "(begin" " 'accum-string-get-bytes!13" -"(let-values(((a_60) a11_0))" +"(let-values(((a_61) a11_0))" "(let-values(((config_28) config12_0))" "(let-values(((start-pos_8) start-pos9_0))" "(let-values()" "(let-values(((bstr_3)" -"(string->bytes/latin-1(accum-string-str a_60) #f start-pos_8(accum-string-pos a_60))))" -"(begin(accum-string-abandon! a_60 config_28) bstr_3)))))))))" +"(string->bytes/latin-1(accum-string-str a_61) #f start-pos_8(accum-string-pos a_61))))" +"(begin(accum-string-abandon! a_61 config_28) bstr_3)))))))))" "(define-values" "(accum-string-abandon!)" -"(lambda(a_70 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_70))))" +"(lambda(a_71 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_71))))" "(define-values" "(struct:indentation" " indentation1.1" @@ -48948,14 +49012,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_236) elem-config_0))" -"(let-values(((the-struct_88) v_236))" +"(let-values(((v_238) elem-config_0))" +"(let-values(((the-struct_88) v_238))" "(if(read-config/outer? the-struct_88)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_236)))" +"((inner21_0)(read-config/outer-inner v_238)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_88)" @@ -49002,7 +49066,7 @@ static const char *startup_source = "(void))" " e_77))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_107)" +"((letrec-values(((loop_108)" "(lambda(depth_11" " accum_0" " init-c_5" @@ -49096,7 +49160,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_237)" +"(let-values(((v_239)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49117,11 +49181,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_237" +" v_239" "(append" "(reverse$1" " accum_0)" -" v_237)))" +" v_239)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49160,7 +49224,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_237))" +" v_239))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49216,7 +49280,7 @@ static const char *startup_source = " temp36_4" "(list))))" "(void))" -"(loop_107" +"(loop_108" " depth_11" " accum_0" " post-c_0" @@ -49245,14 +49309,14 @@ static const char *startup_source = " temp40_2" "(list)))))))))))))" "(let-values()" -"(let-values(((v_238)" +"(let-values(((v_240)" "(read-one/not-eof_0" " c_74" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_238)" +"(if(1/special-comment? v_240)" "(let-values()" -"(loop_107" +"(loop_108" " depth_11" " accum_0" " #f" @@ -49260,22 +49324,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_107" +"(loop_108" " depth_11" -"(cons v_238 accum_0)" +"(cons v_240 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_238" -"(loop_107" +" v_240" +"(loop_108" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_107)" +" loop_108)" " 0" " null" " #f" @@ -49297,7 +49361,7 @@ static const char *startup_source = "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_23 config_36 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1$1) (lambda (who_7 v_59) (begin 'not-an-fX (raise-argument-error who_7 \"flonum?\" v_59))))" +" (define-values (not-an-fX.1$1) (lambda (who_7 v_61) (begin 'not-an-fX (raise-argument-error who_7 \"flonum?\" v_61))))" "(define-values" "(read-digits12.1)" "(lambda(base1_0 init3_0 max-count2_0 zero-digits-result4_0 in10_1 config11_0 accum-str9_0)" @@ -49323,12 +49387,12 @@ static const char *startup_source = "(begin" "(consume-char in_6 c_68)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))" -"((letrec-values(((loop_108)" -"(lambda(v_200 max-count_1)" +"((letrec-values(((loop_109)" +"(lambda(v_202 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_200)" +"(let-values() v_202)" "(let-values()" "(let-values(((c_76)" "(let-values(((in_25) in_6)" @@ -49351,11 +49415,11 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_76))" "(void))" -"(loop_108" -"(+(digit->number c_76)(* v_200 base_15))" +"(loop_109" +"(+(digit->number c_76)(* v_202 base_15))" "(sub1 max-count_1))))" -"(let-values() v_200)))))))))" -" loop_108)" +"(let-values() v_202)))))))))" +" loop_109)" "(+(digit->number c_68)(* init-v_0 base_15))" "(sub1 max-count_0))))" "(if zero-digits-result_0" @@ -49380,8 +49444,8 @@ static const char *startup_source = "(let-values(((or-part_265)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" "(if or-part_265" " or-part_265" -"(let-values(((or-part_23)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_23 or-part_23(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" +"(let-values(((or-part_313)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_313 or-part_313(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_78)" @@ -49412,13 +49476,13 @@ static const char *startup_source = "(if(string? s_86)" "(void)" " (let-values () (raise-argument-error 'string->number \"string?\" s_86)))" -"(if((lambda(p_72)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +"(if((lambda(p_73)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" -"(if((lambda(p_5)" -"(let-values(((or-part_53)(eq? p_5 'number-or-false)))" -"(if or-part_53 or-part_53(eq? p_5 'read))))" +"(if((lambda(p_6)" +"(let-values(((or-part_53)(eq? p_6 'number-or-false)))" +"(if or-part_53 or-part_53(eq? p_6 'read))))" " convert-mode_0)" "(void)" "(let-values()" @@ -49426,9 +49490,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_64)" -"(let-values(((or-part_7)(eq? p_64 'decimal-as-inexact)))" -"(if or-part_7 or-part_7(eq? p_64 'decimal-as-exact))))" +"(if((lambda(p_65)" +"(let-values(((or-part_7)(eq? p_65 'decimal-as-inexact)))" +"(if or-part_7 or-part_7(eq? p_65 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -49567,8 +49631,8 @@ static const char *startup_source = "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_24)(exactness-set? exactness_0)))" -"(if or-part_24 or-part_24 in-complex_0))" +"(if(let-values(((or-part_264)(exactness-set? exactness_0)))" +"(if or-part_264 or-part_264 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -49583,10 +49647,10 @@ static const char *startup_source = "((radix76_0) radix_3)" "((radix-set?77_0) radix-set?_0)" "((temp78_2)" -"(if(let-values(((or-part_211)" +"(if(let-values(((or-part_210)" "(char=? i_172 '#\\e)))" -"(if or-part_211" -" or-part_211" +"(if or-part_210" +" or-part_210" "(char=? i_172 '#\\E)))" " 'exact" " 'inexact))" @@ -49604,8 +49668,8 @@ static const char *startup_source = " temp78_2" " temp79_0)))))" "(let-values()" -"(if(let-values(((or-part_212) radix-set?_0))" -"(if or-part_212 or-part_212 in-complex_0))" +"(if(let-values(((or-part_211) radix-set?_0))" +"(if or-part_211 or-part_211 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -49653,13 +49717,13 @@ static const char *startup_source = "(read-special-number s_17 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_29" -"((lambda(v_239)" +"((lambda(v_241)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_239))" +" (let-values () (format \"no exact representation for `~a`\" v_241))" "(let-values() #f)))" -"(let-values() v_239)))" +"(let-values() v_241)))" " c1_29)" "(let-values(((c2_3)" "(if(char-sign? c_64)" @@ -49678,7 +49742,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_37)" +"((lambda(v_39)" "(let-values(((s87_0) s_17)" "((temp88_2)(+ start_43 6))" "((temp89_3)(sub1 end_33))" @@ -49686,10 +49750,10 @@ static const char *startup_source = "((exactness91_0) exactness_0)" "((convert-mode92_0) convert-mode_2)" "((temp93_1) 'i)" -"((v94_0) v_37)" +"((v94_0) v_39)" "((temp95_0)" -"(lambda(v_240 v2_0)" -"(begin 'temp95(make-rectangular v_240 v2_0)))))" +"(lambda(v_242 v2_0)" +"(begin 'temp95(make-rectangular v_242 v2_0)))))" "(read-for-special-compound62.1" " temp93_1" " #f" @@ -49731,8 +49795,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_0)" -"(lambda(v2_2 v_215)" -"(begin 'temp105(make-rectangular v_215 v2_2)))))" +"(lambda(v2_2 v_217)" +"(begin 'temp105(make-rectangular v_217 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -49760,7 +49824,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_217)" +"((lambda(v_219)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -49768,10 +49832,10 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_217)" +"((v113_0) v_219)" "((temp114_3)" -"(lambda(v_140 v2_3)" -"(begin 'temp114(make-polar v_140 v2_3)))))" +"(lambda(v_142 v2_3)" +"(begin 'temp114(make-polar v_142 v2_3)))))" "(read-for-special-compound62.1" " temp112_1" " #f" @@ -49808,8 +49872,8 @@ static const char *startup_source = "((temp122_0) #t)" "((v2123_0) v2_4)" "((temp124_2)" -"(lambda(v2_5 v_81)" -"(begin 'temp124(make-polar v_81 v2_5)))))" +"(lambda(v2_5 v_83)" +"(begin 'temp124(make-polar v_83 v2_5)))))" "(read-for-special-compound62.1" " temp121_0" " temp122_0" @@ -49854,7 +49918,7 @@ static const char *startup_source = "(let-values(((in-complex_1) in-complex21_0))" "(let-values(((convert-mode_3) convert-mode29_0))" "(let-values()" -"((letrec-values(((loop_109)" +"((letrec-values(((loop_110)" "(lambda(i_173" " any-digits?_0" " any-hashes?_0" @@ -49886,10 +49950,10 @@ static const char *startup_source = "(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_313)" +"(let-values(((or-part_314)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_313" -" or-part_313" +"(if or-part_314" +" or-part_314" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49969,7 +50033,7 @@ static const char *startup_source = "(let-values(((c_79)(string-ref s_457 i_173)))" "(if(digit? c_79 radix_5)" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " #t" " any-hashes?_0" @@ -49982,7 +50046,7 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_79 '#\\#)" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " #t" " #t" @@ -50004,7 +50068,7 @@ static const char *startup_source = "(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " any-digits?_0" " any-hashes?_0" @@ -50015,27 +50079,27 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_173 start_44)" -"(let-values(((or-part_314)(not @-pos_0)))" -"(if or-part_314" -" or-part_314" +"(let-values(((or-part_315)(not @-pos_0)))" +"(if or-part_315" +" or-part_315" "(> i_173(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" -"(if(let-values(((or-part_315)" +"(if(let-values(((or-part_316)" "(if exp-pos_0" -"(let-values(((or-part_316)" +"(let-values(((or-part_317)" "(not sign-pos_0)))" -"(if or-part_316" -" or-part_316" +"(if or-part_317" +" or-part_317" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_315" -" or-part_315" +"(if or-part_316" +" or-part_316" "(if dot-pos_1" -"(let-values(((or-part_208)(not sign-pos_0)))" -"(if or-part_208" -" or-part_208" +"(let-values(((or-part_207)(not sign-pos_0)))" +"(if or-part_207" +" or-part_207" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50059,7 +50123,7 @@ static const char *startup_source = "(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " any-digits?_0" " any-hashes?_0" @@ -50073,9 +50137,9 @@ static const char *startup_source = "(if(char=? c_79 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_317)(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(let-values(((or-part_318)(not sign-pos_0)))" +"(if or-part_318" +" or-part_318" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50085,21 +50149,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_457 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_318)" +"(if(let-values(((or-part_319)" "(if exp-pos_0" -"(let-values(((or-part_319)" -"(not sign-pos_0)))" -"(if or-part_319" -" or-part_319" -"(> exp-pos_0 sign-pos_0)))" -" #f)))" -"(if or-part_318" -" or-part_318" -"(if slash-pos_0" "(let-values(((or-part_320)" "(not sign-pos_0)))" "(if or-part_320" " or-part_320" +"(> exp-pos_0 sign-pos_0)))" +" #f)))" +"(if or-part_319" +" or-part_319" +"(if slash-pos_0" +"(let-values(((or-part_321)" +"(not sign-pos_0)))" +"(if or-part_321" +" or-part_321" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50110,7 +50174,7 @@ static const char *startup_source = "(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " any-digits?_0" " any-hashes?_0" @@ -50121,58 +50185,58 @@ static const char *startup_source = " i_173" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_321)(char=? c_79 '#\\e)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)(char=? c_79 '#\\E)))" +"(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" "(if or-part_322" " or-part_322" -"(let-values(((or-part_323)" -"(char=? c_79 '#\\f)))" +"(let-values(((or-part_323)(char=? c_79 '#\\E)))" "(if or-part_323" " or-part_323" "(let-values(((or-part_324)" -"(char=? c_79 '#\\F)))" +"(char=? c_79 '#\\f)))" "(if or-part_324" " or-part_324" "(let-values(((or-part_325)" -"(char=? c_79 '#\\d)))" +"(char=? c_79 '#\\F)))" "(if or-part_325" " or-part_325" -"(let-values(((or-part_181)" -"(char=? c_79 '#\\D)))" -"(if or-part_181" -" or-part_181" "(let-values(((or-part_326)" -"(char=?" -" c_79" -" '#\\s)))" +"(char=? c_79 '#\\d)))" "(if or-part_326" " or-part_326" +"(let-values(((or-part_180)" +"(char=? c_79 '#\\D)))" +"(if or-part_180" +" or-part_180" "(let-values(((or-part_327)" "(char=?" " c_79" -" '#\\S)))" +" '#\\s)))" "(if or-part_327" " or-part_327" -"(let-values(((or-part_209)" -"(char=?" -" c_79" -" '#\\l)))" -"(if or-part_209" -" or-part_209" "(let-values(((or-part_328)" "(char=?" " c_79" -" '#\\L)))" +" '#\\S)))" "(if or-part_328" " or-part_328" -"(let-values(((or-part_173)" +"(let-values(((or-part_208)" +"(char=?" +" c_79" +" '#\\l)))" +"(if or-part_208" +" or-part_208" +"(let-values(((or-part_329)" +"(char=?" +" c_79" +" '#\\L)))" +"(if or-part_329" +" or-part_329" +"(let-values(((or-part_172)" "(char=?" " c_79" " '#\\t)))" -"(if or-part_173" -" or-part_173" +"(if or-part_172" +" or-part_172" "(char=?" " c_79" " '#\\T)))))))))))))))))))))))" @@ -50190,7 +50254,7 @@ static const char *startup_source = "(char-sign?(string-ref s_457(add1 i_173)))" " #f)" "(let-values()" -"(loop_109" +"(loop_110" "(+ i_173 2)" " any-digits?_0" " any-hashes?_0" @@ -50199,21 +50263,21 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_329) exp-pos_0))" -"(if or-part_329 or-part_329 i_173))" -" must-i?_0))" -"(let-values()" -"(loop_109" -"(+ i_173 1)" -" any-digits?_0" -" any-hashes?_0" -" i-pos_3" -" @-pos_0" -" sign-pos_0" -" dot-pos_1" -" slash-pos_0" "(let-values(((or-part_330) exp-pos_0))" "(if or-part_330 or-part_330 i_173))" +" must-i?_0))" +"(let-values()" +"(loop_110" +"(+ i_173 1)" +" any-digits?_0" +" any-hashes?_0" +" i-pos_3" +" @-pos_0" +" sign-pos_0" +" dot-pos_1" +" slash-pos_0" +"(let-values(((or-part_331) exp-pos_0))" +"(if or-part_331 or-part_331 i_173))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50225,9 +50289,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_457 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_160) @-pos_0))" -"(if or-part_160" -" or-part_160" +"(if(let-values(((or-part_159) @-pos_0))" +"(if or-part_159" +" or-part_159" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50253,7 +50317,7 @@ static const char *startup_source = "(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " any-digits?_0" " any-hashes?_0" @@ -50264,17 +50328,17 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_331)" +"(if(if(let-values(((or-part_332)" "(char=? c_79 '#\\i)))" -"(if or-part_331" -" or-part_331" +"(if or-part_332" +" or-part_332" "(char=? c_79 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_332) @-pos_0))" -"(if or-part_332" -" or-part_332" +"(if(let-values(((or-part_333) @-pos_0))" +"(if or-part_333" +" or-part_333" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50283,10 +50347,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_457 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_333)" +"(if(let-values(((or-part_334)" "(<(add1 i_173) end_34)))" -"(if or-part_333" -" or-part_333" +"(if or-part_334" +" or-part_334" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50296,7 +50360,7 @@ static const char *startup_source = "(substring s_457 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_109" +"(loop_110" "(add1 i_173)" " any-digits?_0" " any-hashes?_0" @@ -50319,7 +50383,7 @@ static const char *startup_source = "(let-values()" " (format \"bad digit `~a`\" c_79))" "(let-values() #f))))))))))))))))))))" -" loop_109)" +" loop_110)" " start_44" " #f" " #f" @@ -50405,11 +50469,11 @@ static const char *startup_source = " radix168_0" " exactness170_0" " convert-mode172_0))))))" -"(if(let-values(((or-part_334)(not v1_0)))" -"(if or-part_334 or-part_334(not v2_6)))" +"(if(let-values(((or-part_335)(not v1_0)))" +"(if or-part_335 or-part_335(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_335)(extflonum? v1_0)))" -"(if or-part_335 or-part_335(extflonum? v2_6)))" +"(if(if(let-values(((or-part_336)(extflonum? v1_0)))" +"(if or-part_336 or-part_336(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50424,10 +50488,10 @@ static const char *startup_source = "(if(eq? in-complex_2 'i)" "(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_73)(make-polar v1_0 v2_6)))" +"(let-values(((p_74)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_73)" -" p_73))))))))))))))))))))))))))))" +"(inexact->exact p_74)" +" p_74))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" "(lambda(s_333 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" @@ -50436,16 +50500,16 @@ static const char *startup_source = "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_333 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_336)(eq? exactness_3 'inexact)))" -"(if or-part_336" -" or-part_336" -"(let-values(((or-part_337)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_337 or-part_337(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_338)(not exp-pos_1)))" -"(if or-part_338" -" or-part_338" -"(let-values(((or-part_223)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_223 or-part_223(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" +"(if or-part_337" +" or-part_337" +"(let-values(((or-part_338)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_338 or-part_338(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_339)(not exp-pos_1)))" +"(if or-part_339" +" or-part_339" +"(let-values(((or-part_222)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_222 or-part_222(not(extfl-mark?_0))))))" "(not(if any-hashes?_1(hashes? s_333 start_45 end_35) #f))" " #f)" " #f)" @@ -50471,9 +50535,9 @@ static const char *startup_source = " (format \"missing digits before exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_339)(= exp-pos_1(sub1 end_35))))" -"(if or-part_339" -" or-part_339" +"(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))" +"(if or-part_340" +" or-part_340" "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))" " #f)" "(let-values()" @@ -50486,14 +50550,14 @@ static const char *startup_source = "(string->number$1" "(maybe-substring s_333 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_340" -" or-part_340" -"(let-values(((or-part_147)(not exp-pos_1)))" -"(if or-part_147 or-part_147(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_341" +" or-part_341" +"(let-values(((or-part_146)(not exp-pos_1)))" +"(if or-part_146 or-part_146(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_148)(not n_31)))(if or-part_148 or-part_148(string? n_31)))" +"(if(let-values(((or-part_147)(not n_31)))(if or-part_147 or-part_147(string? n_31)))" "(let-values()" "(error" " 'string->number" @@ -50550,7 +50614,7 @@ static const char *startup_source = " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_341)(not m-v_0)))(if or-part_341 or-part_341(not e-v_0)))" +"(if(let-values(((or-part_342)(not m-v_0)))(if or-part_342 or-part_342(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50558,8 +50622,8 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_342)(eq? exactness_3 'inexact)))" -"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_343)(eq? exactness_3 'inexact)))" +"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" @@ -50581,8 +50645,8 @@ static const char *startup_source = "(let-values()" "(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_343)(eq? exactness_3 'exact)))" -"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_344)(eq? exactness_3 'exact)))" +"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_32)" "(if(if(eqv? n_32 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" @@ -50618,13 +50682,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_344)(eq? exactness_3 'inexact)))" -"(if or-part_344" -" or-part_344" +"(let-values(((or-part_345)(eq? exactness_3 'inexact)))" +"(if or-part_345" +" or-part_345" "(if(not(eq? exactness_3 'exact))" "(hashes? s_333 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_345)(not n-v_0)))(if or-part_345 or-part_345(not d-v_0)))" +"(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50656,10 +50720,10 @@ static const char *startup_source = "(lambda(s_488 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_187)(eq? exactness_4 'exact)))" -"(if or-part_187 or-part_187(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_186)(eq? exactness_4 'exact)))" +"(if or-part_186 or-part_186(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_110)" +"((letrec-values(((loop_111)" "(lambda(i_174 j_3 hashes-pos_0)" "(begin" " 'loop" @@ -50689,23 +50753,23 @@ static const char *startup_source = "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_110" +"(loop_111" "(sub1 i_174)" " j_3" "(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_110" +"(loop_111" "(sub1 i_174)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))" -"(if(let-values(((or-part_346)(char=? c_80 '#\\-)))" -"(if or-part_346 or-part_346(char=? c_80 '#\\+)))" +"(if(let-values(((or-part_347)(char=? c_80 '#\\-)))" +"(if or-part_347 or-part_347(char=? c_80 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_110" +"(loop_111" "(sub1 i_174)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))" @@ -50715,7 +50779,7 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_110(sub1 i_174)(sub1 j_3) i_174)))" +"(loop_111(sub1 i_174)(sub1 j_3) i_174)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" @@ -50726,8 +50790,8 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_110(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_110)" +"(loop_111(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_111)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" @@ -50753,25 +50817,25 @@ static const char *startup_source = "(lambda(s_472 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_347)(char=?(string-ref s_472 start_48) '#\\+)))" -"(if or-part_347 or-part_347(char=?(string-ref s_472 start_48) '#\\-)))" -"(let-values(((or-part_348)" +"(if(let-values(((or-part_348)(char=?(string-ref s_472 start_48) '#\\+)))" +"(if or-part_348 or-part_348(char=?(string-ref s_472 start_48) '#\\-)))" +"(let-values(((or-part_349)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\i)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\n)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\f)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)" -"(let-values(((or-part_349)" +"(let-values(((or-part_350)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0)" "(if(char=?(string-ref s_472 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_349" -" or-part_349" -"(let-values(((or-part_350)" +"(if or-part_350" +" or-part_350" +"(let-values(((or-part_351)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f)" "(if(char=?(string-ref s_472 start_48) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_350" -" or-part_350" +"(if or-part_351" +" or-part_351" "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" "(if(char=?(string-ref s_472 start_48) '#\\+) '+inf.t '-inf.t)" @@ -50781,20 +50845,20 @@ static const char *startup_source = " #f)" " #f)" " #f)))" -"(if or-part_348" -" or-part_348" +"(if or-part_349" +" or-part_349" "(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\n)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\a)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\n)" "(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))" -"(if or-part_351" -" or-part_351" "(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))" "(if or-part_352" " or-part_352" +"(let-values(((or-part_353)" +"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if or-part_353" +" or-part_353" "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" @@ -50806,10 +50870,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_241)" +"(lambda(convert-mode_9 v_243)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_241))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_243))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -50833,19 +50897,19 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode59_0))" "(let-values(((in-complex_3) in-complex50_0))" "(let-values(((reading-first?_0) reading-first?51_0))" -"(let-values(((v_242) v60_0))" +"(let-values(((v_244) v60_0))" "(let-values(((combine_1) combine61_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_242))" +" (let-values () (format \"no exact representation for `~a`\" v_244))" "(let-values() #f)))" -"(if(if(extflonum? v_242)" -"(let-values(((or-part_190)(not reading-first?_0)))" -"(if or-part_190 or-part_190(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_244)" +"(let-values(((or-part_189)(not reading-first?_0)))" +"(if or-part_189 or-part_189(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_242))" +"(let-values()(fail-extflonum convert-mode_10 v_244))" "(let-values()" "(let-values(((v2_7)" "(let-values(((s173_0) s_490)" @@ -50869,9 +50933,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_242)" -"(let-values()(fail-extflonum convert-mode_10 v_242))" -"(let-values()(combine_1 v_242 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_244)" +"(let-values()(fail-extflonum convert-mode_10 v_244))" +"(let-values()(combine_1 v_244 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_263 start_50 end_40)" @@ -50960,26 +51024,26 @@ static const char *startup_source = "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_353)(eq? exactness_6 'exact)))(if or-part_353 or-part_353(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_83)" -"(begin(let-values(((or-part_354)(char=? c_83 '#\\-)))(if or-part_354 or-part_354(char=? c_83 '#\\+))))))" +"(begin(let-values(((or-part_355)(char=? c_83 '#\\-)))(if or-part_355 or-part_355(char=? c_83 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_84 radix_11)" "(begin" -"(let-values(((v_243)(char->integer c_84)))" -"(let-values(((or-part_355)" -"(if(>= v_243(char->integer '#\\0))(<(- v_243(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_355" -" or-part_355" -"(if(> radix_11 10)" +"(let-values(((v_245)(char->integer c_84)))" "(let-values(((or-part_356)" -"(if(>= v_243(char->integer '#\\a))(<(- v_243(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_245(char->integer '#\\0))(<(- v_245(char->integer '#\\0)) radix_11) #f)))" "(if or-part_356" " or-part_356" -"(if(>= v_243(char->integer '#\\A))(<(- v_243(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(> radix_11 10)" +"(let-values(((or-part_357)" +"(if(>= v_245(char->integer '#\\a))(<(- v_245(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_357" +" or-part_357" +"(if(>= v_245(char->integer '#\\A))(<(- v_245(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" @@ -51062,17 +51126,17 @@ static const char *startup_source = "(list temp15_5 after-c16_0 temp17_4)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_112)" "(lambda(init-c_7" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" "(let-values(((c_85)" -"(let-values(((or-part_82)" +"(let-values(((or-part_81)" " init-c_7))" -"(if or-part_82" -" or-part_82" +"(if or-part_81" +" or-part_81" "(let-values(((in_27)" " in_26)" "((skip-count_8)" @@ -51094,11 +51158,11 @@ static const char *startup_source = "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" "((c_86) c_85))" -"(if(let-values(((or-part_97)" +"(if(let-values(((or-part_96)" "(not" " rt_12)))" -"(if or-part_97" -" or-part_97" +"(if or-part_96" +" or-part_96" "(not" "(char? c_86))))" "(let-values() c_86)" @@ -51146,7 +51210,7 @@ static const char *startup_source = "(consume-char" " in_26" " c_85)))" -"(loop_111" +"(loop_112" " #f" " #f" "(accum-string-count" @@ -51172,7 +51236,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_111" +"(loop_112" " #f" " c_85" "(accum-string-count" @@ -51222,7 +51286,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_111" +"(loop_112" " #f" " #f" "(accum-string-count" @@ -51238,11 +51302,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_85)" -"(loop_111" +"(loop_112" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_111)" +" loop_112)" " init-c_6" " #f" " 0)" @@ -51325,14 +51389,14 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_357) num_0))" -"(if or-part_357" -" or-part_357" -"(let-values(((or-part_358)" +"(let-values(((or-part_358) num_0))" +"(if or-part_358" +" or-part_358" +"(let-values(((or-part_359)" "(if(eq? mode_18 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_358 or-part_358(string->symbol str_29)))))" +"(if or-part_359 or-part_359(string->symbol str_29)))))" " in_26" " config_23" " str_29)))))))))))))))))))))))))" @@ -51342,16 +51406,16 @@ static const char *startup_source = "(begin" "(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_233) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_233)" -"(let-values() v_233)" -"(if(eof-object? v_233)" -"(let-values() v_233)" +" (let-values (((v_235) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_235)" +"(let-values() v_235)" +"(if(eof-object? v_235)" +"(let-values() v_235)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_233))" +"((v4_1) v_235))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51367,16 +51431,16 @@ static const char *startup_source = "(begin" "(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_8 read-one_4 in_20 config_37)))" "(let-values(((line_9 col_8 pos_94)(port-next-location* in_20 c_14)))" -" (let-values (((v_29) (read-number-literal c_14 in_20 config_37 \"#i\")))" -"(if(flonum? v_29)" -"(let-values() v_29)" -"(if(eof-object? v_29)" -"(let-values() v_29)" +" (let-values (((v_31) (read-number-literal c_14 in_20 config_37 \"#i\")))" +"(if(flonum? v_31)" +"(let-values() v_31)" +"(if(eof-object? v_31)" +"(let-values() v_31)" "(let-values()" "(let-values(((in5_0) in_20)" "((temp6_1)(reading-at config_37 line_9 col_8 pos_94))" " ((temp7_4) \"expected a flonum, found ~a\")" -"((v8_0) v_29))" +"((v8_0) v_31))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51465,7 +51529,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_0) 0))" -"(let-values(((v_33)(make-fxvector len_37 fill_0)))" +"(let-values(((v_35)(make-fxvector len_37 fill_0)))" "(begin" "(if(zero? len_37)" "(void)" @@ -51499,7 +51563,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_33" +" v_35" " i_94" " elem_0)" "(not-an-fX.1" @@ -51526,7 +51590,7 @@ static const char *startup_source = " for-loop_276)" " 0" " lst_261)))))" -" v_33))))))" +" v_35))))))" "(if(equal? tmp_42 'flonum)" "(let-values()" "(let-values(((len_38)(length seq_2)))" @@ -51539,7 +51603,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_186)(make-flvector len_38 fill_1)))" +"(let-values(((v_188)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -51573,7 +51637,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_186" +" v_188" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -51600,7 +51664,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_186))))))" +" v_188))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -51634,20 +51698,20 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_244)" +"(lambda(v_246)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_244 in_30 config_10 #f)" -"((letrec-values(((loop_112)" +"(wrap v_246 in_30 config_10 #f)" +"((letrec-values(((loop_113)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_112" +"(loop_113" "(cdr seq_3)))))))" -" loop_112)" +" loop_113)" " seq_2))))))" "(let-values((()" "(begin" @@ -51965,7 +52029,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_41)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))" "(let-values(((init-v_1)(digit->number init-c_11)))" -"(let-values(((v_245)" +"(let-values(((v_247)" "(let-values(((in69_0) in_34)" "((config70_0) config_41)" "((accum-str71_0) accum-str_2)" @@ -51975,7 +52039,7 @@ static const char *startup_source = "((init-v75_0) init-v_1))" "(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))" "(values" -" v_245" +" v_247" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))" "(accum-string-get!6.1 0 accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))" @@ -52147,7 +52211,7 @@ static const char *startup_source = "(let-values(((accum-str_3)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_3 init-c_13)(values))))" "(let-values(((init-v_2)(digit->number init-c_13)))" -"(let-values(((v_28)" +"(let-values(((v_30)" "(let-values(((in1_5) in_37)" "((config2_4) config_43)" "((accum-str3_0) accum-str_3)" @@ -52182,7 +52246,7 @@ static const char *startup_source = "((temp13_2) '#\\))" "((in14_0) in_37)" "((config15_0) config_43)" -"((v16_0) v_28))" +"((v16_0) v_30))" "(read-vector11.1 v16_0 'any read-one10_0 c11_0 temp12_4 temp13_2 in14_0 config15_0))))" "(if(equal? tmp_48 '#\\[)" "(let-values()" @@ -52196,7 +52260,7 @@ static const char *startup_source = "((temp20_2) '#\\])" "((in21_0) in_37)" "((config22_0) config_43)" -"((v23_0) v_28))" +"((v23_0) v_30))" "(read-vector11.1" " v23_0" " 'any" @@ -52223,7 +52287,7 @@ static const char *startup_source = "((temp30_6) '#\\})" "((in31_1) in_37)" "((config32_0) config_43)" -"((v33_0) v_28))" +"((v33_0) v_30))" "(read-vector11.1" " v33_0" " 'any" @@ -52294,7 +52358,7 @@ static const char *startup_source = "(let-values(((ht_140)(get-graph-hash config_43)))" "(let-values((()" "(begin" -"(if(hash-ref ht_140 v_28 #f)" +"(if(hash-ref ht_140 v_30 #f)" "(let-values()" "(let-values(((in50_0) in_37)" "((config51_0) config_43)" @@ -52321,7 +52385,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_140 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_140 v_30 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_37(next-readtable config_43))))" "(begin" @@ -52358,16 +52422,16 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_210)" +"(let-values(((or-part_209)" "(read-config-state-graph(read-config-st config_43))))" -"(if or-part_210 or-part_210 '#hash()))" -" v_28" +"(if or-part_209 or-part_209 '#hash()))" +" v_30" "(lambda()" "(let-values(((in67_0) in_37)" "((config68_0) config_43)" " ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")" "((dispatch-c70_0) dispatch-c_1)" -"((v71_0) v_28)" +"((v71_0) v_30)" "((dispatch-c72_0) dispatch-c_1)" "((temp73_1)" "(let-values(((accum-str75_0) accum-str_3)" @@ -52405,9 +52469,9 @@ static const char *startup_source = "(lambda(config_44)" "(begin" "(let-values(((st_3)(read-config-st config_44)))" -"(let-values(((or-part_359)(read-config-state-graph st_3)))" -"(if or-part_359" -" or-part_359" +"(let-values(((or-part_360)(read-config-state-graph st_3)))" +"(if or-part_360" +" or-part_360" "(let-values(((ht_151)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_151) ht_151))))))))" "(define-values" "(coerce-key)" @@ -52456,7 +52520,7 @@ static const char *startup_source = "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" "(let-values(((content_11 opener_4 mode_20)" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_114)" "(lambda(mode_21)" "(begin" " 'loop" @@ -52622,7 +52686,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_50)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_113 'eq)))" +"(loop_114 'eq)))" "(if(if(equal? tmp_50 '#\\v)" " #t" "(equal? tmp_50 '#\\V))" @@ -52630,7 +52694,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_50)" "(if(eq? mode_21 'eq)" -"(loop_113 'eqv)" +"(loop_114 'eqv)" "(let-values(((in41_0) in_37)" "((config42_0) config_43)" "((temp43_4)" @@ -52681,7 +52745,7 @@ static const char *startup_source = " config48_1" " temp50_2" "(list temp51_2)))))))))))))))))" -" loop_113)" +" loop_114)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_43)) #t #f)))" "(wrap" @@ -52757,8 +52821,8 @@ static const char *startup_source = " temp63_3" "(list temp64_3))))" "(let-values()" -"(let-values(((v_246)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_246)" +"(let-values(((v_248)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_248)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -52821,7 +52885,7 @@ static const char *startup_source = " temp72_2" "(list temp73_2)))))" "(values))))" -"(let-values(((v_247)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_249)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -52850,7 +52914,7 @@ static const char *startup_source = " temp75_2" " temp77_1" "(list temp78_3)))))" -"(cons(coerce-key k_41 elem-config_1) v_247))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_249))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 in3_0 config4_0)" @@ -52900,7 +52964,7 @@ static const char *startup_source = "(list mode17_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_115)" "(lambda()" "(begin" " 'loop" @@ -53187,7 +53251,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_201)" +"(let-values(((v_203)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53211,7 +53275,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_201 255)" +"(if(<= v_203 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53253,13 +53317,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_201)))))))))" +" v_203)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_248)" +"(let-values(((v_250)" "(let-values(((in40_1)" " in_37)" "((config41_1)" @@ -53279,13 +53343,13 @@ static const char *startup_source = " config41_1" " accum-str42_0))))" "(begin" -"(if(integer? v_248)" +"(if(integer? v_250)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_248" +" v_250" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53294,7 +53358,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_248))))))" +" v_250))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53309,7 +53373,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_249)" +"(let-values(((v_251)" "(let-values(((in45_0)" " in_37)" "((config46_1)" @@ -53330,23 +53394,23 @@ static const char *startup_source = " accum-str47_0))))" "(begin" "(if(integer?" -" v_249)" +" v_251)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_249" +" v_251" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_63)" "(<" -" v_249" +" v_251" " 55296)))" "(if or-part_63" " or-part_63" "(>" -" v_249" +" v_251" " 57343)))" "(let-values()" "(begin" @@ -53356,7 +53420,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_249))))" +" v_251))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53437,7 +53501,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_249" +" v_251" " 55296)" " 10)" "(-" @@ -53533,7 +53597,7 @@ static const char *startup_source = "(let-values(((pos_20)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_250)" +"(let-values(((v_252)" "(let-values(((in72_0)" " in_37)" "((config73_0)" @@ -53554,26 +53618,26 @@ static const char *startup_source = " accum-str74_0))))" "(begin" "(if(integer?" -" v_250)" +" v_252)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_250" +" v_252" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_250" +" v_252" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_250" +" v_252" " 57343)))" "(<=" -" v_250" +" v_252" " 1114111)" " #f)" "(let-values()" @@ -53584,7 +53648,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_250))))" +" v_252))))" "(let-values()" "(let-values(((in77_1)" " in_37)" @@ -53616,7 +53680,7 @@ static const char *startup_source = "(list" " escaping-c80_0" " temp81_2)))))))))))))))))" -"(loop_114)))))))" +"(loop_115)))))))" " (if (char=? '#\\\" c_17)" "(let-values() null)" "(let-values()" @@ -53642,8 +53706,8 @@ static const char *startup_source = "(list c88_0))))))" "(void))" "(accum-string-add! accum-str_4 c_17)" -"(loop_114)))))))))))" -" loop_114))" +"(loop_115)))))))))))" +" loop_115))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_11 '|byte string|)" @@ -53662,7 +53726,7 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_67)" "(lambda()" "(begin" " 'loop" @@ -53703,11 +53767,11 @@ static const char *startup_source = "(list))))" "(if(char=? c_92 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_92(loop_65)))))))))))" -" loop_65)))))" +"(let-values()(cons c_92(loop_67)))))))))))" +" loop_67)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_51)" +"((letrec-values(((loop_53)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" @@ -53756,7 +53820,7 @@ static const char *startup_source = "(char=? c_93(car terminator_0))" " #f)" "(let-values()" -"(loop_51" +"(loop_53" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" "(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)" @@ -53806,14 +53870,14 @@ static const char *startup_source = "(void))))" "(if(char=? c_93 '#\\newline)" "(let-values()" -"(loop_51" +"(loop_53" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" "(accum-string-add! accum-str_5 c_93)" -"(loop_51 full-terminator_0 null)))))))))))))))" -" loop_51)" +"(loop_53 full-terminator_0 null)))))))))))))))" +" loop_53)" "(cdr full-terminator_0)" " null)" "(values))))" @@ -53898,7 +53962,7 @@ static const char *startup_source = "(let-values(((in_52) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_52 special1.1 source_6))))" -"(let-values(((v_231)" +"(let-values(((v_233)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -53907,7 +53971,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_231(<= v_231 255) #f)" +"(if(if v_233(<= v_233 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -53926,13 +53990,13 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_6)))))" -"(integer->char v_231))))))" +"(integer->char v_233))))))" "(let-values() c_96))))" -"(if(let-values(((or-part_81)(char=? c_96 '#\\u)))" -"(if or-part_81 or-part_81(char=? c_96 '#\\U)))" +"(if(let-values(((or-part_80)(char=? c_96 '#\\u)))" +"(if or-part_80 or-part_80(char=? c_96 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" -"(let-values(((v_33)" +"(let-values(((v_35)" "(let-values(((in16_1) in_4)" "((config17_1) config_8)" "((accum-str18_1) accum-str_6)" @@ -53946,14 +54010,14 @@ static const char *startup_source = " in16_1" " config17_1" " accum-str18_1))))" -"(if(integer? v_33)" +"(if(integer? v_35)" "(let-values()" -"(if(if(let-values(((or-part_97)(< v_33 55296)))" -"(if or-part_97 or-part_97(> v_33 57343)))" -"(<= v_33 1114111)" +"(if(if(let-values(((or-part_96)(< v_35 55296)))" +"(if or-part_96 or-part_96(> v_35 57343)))" +"(<= v_35 1114111)" " #f)" "(let-values()" -"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_33)))" +"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_35)))" "(let-values()" "(let-values(((in21_2) in_4)" "((config22_2) config_8)" @@ -53993,7 +54057,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_105)" "(lambda()" "(begin" " 'loop" @@ -54029,9 +54093,9 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_104)))" +"(loop_105)))" "(void)))))))" -" loop_104))" +" loop_105))" "(values))))" "(let-values(((name_68)" "(string-foldcase" @@ -54111,7 +54175,7 @@ static const char *startup_source = "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_116)" "(lambda(chars_1)" "(begin" " 'loop" @@ -54173,7 +54237,7 @@ static const char *startup_source = "(begin" "(consume-char in_50 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_115(cdr chars_1))))" +"(loop_116(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_50 config_22 c_37)" @@ -54194,7 +54258,7 @@ static const char *startup_source = " config15_2" " temp16_4" "(list temp17_5)))))))))))))" -" loop_115)" +" loop_116)" " chars_0)" "(wrap" " val_79" @@ -54512,7 +54576,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_117)" "(lambda()" "(begin" " 'loop" @@ -54555,16 +54619,16 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_167)" "(char-lang-nonsep? c_9)))" -"(if or-part_168" -" or-part_168" +"(if or-part_167" +" or-part_167" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" "(consume-char in_61 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_116)))" +"(loop_117)))" "(let-values()" "(begin" "(consume-char in_61 c_9)" @@ -54588,7 +54652,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_116))" +" loop_117))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_50))" @@ -54680,17 +54744,17 @@ static const char *startup_source = "(lambda(c_101)" "(begin" "(if(<(char->integer c_101) 128)" -"(let-values(((or-part_90)(char-alphabetic? c_101)))" -"(if or-part_90" -" or-part_90" +"(let-values(((or-part_89)(char-alphabetic? c_101)))" +"(if or-part_89" +" or-part_89" "(let-values(((or-part_305)(char-numeric? c_101)))" "(if or-part_305" " or-part_305" -"(let-values(((or-part_360)(char=? '#\\- c_101)))" -"(if or-part_360" -" or-part_360" -"(let-values(((or-part_361)(char=? '#\\+ c_101)))" -"(if or-part_361 or-part_361(char=? '#\\_ c_101)))))))))" +"(let-values(((or-part_361)(char=? '#\\- c_101)))" +"(if or-part_361" +" or-part_361" +"(let-values(((or-part_362)(char=? '#\\+ c_101)))" +"(if or-part_362 or-part_362(char=? '#\\_ c_101)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -54781,7 +54845,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_52)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_28)" -"(let-values(((or-part_362)" +"(let-values(((or-part_363)" "(if try-first-mod-path_0" "(let-values(((mod-path_29)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_52)" @@ -54789,7 +54853,7 @@ static const char *startup_source = " mod-path_29" " #f))" " #f)))" -"(if or-part_362 or-part_362(guard_0 mod-path-datum_0)))))" +"(if or-part_363 or-part_363(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_52)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_52)))" "(let-values(((no-value_0)(gensym)))" @@ -55036,7 +55100,7 @@ static const char *startup_source = " readtable59_1" " source61_0" " wrap63_0)))))))" -"(let-values(((v_32)(read-one init-c_16 in_20 config_54)))" +"(let-values(((v_34)(read-one init-c_16 in_20 config_54)))" "(if(if(let-values(((or-part_9)(not recursive?_0)))" "(if or-part_9 or-part_9 local-graph?_1))" "(read-config-state-graph(read-config-st config_54))" @@ -55045,16 +55109,16 @@ static const char *startup_source = "(catch-and-reraise-as-reader/proc" " #f" " config_54" -"(lambda()(make-reader-graph v_32))))" +"(lambda()(make-reader-graph v_34))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_32))(not(1/special-comment? v_32)) #f)" +"(if(not(eof-object? v_34))(not(1/special-comment? v_34)) #f)" " #f)" " #f)" " #f)" -"(let-values()(begin(get-graph-hash config_54)(make-placeholder v_32)))" -"(let-values() v_32))))))))))))))))))))))))" +"(let-values()(begin(get-graph-hash config_54) v_34))" +"(let-values() v_34))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -55111,12 +55175,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_51)" "(let-values()" "(let-values(((line_11 col_10 pos_92)(port-next-location in_63)))" -"(let-values(((v_108)(read-undotted init-c_17 in_63 config_51)))" -"(if(1/special-comment? v_108)" -"(let-values() v_108)" +"(let-values(((v_110)(read-undotted init-c_17 in_63 config_51)))" +"(if(1/special-comment? v_110)" +"(let-values() v_110)" "(let-values()" -"((letrec-values(((loop_117)" -"(lambda(v_110)" +"((letrec-values(((loop_118)" +"(lambda(v_112)" "(begin" " 'loop" "(let-values(((c_104)" @@ -55132,9 +55196,9 @@ static const char *startup_source = "(if(eq? c_105 'special)(special1.1 'special) c_105)))))" "(let-values(((ec_9)(effective-char c_104 config_51)))" "(if(not(char? ec_9))" -"(let-values() v_110)" +"(let-values() v_112)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_63 c_104)(loop_117 v_110)))" +"(let-values()(begin(consume-char in_63 c_104)(loop_118 v_112)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55152,15 +55216,15 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_63 config_51)))" -"(loop_117" +"(loop_118" "(wrap" -"(list cdot_0 v_110 post-v_0)" +"(list cdot_0 v_112 post-v_0)" " in_63" "(reading-at config_51 line_11 col_10 pos_92)" " '#\\.)))))))" -"(let-values() v_110))))))))))" -" loop_117)" -" v_108))))))" +"(let-values() v_112))))))))))" +" loop_118)" +" v_110))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55172,15 +55236,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_106))" "(let-values()" -"(let-values(((v_251)(special-value c_106)))" -"(if(1/special-comment? v_251)" -"(let-values()(if(read-config-keep-comment? config_57) v_251(read-undotted #f in_68 config_57)))" -"(let-values()(coerce v_251 in_68(reading-at config_57 line_12 col_11 pos_121))))))" +"(let-values(((v_253)(special-value c_106)))" +"(if(1/special-comment? v_253)" +"(let-values()(if(read-config-keep-comment? config_57) v_253(read-undotted #f in_68 config_57)))" +"(let-values()(coerce v_253 in_68(reading-at config_57 line_12 col_11 pos_121))))))" "(let-values(((c2_8)(readtable-handler config_57 c_106)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_252)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" -"(retry-special-comment v_252 in_68 config_57)))" +"(let-values(((v_254)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" +"(retry-special-comment v_254 in_68 config_57)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_106 config_57)))" @@ -55249,14 +55313,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_253)" +"(let-values(((v_255)" "(let-values(((c79_1) c_106)" "((in80_1) in_68)" "((r-config81_0) r-config_0)" "((temp82_1)" -"(if(let-values(((or-part_316)(eq? c_106 ec_10)))" -"(if or-part_316" -" or-part_316" +"(if(let-values(((or-part_317)(eq? c_106 ec_10)))" +"(if or-part_317" +" or-part_317" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55268,7 +55332,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_253 in_68 config_57)))" +"(retry-special-comment v_255 in_68 config_57)))" "(let-values()(read-dispatch c_106 in_68 r-config_0 config_57)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_68 r-config_0))" @@ -55388,10 +55452,10 @@ static const char *startup_source = "(list temp101_0))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_110)" +"(if(let-values(((or-part_109)" "(check-parameter 1/read-square-bracket-as-paren config_57)))" -"(if or-part_110" -" or-part_110" +"(if or-part_109" +" or-part_109" "(check-parameter 1/read-square-bracket-with-tag config_57)))" "(let-values()" "(wrap" @@ -55432,10 +55496,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_363)" +"(if(let-values(((or-part_364)" "(check-parameter 1/read-square-bracket-as-paren config_57)))" -"(if or-part_363" -" or-part_363" +"(if or-part_364" +" or-part_364" "(check-parameter 1/read-square-bracket-with-tag config_57)))" "(let-values()" "(let-values(((in113_1) in_68)" @@ -55471,10 +55535,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_365)" "(check-parameter 1/read-curly-brace-as-paren config_57)))" -"(if or-part_364" -" or-part_364" +"(if or-part_365" +" or-part_365" "(check-parameter 1/read-curly-brace-with-tag config_57)))" "(let-values()" "(wrap" @@ -55516,10 +55580,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_366)" "(check-parameter 1/read-curly-brace-as-paren config_57)))" -"(if or-part_365" -" or-part_365" +"(if or-part_366" +" or-part_366" "(check-parameter 1/read-curly-brace-with-tag config_57)))" "(let-values()" "(let-values(((in132_0) in_68)" @@ -55613,9 +55677,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_58)))" "(let-values(((col_12)(read-config-col config_58)))" "(let-values(((pos_122)(read-config-pos config_58)))" -"(let-values(((v_254)" +"(let-values(((v_256)" "(readtable-apply handler_4 c_108 in_70 config_58 line_13 col_12 pos_122)))" -"(retry-special-comment v_254 in_70 orig-config_0))))))" +"(retry-special-comment v_256 in_70 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -55930,8 +55994,8 @@ static const char *startup_source = "(if(eq? c_112 'special)(special1.1 'special) c_112)))))" "(if(char-delimiter? c2_13 config_58)" "(let-values()(wrap #f in_70 config_58 c_108))" -"(if(let-values(((or-part_366)(char=? c2_13 '#\\x)))" -"(if or-part_366 or-part_366(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_367)(char=? c2_13 '#\\x)))" +"(if or-part_367 or-part_367(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56182,11 +56246,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_255 in_79 config_59)" +"(lambda(v_257 in_79 config_59)" "(begin" -"(if(1/special-comment? v_255)" -"(let-values()(if(read-config-keep-comment? config_59) v_255(read-undotted #f in_79 config_59)))" -"(let-values() v_255)))))" +"(if(1/special-comment? v_257)" +"(let-values()(if(read-config-keep-comment? config_59) v_257(read-undotted #f in_79 config_59)))" +"(let-values() v_257)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?3_0)" @@ -56478,19 +56542,19 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_33 ns_116 name_71)" "(begin" -"(let-values(((or-part_211)(namespace->module ns_116 name_71)))" -"(if or-part_211" -" or-part_211" +"(let-values(((or-part_210)(namespace->module ns_116 name_71)))" +"(if or-part_210" +" or-part_210" " (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_134)(1/module-path? mod_24)))" -"(if or-part_134" -" or-part_134" -"(let-values(((or-part_258)(1/module-path-index? mod_24)))" -"(if or-part_258 or-part_258(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_133)(1/module-path? mod_24)))" +"(if or-part_133" +" or-part_133" +"(let-values(((or-part_257)(1/module-path-index? mod_24)))" +"(if or-part_257 or-part_257(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path27.1)" @@ -56656,17 +56720,17 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_30)(begin(1/module-declared? mod-path_30 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_256 srcloc_12)" +"(lambda(for-syntax?_12 v_258 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_256)(let-values()(syntax->datum$1 v_256))(let-values() v_256)))" -"(if(syntax?$1 v_256)" -"(let-values() v_256)" -"(if(list? v_256)" +"(let-values()(if(syntax?$1 v_258)(let-values()(syntax->datum$1 v_258))(let-values() v_258)))" +"(if(syntax?$1 v_258)" +"(let-values() v_258)" +"(if(list? v_258)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_184) v_256))" +"(let-values(((lst_184) v_258))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -56694,13 +56758,13 @@ static const char *startup_source = " lst_184))))" " srcloc_12" " #f))" -"(if(pair? v_256)" +"(if(pair? v_258)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_256) srcloc_12)(read-coerce #t(cdr v_256) srcloc_12))" +"(cons(read-coerce #t(car v_258) srcloc_12)(read-coerce #t(cdr v_258) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_256 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_258 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_0 k_42)" @@ -56797,8 +56861,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" "(if((lambda(x_95)" -"(let-values(((or-part_91)(not x_95)))" -"(if or-part_91 or-part_91(1/readtable? x_95))))" +"(let-values(((or-part_90)(not x_95)))" +"(if or-part_90 or-part_90(1/readtable? x_95))))" " readtable_7)" "(void)" "(let-values()" @@ -56858,8 +56922,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" "(if((lambda(x_97)" -"(let-values(((or-part_159)(not x_97)))" -"(if or-part_159 or-part_159(1/readtable? x_97))))" +"(let-values(((or-part_158)(not x_97)))" +"(if or-part_158 or-part_158(1/readtable? x_97))))" " readtable_9)" "(void)" "(let-values()" @@ -56887,7 +56951,7 @@ static const char *startup_source = "(if(input-port? in_17)" "(void)" " (let-values () (raise-argument-error 'read-language \"input-port?\" in_17)))" -"(if((lambda(p_74)(if(procedure? p_74)(procedure-arity-includes? p_74 0) #f))" +"(if((lambda(p_75)(if(procedure? p_75)(procedure-arity-includes? p_75 0) #f))" " fail-thunk_2)" "(void)" "(let-values()" @@ -57052,13 +57116,13 @@ static const char *startup_source = "(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" -"(lambda(v_27 info_6)" +"(lambda(v_29 info_6)" "(begin" -"(if(if(procedure? v_27)(procedure-arity-includes? v_27 1) #f)" +"(if(if(procedure? v_29)(procedure-arity-includes? v_29 1) #f)" "(void)" "(let-values()" -" (raise-argument-error 'guard-for-prop:exn:missing-module \"(procedure-arity-includes/c 1)\" v_27)))" -" v_27))))" +" (raise-argument-error 'guard-for-prop:exn:missing-module \"(procedure-arity-includes/c 1)\" v_29)))" +" v_29))))" "(define-values" "(1/struct:exn:fail:filesystem:missing-module" " 1/make-exn:fail:filesystem:missing-module" @@ -57107,13 +57171,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_235)" +"(lambda(v_237)" "(begin" -"(if(let-values(((or-part_67)(not v_235)))" +"(if(let-values(((or-part_67)(not v_237)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_68)(1/module-path? v_235)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_235)(1/module-path?(syntax->datum$1 v_235)) #f)))))" +"(let-values(((or-part_68)(1/module-path? v_237)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_237)(1/module-path?(syntax->datum$1 v_237)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57122,8 +57186,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_235)))" -" v_235))))" +" v_237)))" +" v_237))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57418,9 +57482,9 @@ static const char *startup_source = "(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_367)(list? context_24)))" -"(if or-part_367" -" or-part_367" +"(if(let-values(((or-part_368)(list? context_24)))" +"(if or-part_368" +" or-part_368" "(memq" " context_24" "(if as-transformer?_6" @@ -57475,10 +57539,10 @@ static const char *startup_source = "((stop-ids93_0) stop-ids_16)" "((to-parsed-ok?94_0) to-parsed-ok?_1)" "((temp95_2)" -"(let-values(((or-part_169)" +"(let-values(((or-part_168)" " keep-#%expression?_2))" -"(if or-part_169" -" or-part_169" +"(if or-part_168" +" or-part_168" "(if(expand-context-in-local-expand?" " ctx_73)" "(expand-context-keep-#%expression?" @@ -57792,11 +57856,11 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_368) maybe-insp_3))" -"(if or-part_368" -" or-part_368" -"(let-values(((or-part_163)(current-module-code-inspector)))" -"(if or-part_163 or-part_163(current-code-inspector))))))))" +"(let-values(((or-part_369) maybe-insp_3))" +"(if or-part_369" +" or-part_369" +"(let-values(((or-part_162)(current-module-code-inspector)))" +"(if or-part_162 or-part_162(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -57945,9 +58009,9 @@ static const char *startup_source = " \"variable reference\"" " vr_8))" "(void))" -"(let-values(((or-part_73)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" -"(if or-part_73" -" or-part_73" +"(let-values(((or-part_72)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" +"(if or-part_72" +" or-part_72" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))))" @@ -58335,13 +58399,13 @@ static const char *startup_source = "(let-values()" "(values" " sym_92" -"(let-values(((or-part_167)" +"(let-values(((or-part_166)" "(hash-ref" " alts_0" " sym_92" " #f)))" -"(if or-part_167" -" or-part_167" +"(if or-part_166" +" or-part_166" " val_82))))))" "(hash-set" " table_11" @@ -58368,7 +58432,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_172" -"(let-values(((k_43 v_46)" +"(let-values(((k_43 v_48)" "(hash-iterate-key+value" " ht_141" " i_172)))" @@ -58380,7 +58444,7 @@ static const char *startup_source = "(hash-set" " ht_156" " k_43" -" v_46))))" +" v_48))))" "(values ht_157)))))" "(if(not #f)" "(for-loop_251" @@ -59476,7 +59540,7 @@ static const char *startup_source = "(lambda(i_185)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_186)(read-byte i_185)))(if(eof-object? v_186) 0 v_186))))))" +"(let-values(((v_188)(read-byte i_185)))(if(eof-object? v_188) 0 v_188))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59491,9 +59555,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_186 pos_124)(values))))" "(let-values(((name-len_0)(read-number i_186)))" -"(let-values(((v_257)(read-bytes name-len_0 i_186)))" +"(let-values(((v_259)(read-bytes name-len_0 i_186)))" "(begin" -"(if(if(bytes? v_257)(=(bytes-length v_257) name-len_0) #f)" +"(if(if(bytes? v_259)(=(bytes-length v_259) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59507,10 +59571,10 @@ static const char *startup_source = "(object-name i_186)" " pos_124" " name-len_0" -" v_257)))" -"(if(bytes=? bstr_5 v_257)" +" v_259)))" +"(if(bytes=? bstr_5 v_259)" "(let-values()(read-number i_186))" -"(if(bytescomplete-path s_72 d_36) s_72)))))))" "(let-values(((date-of-1_0)" -"(lambda(a_28)" +"(lambda(a_29)" "(begin" " 'date-of-1" -"(let-values(((v_70)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" -"(if v_70(cons a_28 v_70) #f))))))" +"(let-values(((v_72)(file-or-directory-modify-seconds a_29 #f(lambda() #f))))" +"(if v_72(cons a_29 v_72) #f))))))" "(let-values(((date-of_0)" -"(lambda(a_35 modes_1 roots_1)" +"(lambda(a_36 modes_1 roots_1)" "(begin" " 'date-of" "(ormap2" "(lambda(root-dir_0)" "(ormap2" "(lambda(compiled-dir_0)" -"(let-values(((a_71)(a_35 root-dir_0 compiled-dir_0)))(date-of-1_0 a_71)))" +"(let-values(((a_72)(a_36 root-dir_0 compiled-dir_0)))(date-of-1_0 a_72)))" " modes_1))" " roots_1)))))" "(let-values(((date>=?_0)" -"(lambda(modes_2 roots_2 a_72 bm_0)" +"(lambda(modes_2 roots_2 a_73 bm_0)" "(begin" " 'date>=?" -"(if a_72" -"(let-values(((am_0)(date-of_0 a_72 modes_2 roots_2)))" +"(if a_73" +"(let-values(((am_0)(date-of_0 a_73 modes_2 roots_2)))" "(let-values(((or-part_28)(if(not bm_0) am_0 #f)))" "(if or-part_28" " or-part_28" @@ -59658,16 +59722,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_74)(not expect-module_0)))" +"(if(let-values(((or-part_73)(not expect-module_0)))" +"(if or-part_73" +" or-part_73" +"(let-values(((or-part_74)(symbol? expect-module_0)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(symbol? expect-module_0)))" -"(if or-part_75" -" or-part_75" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_76)(symbol?(car expect-module_0))))" -"(if or-part_76 or-part_76(not(car expect-module_0))))" +"(if(let-values(((or-part_75)(symbol?(car expect-module_0))))" +"(if or-part_75 or-part_75(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -59724,14 +59788,14 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_75 d_37)" +"(lambda(p_76 d_37)" "(begin" " 'reroot" "(if(eq? d_37 'same)" -"(let-values() p_75)" +"(let-values() p_76)" "(if(relative-path? d_37)" -"(let-values()(build-path p_75 d_37))" -"(let-values()(reroot-path p_75 d_37))))))))" +"(let-values()(build-path p_76 d_37))" +"(let-values()(reroot-path p_76 d_37))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -59772,16 +59836,16 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_357) main-path-d_0))" -"(if or-part_357" -" or-part_357" +"(let-values(((or-part_358) main-path-d_0))" +"(if or-part_358" +" or-part_358" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_166)" +"(let-values(((or-part_165)" " alt-path-d_0))" -"(if or-part_166" -" or-part_166" +"(if or-part_165" +" or-part_165" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -59903,22 +59967,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_369)" +"(if(let-values(((or-part_370)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_369" -" or-part_369" +"(if or-part_370" +" or-part_370" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_76)" +"(let-values(((p_77)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_76))" +"(file-exists? p_77))" " #f)" "(void)" "(let-values()" @@ -59931,14 +59995,14 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_76" +" p_77" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_76" +" p_77" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -59953,29 +60017,29 @@ static const char *startup_source = "(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_205)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_205)))))" +"(lambda(reg_1 v_207)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_207)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_46)" +"(lambda(p_47)" "(begin" -"(let-values(((i_45)(modulo(abs(equal-hash-code p_46)) CACHE-N)))" +"(let-values(((i_45)(modulo(abs(equal-hash-code p_47)) CACHE-N)))" "(let-values(((w_1)(vector-ref -path-cache i_45)))" "(let-values(((l_84)(if w_1(weak-box-value w_1) #f)))" -"(if l_84(let-values(((a_73)(1/assoc p_46 l_84)))(if a_73(cdr a_73) #f)) #f)))))))" +"(if l_84(let-values(((a_74)(1/assoc p_47 l_84)))(if a_74(cdr a_74) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_77 v_258)" +"(lambda(p_78 v_260)" "(begin" -"(let-values(((i_169)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" +"(let-values(((i_169)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_169)))" "(let-values(((l_19)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" " i_169" "(make-weak-box" -"(cons(cons p_77 v_258)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" +"(cons(cons p_78 v_260)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" @@ -59985,7 +60049,7 @@ static const char *startup_source = "(lambda(s_499 coll-mode?_0)" "(begin" "(let-values(((l_85)" -"((letrec-values(((loop_118)" +"((letrec-values(((loop_46)" "(lambda(s_305)" "(begin" " 'loop" @@ -60000,23 +60064,23 @@ static const char *startup_source = "(let-values()" "(cons" "(substring s_305 0 i_101)" -"(loop_118(substring s_305(add1 i_101)))))" +"(loop_46(substring s_305(add1 i_101)))))" "(let-values()(iloop_2(add1 i_101)))))))))" " iloop_2)" " 0))))))" -" loop_118)" +" loop_46)" " s_499)))" "(if coll-mode?_0" " l_85" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_47)" "(lambda(l_81)" "(begin" " 'loop" "(if(null?(cdr l_81))" "(values null(car l_81))" -"(let-values(((c_113 f_42)(loop_101(cdr l_81))))" +"(let-values(((c_113 f_42)(loop_47(cdr l_81))))" "(values(cons(car l_81) c_113) f_42)))))))" -" loop_101)" +" loop_47)" " l_85))))))" "(define-values" "(format-source-location)" @@ -60056,8 +60120,8 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_173)))" -"(if(let-values(((or-part_134)(not from-namespace_1)))" -"(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" +"(if(let-values(((or-part_133)(not from-namespace_1)))" +"(if or-part_133 or-part_133(1/namespace? from-namespace_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60066,11 +60130,11 @@ static const char *startup_source = " from-namespace_1)))" "(if planet-resolver_0(let-values()(planet-resolver_0 s_173))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_99)" +"(let-values(((or-part_98)" "(registry-table-ref" "(namespace-module-registry$1(1/current-namespace)))))" -"(if or-part_99" -" or-part_99" +"(if or-part_98" +" or-part_98" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -60120,8 +60184,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_359)(not relto_1)))" -"(if or-part_359 or-part_359(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_360)(not relto_1)))" +"(if or-part_360 or-part_360(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60145,17 +60209,17 @@ static const char *startup_source = "(begin" " 'flatten-sub-path" "((letrec-values(((loop_119)" -"(lambda(a_74 l_35)" +"(lambda(a_75 l_35)" "(begin" " 'loop" "(if(null? l_35)" "(let-values()" -"(if(null? a_74)" +"(if(null? a_75)" " base_27" -"(cons base_27(reverse$1 a_74))))" +"(cons base_27(reverse$1 a_75))))" " (if (equal? (car l_35) \"..\")" "(let-values()" -"(if(null? a_74)" +"(if(null? a_75)" "(error" " 'standard-module-name-resolver" " \"too many \\\"..\\\"s in submodule path: ~.s\"" @@ -60171,10 +60235,10 @@ static const char *startup_source = " 'file)" " base_27)))" " orig-l_10))" -"(loop_119(cdr a_74)(cdr l_35))))" +"(loop_119(cdr a_75)(cdr l_35))))" "(let-values()" "(loop_119" -"(cons(car l_35) a_74)" +"(cons(car l_35) a_75)" "(cdr l_35)))))))))" " loop_119)" " null" @@ -60190,14 +60254,14 @@ static const char *startup_source = "(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_500)(cddr s_500))))" "(if(if(pair? s_500)" "(if(eq?(car s_500) 'submod)" -" (if (let-values (((or-part_102) (equal? (cadr s_500) \".\")))" -" (if or-part_102 or-part_102 (equal? (cadr s_500) \"..\")))" +" (if (let-values (((or-part_101) (equal? (cadr s_500) \".\")))" +" (if or-part_101 or-part_101 (equal? (cadr s_500) \"..\")))" "(if relto_1" -"(let-values(((p_78)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_370)(symbol? p_78)))" -"(if or-part_370" -" or-part_370" -"(if(pair? p_78)(symbol?(car p_78)) #f))))" +"(let-values(((p_79)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_371)(symbol? p_79)))" +"(if or-part_371" +" or-part_371" +"(if(pair? p_79)(symbol?(car p_79)) #f))))" " #f)" " #f)" " #f)" @@ -60239,19 +60303,19 @@ static const char *startup_source = "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_79)" +"(let-values(((p_80)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_80)" -"(if(pair? p_79)" -"(car p_79)" -" p_79)))" -"(if(path? p_80)" +"(let-values(((p_81)" +"(if(pair? p_80)" +"(car p_80)" +" p_80)))" +"(if(path? p_81)" "(let-values(((base_28" " n_36" " d?_0)" "(split-path" -" p_80)))" +" p_81)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -60261,10 +60325,10 @@ static const char *startup_source = " #f)))" "(if or-part_41" " or-part_41" -"(let-values(((or-part_371)" +"(let-values(((or-part_372)" "(current-load-relative-directory)))" -"(if or-part_371" -" or-part_371" +"(if or-part_372" +" or-part_372" "(current-directory))))))))" "((get-reg_0)" "(lambda()" @@ -60277,15 +60341,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_367)" +"(let-values(((or-part_368)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_367" -" or-part_367" +"(if or-part_368" +" or-part_368" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60328,43 +60392,43 @@ static const char *startup_source = " \".rkt\")" " s_501)))))" "((path-ss->rkt_0)" -"(lambda(p_81)" +"(lambda(p_82)" "(begin" " 'path-ss->rkt" "(let-values(((base_29 name_78 dir?_8)" -"(split-path p_81)))" +"(split-path p_82)))" " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" -" (path-replace-extension p_81 #\".rkt\")" -" p_81)))))" +" (path-replace-extension p_82 #\".rkt\")" +" p_82)))))" "((s_502)" "(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((v_259)(cadr s_500)))" -" (if (let-values (((or-part_372) (equal? v_259 \".\")))" -" (if or-part_372 or-part_372 (equal? v_259 \"..\")))" +"(let-values(((v_261)(cadr s_500)))" +" (if (let-values (((or-part_373) (equal? v_261 \".\")))" +" (if or-part_373 or-part_373 (equal? v_261 \"..\")))" "(if relto_1" -"(let-values(((p_6)" +"(let-values(((p_7)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_6)(car p_6) p_6))" +"(if(pair? p_7)(car p_7) p_7))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_500))" -" v_259))" +" v_261))" " s_500))" "((subm-path_0)" "(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((p_82)" -"(if(if(let-values(((or-part_168)" +"(let-values(((p_83)" +"(if(if(let-values(((or-part_167)" "(equal?" "(cadr s_500)" " \".\")))" -"(if or-part_168" -" or-part_168" +"(if or-part_167" +" or-part_167" " (equal? (cadr s_500) \"..\")))" " relto_1" " #f)" -"(let-values(((p_83)" +"(let-values(((p_84)" "(1/resolved-module-path-name" " relto_1))" "((r_48)" @@ -60373,17 +60437,17 @@ static const char *startup_source = " \"..\")" "(cdr s_500)" "(cddr s_500))))" -"(if(pair? p_83)" +"(if(pair? p_84)" "(flatten-sub-path_0" -"(car p_83)" -"(append(cdr p_83) r_48))" -"(flatten-sub-path_0 p_83 r_48)))" +"(car p_84)" +"(append(cdr p_84) r_48))" +"(flatten-sub-path_0 p_84 r_48)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_500) \"..\")" "(cdr s_500)" "(cddr s_500))))))" -"(if(pair? p_82)(cdr p_82) #f))" +"(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_502)" @@ -60412,11 +60476,11 @@ static const char *startup_source = "(if(string? s_502)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_373)" +"(let-values(((or-part_374)" "(path-cache-get" "(cons s_502 dir_4))))" -"(if or-part_373" -" or-part_373" +"(if or-part_374" +" or-part_374" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_502" @@ -60445,11 +60509,11 @@ static const char *startup_source = "(path->complete-path s_502(get-dir_0))))))" "(if(eq?(car s_502) 'lib)" "(let-values()" -"(let-values(((or-part_85)" +"(let-values(((or-part_84)" "(path-cache-get" "(cons s_502(get-reg_0)))))" -"(if or-part_85" -" or-part_85" +"(if or-part_84" +" or-part_84" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_502)" @@ -60483,9 +60547,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_2)" +"(lambda(p_3)" "(split-relative-string" -" p_2" +" p_3" " #t))" "(cddr s_502))))" " cols_2)" @@ -60507,8 +60571,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_132)(path? s-parsed_0)))" -"(if or-part_132 or-part_132(vector? s-parsed_0)))" +"(if(let-values(((or-part_131)(path? s-parsed_0)))" +"(if or-part_131 or-part_131(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -60546,11 +60610,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_374)" +"(let-values(((or-part_375)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_374" -" or-part_374" +"(if or-part_375" +" or-part_375" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -60648,10 +60712,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_19" -"(lambda(p_84)" +"(lambda(p_85)" "(1/datum->syntax" " #f" -" p_84" +" p_85" " stx_19))" " values)" "(if(symbol? s_502)" @@ -60692,14 +60756,14 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_375)" -"(string? s_502)))" -"(if or-part_375" -" or-part_375" "(let-values(((or-part_376)" -"(symbol? s_502)))" +"(string? s_502)))" "(if or-part_376" " or-part_376" +"(let-values(((or-part_377)" +"(symbol? s_502)))" +"(if or-part_377" +" or-part_377" "(if(pair? s_502)" "(eq?(car s_502) 'lib)" " #f)))))" @@ -60850,8 +60914,8 @@ static const char *startup_source = "(let-values(((frame-id_7)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_260) ctx_75))" -"(let-values(((the-struct_90) v_260))" +"(let-values(((v_262) ctx_75))" +"(let-values(((the-struct_90) v_262))" "(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" @@ -60867,7 +60931,7 @@ static const char *startup_source = "(cons" " frame-id_7" "(expand-context-reference-records ctx_75)))" -"((inner61_0)(root-expand-context/outer-inner v_260)))" +"((inner61_0)(root-expand-context/outer-inner v_262)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -60962,17 +61026,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_261)" +"(let-values(((v_263)" " body-ctx_2))" "(let-values(((the-struct_91)" -" v_261))" +" v_263))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((name77_0)" " name_80)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_261)))" +" v_263)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -61224,15 +61288,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id92_0)" "(let-values()" -"(if(let-values(((or-part_213)" +"(if(let-values(((or-part_212)" "(if(syntax?$1" " s_312)" "(symbol?" "(syntax-e$1" " s_312))" " #f)))" -"(if or-part_213" -" or-part_213" +"(if or-part_212" +" or-part_212" "(symbol?" " s_312)))" " s_312" @@ -61485,10 +61549,10 @@ static const char *startup_source = " lst_225" " lst_306)))))" "(loop_120" -"(let-values(((v_262)" +"(let-values(((v_264)" " body-ctx_2))" "(let-values(((the-struct_92)" -" v_262))" +" v_264))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((env102_0)" @@ -61499,7 +61563,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_262)))" +" v_264)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -61835,15 +61899,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_133)" +"(if(let-values(((or-part_132)" "(if(syntax?$1" " s_516)" "(symbol?" "(syntax-e$1" " s_516))" " #f)))" -"(if or-part_133" -" or-part_133" +"(if or-part_132" +" or-part_132" "(symbol?" " s_516)))" " s_516" @@ -62169,10 +62233,10 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_120" -"(let-values(((v_263)" +"(let-values(((v_265)" " body-ctx_2))" "(let-values(((the-struct_93)" -" v_263))" +" v_265))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((env124_0)" @@ -62183,7 +62247,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_263)))" +" v_265)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -62335,11 +62399,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_264)" +"(let-values(((v_266)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_264))" +"(let-values(((the-struct_94) v_266))" "(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62353,7 +62417,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_264)))" +"(root-expand-context/outer-inner v_266)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -62473,17 +62537,17 @@ static const char *startup_source = " i_14" " last-i_1)" " #f)" -"(let-values(((v_265)" +"(let-values(((v_267)" " finish-ctx_0))" "(let-values(((the-struct_95)" -" v_265))" +" v_267))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((name136_0)" " name_81)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_265)))" +" v_267)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -62841,9 +62905,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_377) split?_0))" -"(if or-part_377" -" or-part_377" +"(let-values(((or-part_378) split?_0))" +"(if or-part_378" +" or-part_378" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63210,15 +63274,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_266) ctx_79))" -"(let-values(((the-struct_96) v_266))" +"(let-values(((v_268) ctx_79))" +"(let-values(((the-struct_96) v_268))" "(if(expand-context/outer? the-struct_96)" "(let-values(((env41_0) body-env_0)" "((scopes42_0)(cons sc_36(expand-context-scopes ctx_79)))" "((binding-layer43_0)" "(increment-binding-layer ids_35 ctx_79 sc_36))" "((frame-id44_0) #f)" -"((inner45_0)(root-expand-context/outer-inner v_266)))" +"((inner45_0)(root-expand-context/outer-inner v_268)))" "(expand-context/outer1.1" " inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_96)" @@ -63649,12 +63713,12 @@ static const char *startup_source = "(let-values()(list(add-scope formals_9 sc_37)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_85)(syntax-e$1 formals_9)))" -"(if(pair? p_85)" -"(let-values()(loop_121 p_85))" -"(if(null? p_85)" +"(let-values(((p_86)(syntax-e$1 formals_9)))" +"(if(pair? p_86)" +"(let-values()(loop_121 p_86))" +"(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_85))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_86))))))" "(if(pair? formals_9)" "(let-values()" "(begin" @@ -63861,15 +63925,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans146_0)" "(let-values()" -"(if(let-values(((or-part_341)" +"(if(let-values(((or-part_342)" "(if(syntax?$1" " s_533)" "(symbol?" "(syntax-e$1" " s_533))" " #f)))" -"(if or-part_341" -" or-part_341" +"(if or-part_342" +" or-part_342" "(symbol?" " s_533)))" " s_533" @@ -64104,15 +64168,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val149_0)" "(let-values()" -"(if(let-values(((or-part_378)" +"(if(let-values(((or-part_379)" "(if(syntax?$1" " s_540)" "(symbol?" "(syntax-e$1" " s_540))" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_379" +" or-part_379" "(symbol?" " s_540)))" " s_540" @@ -64418,15 +64482,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val152_0)" "(let-values()" -"(if(let-values(((or-part_379)" +"(if(let-values(((or-part_380)" "(if(syntax?$1" " s_547)" "(symbol?" "(syntax-e$1" " s_547))" " #f)))" -"(if or-part_379" -" or-part_379" +"(if or-part_380" +" or-part_380" "(symbol?" " s_547)))" " s_547" @@ -65621,8 +65685,8 @@ static const char *startup_source = "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_181) expr-ctx_0))" -"(let-values(((the-struct_97) v_181))" +"(let-values(((v_183) expr-ctx_0))" +"(let-values(((the-struct_97) v_183))" "(if(expand-context/outer?" " the-struct_97)" "(let-values(((env184_0)" @@ -65647,7 +65711,7 @@ static const char *startup_source = " sc_38))" "((inner188_0)" "(root-expand-context/outer-inner" -" v_181)))" +" v_183)))" "(expand-context/outer1.1" " inner188_0" "(root-expand-context/outer-post-expansion-scope" @@ -65832,17 +65896,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_267)" +"(let-values(((v_269)" " rec-ctx_0))" "(let-values(((the-struct_98)" -" v_267))" +" v_269))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" "(root-expand-context/outer-inner" -" v_267)))" +" v_269)))" "(expand-context/outer1.1" " inner196_0" "(root-expand-context/outer-post-expansion-scope" @@ -66450,8 +66514,8 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_380) rebuild-prefixless_0))" -"(if or-part_380 or-part_380 rebuild-s_8))" +"(let-values(((or-part_381) rebuild-prefixless_0))" +"(if or-part_381 or-part_381 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -67189,8 +67253,8 @@ static const char *startup_source = "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" "(lambda(s_683 ctx_91)" "(let-values(((context_25)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_381)(eq? context_25 'top-level)))" -"(if or-part_381 or-part_381(eq? context_25 'module)))" +"(if(let-values(((or-part_382)(eq? context_25 'top-level)))" +"(if or-part_382 or-part_382(eq? context_25 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))" "(let-values(((ok?_56 begin366_0)" @@ -67281,15 +67345,15 @@ static const char *startup_source = "(let-values(((s_697)" "(cdr" " s_695)))" -"(if(let-values(((or-part_382)" +"(if(let-values(((or-part_383)" "(if(syntax?$1" " s_697)" "(symbol?" "(syntax-e$1" " s_697))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_383" +" or-part_383" "(symbol?" " s_697)))" " s_697" @@ -67382,15 +67446,15 @@ static const char *startup_source = "(let-values(((s_701)" "(cdr" " s_699)))" -"(if(let-values(((or-part_383)" +"(if(let-values(((or-part_384)" "(if(syntax?$1" " s_701)" "(symbol?" "(syntax-e$1" " s_701))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_384" +" or-part_384" "(symbol?" " s_701)))" " s_701" @@ -67443,14 +67507,14 @@ static const char *startup_source = "(if(pair? s_709)" "(let-values(((id398_0)" "(let-values(((s_710)(car s_709)))" -"(if(let-values(((or-part_384)" +"(if(let-values(((or-part_385)" "(if(syntax?$1 s_710)" "(symbol?" "(syntax-e$1" " s_710))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_385" +" or-part_385" "(symbol? s_710)))" " s_710" "(raise-syntax-error$1" @@ -67533,14 +67597,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_119 'resolve id_123)))" "(void)))" -"(if(let-values(((or-part_385)(variable? t_62)))" -"(if or-part_385" -" or-part_385" -"(if(not binding_28)" -"(let-values(((or-part_386)" -"(register-eventual-variable!? id_123 ctx_96)))" +"(if(let-values(((or-part_386)(variable? t_62)))" "(if or-part_386" " or-part_386" +"(if(not binding_28)" +"(let-values(((or-part_387)" +"(register-eventual-variable!? id_123 ctx_96)))" +"(if or-part_387" +" or-part_387" "(expand-context-allow-unbound? ctx_96)))" " #f)))" "(let-values()" @@ -67703,8 +67767,8 @@ static const char *startup_source = "(let-values(((ctx_97) ctx30_0))" "(let-values(((t_63) t23_0))" "(let-values()" -"(if(let-values(((or-part_387) t_63))" -"(if or-part_387 or-part_387 from-rename?_1))" +"(if(let-values(((or-part_388) t_63))" +"(if or-part_388 or-part_388 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_63" @@ -67744,9 +67808,9 @@ static const char *startup_source = "(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))" "(if(pair? s_724)" "(if(let-values(((s_725)(car s_724)))" -"(let-values(((or-part_388)" +"(let-values(((or-part_389)" "(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))" -"(if or-part_388 or-part_388(symbol? s_725))))" +"(if or-part_389 or-part_389(symbol? s_725))))" "(let-values(((s_726)(cdr s_724)))" "(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" "(null? s_727)))" @@ -67793,11 +67857,11 @@ static const char *startup_source = "(if(pair? s_741)" "(if(let-values(((s_742)(car s_741))) #t)" "(let-values(((s_743)(cdr s_741)))" -"(let-values(((or-part_389)" +"(let-values(((or-part_390)" "(if(syntax?$1 s_743)" "(symbol?(syntax-e$1 s_743))" " #f)))" -"(if or-part_389 or-part_389(symbol? s_743))))" +"(if or-part_390 or-part_390(symbol? s_743))))" " #f)" " #f)))" "(let-values(((s_744)(cdr s_739)))" @@ -67849,7 +67913,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" "(let-values(((s_756) disarmed-s_22))" -"(if(if(not(let-values(((or-part_390) ok?_60))(if or-part_390 or-part_390 ok?_61)))" +"(if(if(not(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61)))" " #t" " #f)" "(let-values(((orig-s_60) s_756))" @@ -67874,7 +67938,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%variable-reference445_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61))" +"(if(let-values(((or-part_392) ok?_60))(if or-part_392 or-part_392 ok?_61))" "(let-values()" "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" "(let-values(((binding_29)" @@ -67890,8 +67954,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_392) binding_29))" -"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_393) binding_29))" +"(if or-part_393 or-part_393(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -67986,11 +68050,11 @@ static const char *startup_source = "(expand9.1 #f #f #f temp463_0 temp464_0))))" "(if(expand-context-to-parsed? ctx_101)" " exp-e_0" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_394)" "(if(expand-context-in-local-expand? ctx_101)" "(expand-context-keep-#%expression? ctx_101)" " #f)))" -"(if or-part_393 or-part_393(eq? 'top-level(expand-context-context ctx_101))))" +"(if or-part_394 or-part_394(eq? 'top-level(expand-context-context ctx_101))))" "(let-values()" "(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))" "(rebuild5.1 #t rebuild-s467_0 temp468_0)))" @@ -68035,7 +68099,7 @@ static const char *startup_source = "(lambda(specs_0 orig-s_62 rp_1 self_30 phase_43 ctx_104)" "(begin" "(let-values(((ns_125)(expand-context-namespace ctx_104)))" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_116)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" @@ -68278,13 +68342,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_86)" +"(let-values(((p_87)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_86)" +" p_87)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68295,10 +68359,10 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_115" +"(loop_116" " spec5_0" "(phase+" -" p_86" +" p_87" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -68384,7 +68448,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_115" +"(loop_116" " spec14_0" "(phase+" " 1" @@ -68472,7 +68536,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_115" +"(loop_116" " spec20_0" " #f" " protected?_15" @@ -68569,7 +68633,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_115" +"(loop_116" " p-spec26_0" " at-phase_13" " #t" @@ -68636,15 +68700,15 @@ static const char *startup_source = "(let-values(((s_200)" "(car" " s_404)))" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_214)" "(if(syntax?$1" " s_200)" "(symbol?" "(syntax-e$1" " s_200))" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_214" +" or-part_214" "(symbol?" " s_200)))" " s_200" @@ -68669,15 +68733,15 @@ static const char *startup_source = "(let-values(((s_202)" "(car" " s_61)))" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" " s_202)" "(symbol?" "(syntax-e$1" " s_202))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_395" +" or-part_395" "(symbol?" " s_202)))" " s_202" @@ -68796,15 +68860,15 @@ static const char *startup_source = "(let-values(((s_779)" "(car" " s_317)))" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" " s_779)" "(symbol?" "(syntax-e$1" " s_779))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_396" +" or-part_396" "(symbol?" " s_779)))" " s_779" @@ -68876,15 +68940,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" " s_782)" "(symbol?" "(syntax-e$1" " s_782))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_397" +" or-part_397" "(symbol?" " s_782)))" " s_782" @@ -69162,15 +69226,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" " s_786)" "(symbol?" "(syntax-e$1" " s_786))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_398" +" or-part_398" "(symbol?" " s_786)))" " s_786" @@ -69607,15 +69671,15 @@ static const char *startup_source = "(let-values(((s_535)" "(car" " s_243)))" -"(if(let-values(((or-part_344)" +"(if(let-values(((or-part_345)" "(if(syntax?$1" " s_535)" "(symbol?" "(syntax-e$1" " s_535))" " #f)))" -"(if or-part_344" -" or-part_344" +"(if or-part_345" +" or-part_345" "(symbol?" " s_535)))" " s_535" @@ -69675,15 +69739,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_3)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" " s_795)" "(symbol?" "(syntax-e$1" " s_795))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_399" +" or-part_399" "(symbol?" " s_795)))" " s_795" @@ -69800,15 +69864,15 @@ static const char *startup_source = "(let-values(((s_373)" "(car" " s_371)))" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" " s_373)" "(symbol?" "(syntax-e$1" " s_373))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_400" +" or-part_400" "(symbol?" " s_373)))" " s_373" @@ -69943,10 +70007,10 @@ static const char *startup_source = "(let-values(((temp104_2)" " form96_0)" "((temp105_4)" -"(let-values(((v_268)" +"(let-values(((v_270)" " ctx_104))" "(let-values(((the-struct_99)" -" v_268))" +" v_270))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((def-ctx-scopes106_0)" @@ -69954,7 +70018,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_268)))" +" v_270)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((stops108_0)" @@ -70140,7 +70204,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_115" +"(loop_116" " spec101_0" " at-phase_13" " protected?_15" @@ -70178,7 +70242,7 @@ static const char *startup_source = " lst_77)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_115)" +" loop_116)" " specs_0" " phase_43" " #f" @@ -70390,7 +70454,7 @@ static const char *startup_source = "(let-values(((phase_140)" "(required-phase" " i_187)))" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_401)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -70406,8 +70470,8 @@ static const char *startup_source = " phase_140)" " #f))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_401" +" or-part_401" "(let-values(((lst_416)" " except-ids_1))" "(begin" @@ -70544,13 +70608,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_402)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_402" +" or-part_402" "(let-values(((lst_420)" " requireds_2))" "(begin" @@ -70651,39 +70715,39 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((p_45)" +"(let-values(((p_46)" "(if(expanded+parsed?" " body_19)" "(expanded+parsed-parsed" " body_19)" " body_19)))" "(if(parsed-define-values?" -" p_45)" +" p_46)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_45)" +" p_46)" "(length" "(parsed-define-values-syms" -" p_45))" -" p_45))" -"(if(let-values(((or-part_217)" +" p_46))" +" p_46))" +"(if(let-values(((or-part_216)" "(parsed-#%declare?" -" p_45)))" -"(if or-part_217" -" or-part_217" +" p_46)))" +"(if or-part_216" +" or-part_216" "(let-values(((or-part_3)" "(parsed-module?" -" p_45)))" +" p_46)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_45)))))" +" p_46)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_45))))))" +" p_46))))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_328 rest_40)(values))))" @@ -70750,9 +70814,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_64 'gensym)" "(let-values()" -"(if(let-values(((or-part_92)(= 0(length rands_1))))" -"(if or-part_92" -" or-part_92" +"(if(let-values(((or-part_91)(= 0(length rands_1))))" +"(if or-part_91" +" or-part_91" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -70843,9 +70907,9 @@ static const char *startup_source = "(let-values(((id_4)(parsed-set!-id e_92)))" "(let-values(((normal-b_1)(parsed-id-binding id_4)))" "(begin" -"(if(let-values(((or-part_84)(not normal-b_1)))" -"(if or-part_84" -" or-part_84" +"(if(let-values(((or-part_83)(not normal-b_1)))" +"(if or-part_83" +" or-part_83" "(let-values(((or-part_311)(parsed-top-id? id_4)))" "(if or-part_311" " or-part_311" @@ -70901,8 +70965,8 @@ static const char *startup_source = " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))" -"(if(let-values(((or-part_402)(parsed-quote-syntax? e_92)))" -"(if or-part_402 or-part_402(parsed-#%variable-reference? e_92)))" +"(if(let-values(((or-part_403)(parsed-quote-syntax? e_92)))" +"(if or-part_403 or-part_403(parsed-#%variable-reference? e_92)))" "(let-values()(disallow e_92))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -70946,19 +71010,19 @@ static const char *startup_source = "(check-datum)" "(lambda(d_38 e_12)" "(begin" -"(if(let-values(((or-part_159)(number? d_38)))" -"(if or-part_159" -" or-part_159" -"(let-values(((or-part_164)(boolean? d_38)))" -"(if or-part_164" -" or-part_164" +"(if(let-values(((or-part_158)(number? d_38)))" +"(if or-part_158" +" or-part_158" +"(let-values(((or-part_163)(boolean? d_38)))" +"(if or-part_163" +" or-part_163" "(let-values(((or-part_21)(symbol? d_38)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_165)(string? d_38)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_259)(bytes? d_38)))(if or-part_259 or-part_259(null? d_38)))))))))))" +"(let-values(((or-part_164)(string? d_38)))" +"(if or-part_164" +" or-part_164" +"(let-values(((or-part_258)(bytes? d_38)))(if or-part_258 or-part_258(null? d_38)))))))))))" "(let-values()(void))" "(let-values()(disallow e_12))))))" "(define-values" @@ -71023,11 +71087,11 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_90)))" "((expand-context-module-begin-k ctx_108)" " s_90" -"(let-values(((v_269) ctx_108))" -"(let-values(((the-struct_101) v_269))" +"(let-values(((v_271) ctx_108))" +"(let-values(((the-struct_101) v_271))" "(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_269)))" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_271)))" "(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -71361,12 +71425,12 @@ static const char *startup_source = " unsafe-undefined" " temp266_0))))" "(let-values(((ctx_110)" -"(let-values(((v_262)" +"(let-values(((v_264)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" "(let-values(((the-struct_92)" -" v_262))" +" v_264))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((post-expansion-scope-action267_0)" @@ -71374,7 +71438,7 @@ static const char *startup_source = "((inner268_0)" "(let-values(((the-struct_53)" "(root-expand-context/outer-inner" -" v_262)))" +" v_264)))" "(if(expand-context/inner?" " the-struct_53)" "(let-values(((allow-unbound?269_0)" @@ -71722,16 +71786,16 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_111)" -"(let-values(((v_132)" +"(let-values(((v_134)" " mb-init-ctx_0))" "(let-values(((the-struct_43)" -" v_132))" +" v_134))" "(if(expand-context/outer?" " the-struct_43)" "(let-values(((inner306_0)" "(let-values(((the-struct_103)" "(root-expand-context/outer-inner" -" v_132)))" +" v_134)))" "(if(expand-context/inner?" " the-struct_103)" "(let-values(((module-begin-k307_0)" @@ -71989,10 +72053,10 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_111)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_270)" +"(let-values(((v_272)" " ctx_111))" "(let-values(((the-struct_104)" -" v_270))" +" v_272))" "(if(expand-context/outer?" " the-struct_104)" "(let-values(((context328_0)" @@ -72004,7 +72068,7 @@ static const char *startup_source = "((inner331_0)" "(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_270)))" +" v_272)))" "(if(expand-context/inner?" " the-struct_105)" "(let-values(((phase332_0)" @@ -72208,12 +72272,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_264)" +"(let-values(((v_266)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_94)" -" v_264))" +" v_266))" "(if(expand-context/outer?" " the-struct_94)" "(let-values(((def-ctx-scopes365_0)" @@ -72223,7 +72287,7 @@ static const char *startup_source = "((inner367_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_264)))" +" v_266)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((stops368_0)" @@ -72446,10 +72510,10 @@ static const char *startup_source = " temp381_0" " m-ns380_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_271)" +"(let-values(((v_273)" " ctx_111))" "(let-values(((the-struct_107)" -" v_271))" +" v_273))" "(if(expand-context/outer?" " the-struct_107)" "(let-values(((frame-id382_0)" @@ -72459,7 +72523,7 @@ static const char *startup_source = "((inner384_0)" "(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_271)))" +" v_273)))" "(if(expand-context/inner?" " the-struct_108)" "(let-values(((namespace385_0)" @@ -72667,10 +72731,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_272)" +"(let-values(((v_274)" " ctx_110))" "(let-values(((the-struct_24)" -" v_272))" +" v_274))" "(if(expand-context/outer?" " the-struct_24)" "(let-values(((context411_0)" @@ -72678,7 +72742,7 @@ static const char *startup_source = "((inner412_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_272)))" +" v_274)))" "(if(expand-context/inner?" " the-struct_109)" "(let-values(((module-begin-k413_0)" @@ -72816,19 +72880,19 @@ static const char *startup_source = "(let-values(((mb427_0)" " mb_0)" "((temp428_1)" -"(let-values(((v_273)" +"(let-values(((v_275)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" "(let-values(((the-struct_110)" -" v_273))" +" v_275))" "(if(expand-context/outer?" " the-struct_110)" "(let-values(((def-ctx-scopes429_0)" " #f)" "((inner430_0)" "(root-expand-context/outer-inner" -" v_273)))" +" v_275)))" "(expand-context/outer1.1" " inner430_0" "(root-expand-context/outer-post-expansion-scope" @@ -72875,11 +72939,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_404)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_403" -" or-part_403" +"(if or-part_404" +" or-part_404" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73040,13 +73104,13 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_274) ctx_113))" -"(let-values(((the-struct_111) v_274))" +"(let-values(((v_276) ctx_113))" +"(let-values(((the-struct_111) v_276))" "(if(expand-context/outer? the-struct_111)" "(let-values(((context436_0) 'module-begin)" "((only-immediate?437_0) #t)" "((def-ctx-scopes438_0) def-ctx-scopes_9)" -"((inner439_0)(root-expand-context/outer-inner v_274)))" +"((inner439_0)(root-expand-context/outer-inner v_276)))" "(expand-context/outer1.1" " inner439_0" "(root-expand-context/outer-post-expansion-scope the-struct_111)" @@ -73791,15 +73855,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id495_0)" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_405)" "(if(syntax?$1" " s_826)" "(symbol?" "(syntax-e$1" " s_826))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_405" +" or-part_405" "(symbol?" " s_826)))" " s_826" @@ -74159,15 +74223,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id524_0)" "(let-values()" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_406)" "(if(syntax?$1" " s_568)" "(symbol?" "(syntax-e$1" " s_568))" " #f)))" -"(if or-part_405" -" or-part_405" +"(if or-part_406" +" or-part_406" "(symbol?" " s_568)))" " s_568" @@ -74344,10 +74408,10 @@ static const char *startup_source = "((ids536_0)" " ids_46)" "((temp537_0)" -"(let-values(((v_275)" +"(let-values(((v_277)" " partial-body-ctx_1))" "(let-values(((the-struct_112)" -" v_275))" +" v_277))" "(if(expand-context/outer?" " the-struct_112)" "(let-values(((need-eventually-defined539_0)" @@ -74355,7 +74419,7 @@ static const char *startup_source = "((inner540_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_275)))" +" v_277)))" "(if(expand-context/inner?" " the-struct_113)" "(let-values(((lifts541_0)" @@ -75165,14 +75229,14 @@ static const char *startup_source = "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_407)" "(parsed? body_22)))" -"(if or-part_406" -" or-part_406" -"(let-values(((or-part_407)" -"(expanded+parsed? body_22)))" "(if or-part_407" " or-part_407" +"(let-values(((or-part_408)" +"(expanded+parsed? body_22)))" +"(if or-part_408" +" or-part_408" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" @@ -75673,8 +75737,8 @@ static const char *startup_source = " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_408)(parsed?(car bodys_26))))" -"(if or-part_408 or-part_408(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_409)(parsed?(car bodys_26))))" +"(if or-part_409 or-part_409(expanded+parsed?(car bodys_26))))" "(let-values()" "(cons(car bodys_26)(loop_126(cdr bodys_26) phase_150)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" @@ -75776,9 +75840,9 @@ static const char *startup_source = " requires+provides_10" " self_38" " phase_150" -"(let-values(((v_276) ctx_116))" +"(let-values(((v_278) ctx_116))" "(let-values(((the-struct_115)" -" v_276))" +" v_278))" "(if(expand-context/outer?" " the-struct_115)" "(let-values(((context615_0)" @@ -75786,7 +75850,7 @@ static const char *startup_source = "((inner616_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_276)))" +" v_278)))" "(if(expand-context/inner?" " the-struct_116)" "(let-values(((phase617_0)" @@ -75970,8 +76034,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_409) enclosing-self_3))" -"(if or-part_409 or-part_409 self_39)))))" +"(let-values(((or-part_410) enclosing-self_3))" +"(if or-part_410 or-part_410 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod623_0) parsed-mod_0)" "((temp624_0)" @@ -76166,9 +76230,9 @@ static const char *startup_source = " temp640_0))" " parsed-bfs_0))" "(loop_127 rest-bodys_3 phase_152))))))))" -"(if(let-values(((or-part_410)(parsed? body_23)))" -"(if or-part_410" -" or-part_410" +"(if(let-values(((or-part_411)(parsed? body_23)))" +"(if or-part_411" +" or-part_411" "(expanded+parsed? body_23)))" "(let-values()" "(cons body_23(loop_127 rest-bodys_3 phase_152)))" @@ -76534,22 +76598,22 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((p_87)" +"(let-values(((p_88)" "(if(expanded+parsed? body_24)" "(expanded+parsed-parsed" " body_24)" " body_24)))" -"(if(parsed-define-values? p_87)" +"(if(parsed-define-values? p_88)" "(let-values()" "(let-values(((ids_50)" "(parsed-define-values-ids" -" p_87)))" +" p_88)))" "(let-values(((vals_11)" "(eval-for-bindings" " 'define-values" " ids_50" "(parsed-define-values-rhs" -" p_87)" +" p_88)" " phase_154" " m-ns_23" " ctx_119)))" @@ -76557,7 +76621,7 @@ static const char *startup_source = "(let-values(((lst_450) ids_50)" "((lst_451)" "(parsed-define-values-syms" -" p_87))" +" p_88))" "((lst_452) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -76633,20 +76697,20 @@ static const char *startup_source = " lst_451" " lst_452)))" "(void)))))" -"(if(let-values(((or-part_411)" -"(parsed-define-syntaxes?" -" p_87)))" -"(if or-part_411" -" or-part_411" -"(semi-parsed-begin-for-syntax?" -" p_87)))" -"(let-values()(void))" "(if(let-values(((or-part_412)" -"(parsed-#%declare?" -" p_87)))" +"(parsed-define-syntaxes?" +" p_88)))" "(if or-part_412" " or-part_412" -"(syntax?$1 p_87)))" +"(semi-parsed-begin-for-syntax?" +" p_88)))" +"(let-values()(void))" +"(if(let-values(((or-part_413)" +"(parsed-#%declare?" +" p_88)))" +"(if or-part_413" +" or-part_413" +"(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -76662,7 +76726,7 @@ static const char *startup_source = "(let-values()" "(eval-single-top" "(compile-single" -" p_87" +" p_88" "(let-values(((m-ns676_0)" " m-ns_23)" "((phase677_0)" @@ -76799,8 +76863,8 @@ static const char *startup_source = "(let-values(((submod_5)" "(let-values(((s686_0) s_734)" "((temp687_0)" -"(let-values(((v_277) ctx_120))" -"(let-values(((the-struct_118) v_277))" +"(let-values(((v_279) ctx_120))" +"(let-values(((the-struct_118) v_279))" "(if(expand-context/outer? the-struct_118)" "(let-values(((context696_0) 'module)" "((post-expansion-scope697_0)" @@ -76808,7 +76872,7 @@ static const char *startup_source = "((inner698_0)" "(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_277)))" +" v_279)))" "(if(expand-context/inner?" " the-struct_119)" "(let-values(((stops699_0)" @@ -77807,15 +77871,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_0)" "(let-values()" -"(if(let-values(((or-part_218)" +"(if(let-values(((or-part_217)" "(if(syntax?$1" " s_927)" "(symbol?" "(syntax-e$1" " s_927))" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_217" +" or-part_217" "(symbol?" " s_927)))" " s_927" @@ -77942,12 +78006,12 @@ static const char *startup_source = "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_278) trans-ctx_1))" -"(let-values(((the-struct_123) v_278))" +"(let-values(((v_280) trans-ctx_1))" +"(let-values(((the-struct_123) v_280))" "(if(expand-context/outer? the-struct_123)" "(let-values(((inner37_0)" "(let-values(((the-struct_124)" -"(root-expand-context/outer-inner v_278)))" +"(root-expand-context/outer-inner v_280)))" "(if(expand-context/inner? the-struct_124)" "(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" @@ -78002,7 +78066,7 @@ static const char *startup_source = "(expand-context/outer-name the-struct_123)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" "(let-values(((all-exp-forms_0)" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_67)" "(lambda(forms_0)" "(begin" " 'loop" @@ -78115,9 +78179,9 @@ static const char *startup_source = "(reverse$1" "(cdr(syntax-e$1 beg_0)))))))" "(append" -"(loop_65 exprs_1)" +"(loop_67 exprs_1)" " exp-forms_0)))))))))))))" -" loop_65)" +" loop_67)" " form30_0)))" "(if(expand-context-to-parsed? ctx_110)" "(parsed-begin-for-syntax21.1 s_308 all-exp-forms_0)" @@ -78341,12 +78405,12 @@ static const char *startup_source = "(let-values(((name30_0) name_85)" "((ns31_0) ns)" "((temp32_3)" -"(let-values(((or-part_166)" +"(let-values(((or-part_165)" "(eq?" " name_85" " '#%foreign)))" -"(if or-part_166" -" or-part_166" +"(if or-part_165" +" or-part_165" "(let-values(((or-part_286)" "(eq?" " name_85"