diff --git a/pkgs/racket-doc/scribblings/reference/string-input.scrbl b/pkgs/racket-doc/scribblings/reference/string-input.scrbl index 491be2950a..3e18a97f07 100644 --- a/pkgs/racket-doc/scribblings/reference/string-input.scrbl +++ b/pkgs/racket-doc/scribblings/reference/string-input.scrbl @@ -410,20 +410,39 @@ character.} @defproc[(peek-char-or-special [in input-port? (current-input-port)] [skip-bytes-amt exact-nonnegative-integer? 0] - [special-wrap (or/c (any/c -> any/c) #f) #f] + [special-wrap (or/c (any/c -> any/c) #f 'special) #f] [source-name any/c #f]) (or/c char? eof-object? any/c)]{ Like @racket[peek-char], but if the input port returns a non-byte -value after @racket[skip-bytes-amt] byte positions, then it is returned. +value after @racket[skip-bytes-amt] byte positions, then the result +depends on @racket[special-wrap]: + +@itemlist[ + + @item{If @racket[special-wrap] is @racket[#f], then the special value + is returned (as for @racket[read-char-or-special]).} + +@item{If @racket[special-wrap] is a procedure, then it is applied the + special value to produce the result (as for + @racket[read-char-or-special]).} + + @item{If @racket[special-wrap] is @racket['special], then + @racket['special] is returned in place of the special + value---without calling the special-value procedure that is + returned by the input-port implementation.} + +] @history[#:changed "6.8.0.2" @elem{Added the @racket[special-wrap] and - @racket[source-name] arguments.}]} + @racket[source-name] arguments.} + #:changed "6.90.0.16" @elem{Added @racket['special] as an option + for @racket[special-wrap].}]} @defproc[(peek-byte-or-special [in input-port? (current-input-port)] [skip-bytes-amt exact-nonnegative-integer? 0] [progress (or/c progress-evt? #f) #f] - [special-wrap (or/c (any/c -> any/c) #f) #f] + [special-wrap (or/c (any/c -> any/c) #f 'special) #f] [source-name any/c #f]) (or/c byte? eof-object? any/c)]{ @@ -432,7 +451,9 @@ instead of a character, and it supports a @racket[progress] argument like @racket[peek-bytes-avail!]. @history[#:changed "6.8.0.2" @elem{Added the @racket[special-wrap] and - @racket[source-name] arguments.}]} + @racket[source-name] arguments.} + #:changed "6.90.0.16" @elem{Added @racket['special] as an option + for @racket[special-wrap].}]} @defproc[(port-progress-evt [in (and/c input-port? port-provides-progress-evts?) diff --git a/pkgs/racket-test-core/tests/racket/port.rktl b/pkgs/racket-test-core/tests/racket/port.rktl index abba3a0e2c..fe92fec24f 100644 --- a/pkgs/racket-test-core/tests/racket/port.rktl +++ b/pkgs/racket-test-core/tests/racket/port.rktl @@ -368,6 +368,15 @@ (err/rt-test (read-char infinite-voids) exn:application:mismatch?) (test 'void read-byte-or-special infinite-voids) (test 'void read-char-or-special infinite-voids) +(test 'void peek-char-or-special infinite-voids 0) +(test 'special peek-char-or-special infinite-voids 0 'special) +(let ([p (make-input-port + 'voids + (lambda (s) (lambda args 'void)) + (lambda (skip s progress-evt) (lambda args (error "oops"))) + void)]) + (test 'special peek-char-or-special infinite-voids 0 'special) + (test 'void read-char-or-special infinite-voids)) (let ([go (lambda (get-avail!) (define (get) diff --git a/pkgs/racket-test-core/tests/racket/read.rktl b/pkgs/racket-test-core/tests/racket/read.rktl index d6e0f27af2..418dce0f5e 100644 --- a/pkgs/racket-test-core/tests/racket/read.rktl +++ b/pkgs/racket-test-core/tests/racket/read.rktl @@ -952,6 +952,49 @@ (test #\y read-char-or-special p) (test 3 file-position p)) +;; Test read-char-or-special: +(let ([p (make-p (list #"x" a-special #"y") (lambda (x) 5) void)]) + (test #\x peek-char-or-special p) + (test 0 file-position p) + (test #\x peek-char-or-special p 0) + (test a-special peek-char-or-special p 1) + (test #\y peek-char-or-special p 2) + (test 0 file-position p) + (test #\x read-char-or-special p) + (test 1 file-position p) + (test a-special peek-char-or-special p) + (test 1 file-position p) + (test a-special read-char-or-special p) + (test 2 file-position p) + (test #\y peek-char-or-special p) + (test 2 file-position p) + (test #\y read-char-or-special p) + (test 3 file-position p)) + +;; Reading somethign like a symbol should stop at a special +;; without calling the special-producing procedure: +(let* ([pos 0] + [p (make-input-port + 'voids + (lambda (s) + (if (pos . < . 3) + (begin + (set! pos (add1 pos)) + (bytes-set! s 0 (char->integer #\a)) + 1) + (lambda args (error "oops/read")))) + (lambda (s skip progress-evt) + (cond + [((+ skip pos) . < . 3) + (begin + (bytes-set! s 0 (char->integer #\a)) + 1)] + [((+ skip pos) . < . 4) + (lambda args (error "oops/peek"))] + [else eof-object])) + void)]) + (test 'aaa read p)) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Test read-syntax offsets: diff --git a/racket/src/expander/read/special.rkt b/racket/src/expander/read/special.rkt index 3853022705..22a06e67a1 100644 --- a/racket/src/expander/read/special.rkt +++ b/racket/src/expander/read/special.rkt @@ -16,5 +16,9 @@ (define-inline (read-char/special in config [source (read-config-source config)]) (read-char-or-special in special source)) +;; Returns `(special 'special)` for any special value: (define-inline (peek-char/special in config [skip-count 0] [source (read-config-source config)]) - (peek-char-or-special in skip-count special source)) + (define c (peek-char-or-special in skip-count 'special source)) + (if (eq? c 'special) + (special 'special) + c)) diff --git a/racket/src/io/Makefile b/racket/src/io/Makefile index e6866284d1..20f1b941a7 100644 --- a/racket/src/io/Makefile +++ b/racket/src/io/Makefile @@ -30,11 +30,11 @@ GENERATE_ARGS = -t main.rkt --submod main \ io-src-generate: $(RACKET) ../expander/bootstrap-run.rkt $(GENERATE_ARGS) -demo: compiled/rktio.rktl +demo: $(RKTIO_DEP) $(RACO) make demo.rkt $(RACKET) demo.rkt -demo-thread: compiled/rktio.rktl +demo-thread: $(RKTIO_DEP) $(RACO) make demo-thread.rkt $(RACKET) demo-thread.rkt diff --git a/racket/src/io/demo.rkt b/racket/src/io/demo.rkt index c16359a5f8..1088e3651c 100644 --- a/racket/src/io/demo.rkt +++ b/racket/src/io/demo.rkt @@ -277,6 +277,8 @@ (test '#&(special src 1 1 2) (read-byte-or-special specialist box 'src)) (test '(special #f #f #f #f) (peek-byte-or-special specialist)) (test '#&(special src 1 2 3) (peek-byte-or-special specialist 0 #f box 'src)) +(test 'special (peek-byte-or-special specialist 0 #f 'special 'src)) +(test 'special (peek-char-or-special specialist 0 'special 'src)) (let-values ([(i o) (make-pipe)]) (struct my-i (i) #:property prop:input-port 0) diff --git a/racket/src/io/host/bootstrap-rktio.rkt b/racket/src/io/host/bootstrap-rktio.rkt index e064c679be..db129d1641 100644 --- a/racket/src/io/host/bootstrap-rktio.rkt +++ b/racket/src/io/host/bootstrap-rktio.rkt @@ -78,7 +78,7 @@ (rktio_get_last_error rktio-name) (rktio_get_last_error_step rktio-name)))) -(include "../compiled/rktio.rktl") +(include "../../rktio/rktio.rktl") (define rktio_NULL #f) @@ -215,4 +215,4 @@ 'rktio_do_install_os_signal_handler rktio_do_install_os_signal_handler 'rktio_get_ctl_c_handler rktio_get_ctl_c_handler] form ...)) - (include "../compiled/rktio.rktl"))) + (include "../../rktio/rktio.rktl"))) diff --git a/racket/src/io/port/special-input.rkt b/racket/src/io/port/special-input.rkt index 6af5899cda..317e86ebf4 100644 --- a/racket/src/io/port/special-input.rkt +++ b/racket/src/io/port/special-input.rkt @@ -35,7 +35,7 @@ (check who input-port? orig-in) (check who exact-nonnegative-integer? skip-k) (check who #:or-false evt? progress-evt) - (check who #:or-false (procedure-arity-includes/c 1) special-wrap) + (check who special-wrap-for-peek? #:contract special-wrap-for-peek/c-str special-wrap) (when progress-evt (check-progress-evt who progress-evt orig-in)) (let ([in (->core-input-port orig-in)]) @@ -64,7 +64,7 @@ [source-name #f]) (check who input-port? in) (check who exact-nonnegative-integer? skip-k) - (check who #:or-false (procedure-arity-includes/c 1) special-wrap) + (check who special-wrap-for-peek? #:contract special-wrap-for-peek/c-str special-wrap) (extract-special-value (do-peek-char who in skip-k #:special-ok? #t) in source-name skip-k special-wrap)) @@ -74,21 +74,33 @@ (define (extract-special-value v in source-name delta special-wrap) (cond [(procedure? v) - (define special - (cond - [(not source-name) + (cond + [(eq? special-wrap 'special) + 'special] + [else + (define special (cond - [(procedure-arity-includes? v 0) - (v)] + [(not source-name) + (cond + [(procedure-arity-includes? v 0) + (v)] + [else + (v #f #f #f #f)])] [else - (v #f #f #f #f)])] - [else - (define-values (line col pos) (port-next-location in)) - (v source-name - line - (and col (+ col delta)) - (and pos (+ pos delta)))])) - (if special-wrap - (special-wrap special) - special)] + (define-values (line col pos) (port-next-location in)) + (v source-name + line + (and col (+ col delta)) + (and pos (+ pos delta)))])) + (if special-wrap + (special-wrap special) + special)])] [else v])) + +(define (special-wrap-for-peek? w) + (or (not w) (eq? w 'special) (and (procedure? w) + (procedure-arity-includes? w 1)))) + +(define special-wrap-for-peek/c-str + "(or/c (any/c -> any/c) #f 'special)") + diff --git a/racket/src/racket/src/portfun.c b/racket/src/racket/src/portfun.c index 0ebbeb21d5..09668ca0bc 100644 --- a/racket/src/racket/src/portfun.c +++ b/racket/src/racket/src/portfun.c @@ -143,6 +143,7 @@ ROSYM static Scheme_Object *lf_symbol; ROSYM static Scheme_Object *crlf_symbol; ROSYM static Scheme_Object *module_symbol; ROSYM static Scheme_Object *string_symbol; +ROSYM static Scheme_Object *special_symbol; READ_ONLY static Scheme_Object *default_read_handler; READ_ONLY static Scheme_Object *default_display_handler; @@ -200,6 +201,7 @@ scheme_init_port_fun(Scheme_Startup_Env *env) REGISTER_SO(crlf_symbol); REGISTER_SO(module_symbol); REGISTER_SO(string_symbol); + REGISTER_SO(special_symbol); any_symbol = scheme_intern_symbol("any"); any_one_symbol = scheme_intern_symbol("any-one"); @@ -208,6 +210,7 @@ scheme_init_port_fun(Scheme_Startup_Env *env) crlf_symbol = scheme_intern_symbol("return-linefeed"); module_symbol = scheme_intern_symbol("module"); string_symbol = scheme_intern_symbol("string"); + special_symbol = scheme_intern_symbol("special"); scheme_write_proc = scheme_make_noncm_prim(sch_write, "write", 1, 2); scheme_display_proc = scheme_make_noncm_prim(display, "display", 1, 2); @@ -2982,8 +2985,17 @@ do_read_char(char *name, int argc, Scheme_Object *argv[], int peek, int spec, in spec_wrap = argv[pos]; if (SCHEME_FALSEP(spec_wrap)) spec_wrap = NULL; - else if (!scheme_fast_check_arity(spec_wrap, 1)) - scheme_check_proc_arity2(name, 1, pos, argc, argv, 1); + else if (!(peek && SAME_OBJ(spec_wrap, special_symbol)) + && !scheme_fast_check_arity(spec_wrap, 1)) { + if (!scheme_check_proc_arity2(NULL, 1, pos, argc, argv, 1)) { + scheme_wrong_contract(name, + (peek + ? "(or/c (any/c -> any/c) #f 'special)" + : "(or/c (any/c -> any/c) #f)"), + pos, argc, argv); + return NULL; + } + } pos++; if (argc > pos) src = argv[pos++]; @@ -3021,6 +3033,8 @@ do_read_char(char *name, int argc, Scheme_Object *argv[], int peek, int spec, in } if (ch == SCHEME_SPECIAL) { + if (SAME_OBJ(spec_wrap, special_symbol)) + return special_symbol; src = scheme_get_ready_special(port, src, peek); if (spec_wrap) { Scheme_Object *a[1]; diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 14008f473a..d7869030a0 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -46877,7 +46877,13 @@ static const char *startup_source = "(eqv?" " '#\\|" "(let-values(((in_11) in_5)((skip-count_0) 0)((source_6) source_3))" -"(peek-char-or-special in_11 skip-count_0 special1.1 source_6)))" +"(let-values(((c_38)" +"(peek-char-or-special" +" in_11" +" skip-count_0" +" 'special" +" source_6)))" +"(if(eq? c_38 'special)(special1.1 'special) c_38))))" " #f)" "(let-values()" "(begin" @@ -46888,25 +46894,31 @@ static const char *startup_source = "(if(if(char=? '#\\# ec_0)" "(if(eqv?" " '#\\!" -"(let-values(((in_6) in_5)" +"(let-values(((in_12) in_5)" "((skip-count_1) 0)" "((source_7) source_3))" -"(peek-char-or-special" -" in_6" -" skip-count_1" -" special1.1" -" source_7)))" -"(let-values(((c3_1)" -"(let-values(((in_12) in_5)" -"((skip-count_2) 1)" -"((source_8) source_3))" +"(let-values(((c_63)" "(peek-char-or-special" " in_12" +" skip-count_1" +" 'special" +" source_7)))" +"(if(eq? c_63 'special)(special1.1 'special) c_63))))" +"(let-values(((c3_1)" +"(let-values(((in_13) in_5)" +"((skip-count_2) 1)" +"((source_8) source_3))" +"(let-values(((c_64)" +"(peek-char-or-special" +" in_13" " skip-count_2" -" special1.1" -" source_8))))" -"(let-values(((or-part_71)(eqv? '#\\space c3_1)))" -"(if or-part_71 or-part_71(eqv? '#\\/ c3_1))))" +" 'special" +" source_8)))" +"(if(eq? c_64 'special)" +"(special1.1 'special)" +" c_64)))))" +"(let-values(((or-part_84)(eqv? '#\\space c3_1)))" +"(if or-part_84 or-part_84(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -46918,18 +46930,24 @@ static const char *startup_source = "(if(if(char=? '#\\# ec_0)" "(eqv?" " '#\\;" -"(let-values(((in_13) in_5)" +"(let-values(((in_14) in_5)" "((skip-count_3) 0)" "((source_9) source_3))" -"(peek-char-or-special in_13 skip-count_3 special1.1 source_9)))" +"(let-values(((c_39)" +"(peek-char-or-special" +" in_14" +" skip-count_3" +" 'special" +" source_9)))" +"(if(eq? c_39 'special)(special1.1 'special) c_39))))" " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_224)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_180)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_224)" +"(if(eof-object? v_180)" "(let-values()" -"(let-values(((v3_0) v_224)" +"(let-values(((v3_0) v_180)" "((temp4_3)" " \"expected a commented-out element for `~a;', but found end-of-file\")" "((ec5_0) ec_0))" @@ -46954,59 +46972,59 @@ static const char *startup_source = "(define-values(result-special-comment)(lambda()(begin(special1.1(1/make-special-comment #f)))))" "(define-values" "(skip-pipe-comment!)" -"(lambda(init-c_3 in_14 config_19)" +"(lambda(init-c_3 in_15 config_19)" "(begin" "(let-values(((source_10)(read-config-source config_19)))" -"(let-values(((line_5 col_4 pos_108)(port-next-location in_14)))" +"(let-values(((line_5 col_4 pos_108)(port-next-location in_15)))" "(begin" -"(consume-char in_14 '#\\|)" -"((letrec-values(((loop_100)" +"(consume-char in_15 '#\\|)" +"((letrec-values(((loop_102)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" -"(let-values(((c_63)" -"(let-values(((in_15) in_14)((source_11) source_10))" -"(read-char-or-special in_15 special1.1 source_11))))" -"(if(eof-object? c_63)" +"(let-values(((c_65)" +"(let-values(((in_16) in_15)((source_11) source_10))" +"(read-char-or-special in_16 special1.1 source_11))))" +"(if(eof-object? c_65)" "(let-values()" "(let-values(((temp7_2)(reading-at config_19 line_5 col_4 pos_108))" -"((c8_0) c_63)" +"((c8_0) c_65)" " ((temp9_2) \"end of file in `#|` comment\"))" -"(reader-error10.1 #f #f c8_0 #t #f #f in_14 temp7_2 temp9_2(list))))" -"(if(not(char? c_63))" -"(let-values()(loop_100 #f depth_10))" -"(if(if(char=? '#\\| c_63)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_100 #f(add1 depth_10)))" -"(if(if(char=? '#\\# c_63)(eqv? prev-c_0 '#\\|) #f)" +"(reader-error10.1 #f #f c8_0 #t #f #f in_15 temp7_2 temp9_2(list))))" +"(if(not(char? c_65))" +"(let-values()(loop_102 #f depth_10))" +"(if(if(char=? '#\\| c_65)(eqv? prev-c_0 '#\\#) #f)" +"(let-values()(loop_102 #f(add1 depth_10)))" +"(if(if(char=? '#\\# c_65)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_100 #f(sub1 depth_10)))" +"(let-values()(loop_102 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_100 c_63 depth_10)))))))))))" -" loop_100)" +"(let-values()(loop_102 c_65 depth_10)))))))))))" +" loop_102)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" -"(lambda(in_16 config_20)" +"(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_103)" "(lambda(backslash?_0)" "(begin" " 'loop" -"(let-values(((c_64)" -"(let-values(((in_17) in_16)((source_12)(read-config-source config_20)))" -"(read-char-or-special in_17 special1.1 source_12))))" -"(if(eof-object? c_64)" +"(let-values(((c_44)" +"(let-values(((in_18) in_17)((source_12)(read-config-source config_20)))" +"(read-char-or-special in_18 special1.1 source_12))))" +"(if(eof-object? c_44)" "(let-values()(void))" -"(if(not(char? c_64))" -"(let-values()(loop_102 #f))" -"(if(char=? c_64 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_102 #f))(void)))" -"(if(char=? c_64 '#\\\\)" -"(let-values()(loop_102 #t))" -"(let-values()(loop_102 #f)))))))))))" -" loop_102)" +"(if(not(char? c_44))" +"(let-values()(loop_103 #f))" +"(if(char=? c_44 '#\\newline)" +"(let-values()(if backslash?_0(let-values()(loop_103 #f))(void)))" +"(if(char=? c_44 '#\\\\)" +"(let-values()(loop_103 #t))" +"(let-values()(loop_103 #f)))))))))))" +" loop_103)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -47092,15 +47110,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_104)" "(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_103 (cdr cs_2)))))))))" -" loop_103)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_104 (cdr cs_2)))))))))" +" loop_104)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -47159,7 +47177,7 @@ static const char *startup_source = "(let-values()(accum-string1.1 0(make-string 32)))))))))" "(define-values" "(accum-string-add!)" -"(lambda(a_66 c_65)" +"(lambda(a_66 c_66)" "(begin" "(let-values(((pos_109)(accum-string-pos a_66)))" "(let-values(((str_27)(accum-string-str a_66)))" @@ -47169,7 +47187,7 @@ static const char *startup_source = "(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_109 c_65)(set-accum-string-pos! a_66(add1 pos_109)))))))))" +"(begin(string-set! str2_0 pos_109 c_66)(set-accum-string-pos! a_66(add1 pos_109)))))))))" "(define-values(accum-string-count)(lambda(a_67)(begin(accum-string-pos a_67))))" "(define-values(set-accum-string-count!)(lambda(a_68 pos_11)(begin(set-accum-string-pos! a_68 pos_11))))" "(define-values" @@ -47255,9 +47273,9 @@ static const char *startup_source = "(make-struct-field-mutator -set!_0 7 'suspicious-quote))))" "(define-values" "(make-indentation)" -"(lambda(closer_0 in_18 config_30)" +"(lambda(closer_0 in_19 config_30)" "(begin" -"(let-values(((line_6 col_5 pos_110)(port-next-location in_18)))" +"(let-values(((line_6 col_5 pos_110)(port-next-location in_19)))" "(indentation1.1 closer_0 #f #f line_6 line_6 #f(if col_5(add1 col_5) #f) #f)))))" "(define-values" "(track-indentation!)" @@ -47443,23 +47461,23 @@ static const char *startup_source = "(void))" " e_69))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_105)" "(lambda(depth_11" " accum_0" -" init-c_5" +" init-c_3" " first?_1" " first-read-one_1)" "(begin" " 'loop" -"(let-values(((c_66)" +"(let-values(((c_67)" "(read-char/skip-whitespace-and-comments" -" init-c_5" +" init-c_3" " whitespace-read-one_0" " in_10" " seq-config_0)))" "(let-values(((ec_3)" "(effective-char" -" c_66" +" c_67" " seq-config_0)))" "(if(eqv? ec_3 closer_1)" "(let-values()" @@ -47472,18 +47490,22 @@ static const char *startup_source = " 1/read-accept-dot" " config_16)" "(char-delimiter?" -"(let-values(((in_19)" +"(let-values(((in_20)" " in_10)" "((skip-count_4)" " 0)" "((source_13)" "(read-config-source" " config_16)))" +"(let-values(((c_68)" "(peek-char-or-special" -" in_19" +" in_20" " skip-count_4" -" special1.1" -" source_13))" +" 'special" +" source_13)))" +"(if(eq? c_68 'special)" +"(special1.1 'special)" +" c_68)))" " seq-config_0)" " #f)" " #f)" @@ -47494,7 +47516,7 @@ static const char *startup_source = " dot-pos_0)" "(port-next-location*" " in_10" -" c_66)))" +" c_67)))" "(let-values((()" "(begin" "(track-indentation!" @@ -47532,7 +47554,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_35)" +"(let-values(((v_224)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -47553,11 +47575,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_35" +" v_224" "(append" "(reverse$1" " accum_0)" -" v_35)))" +" v_224)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -47568,18 +47590,25 @@ static const char *startup_source = " 1/read-accept-infix-dot" " config_16)" "(char-delimiter?" -"(let-values(((in_17)" +"(let-values(((in_21)" " in_10)" "((skip-count_5)" " 0)" "((source_14)" "(read-config-source" " config_16)))" +"(let-values(((c_54)" "(peek-char-or-special" -" in_17" +" in_21" " skip-count_5" -" special1.1" -" source_14))" +" 'special" +" source_14)))" +"(if(eq?" +" c_54" +" 'special)" +"(special1.1" +" 'special)" +" c_54)))" " seq-config_0)" " #f)" " #f)" @@ -47589,7 +47618,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_35))" +" v_224))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -47614,11 +47643,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_300)" +"(if(let-values(((or-part_23)" "(eof-object?" " post-ec_0)))" -"(if or-part_300" -" or-part_300" +"(if or-part_23" +" or-part_23" "(eqv?" " post-ec_0" " closer_1)))" @@ -47645,7 +47674,7 @@ static const char *startup_source = " temp35_1" "(list))))" "(void))" -"(loop_104" +"(loop_105" " depth_11" " accum_0" " post-c_0" @@ -47674,14 +47703,14 @@ static const char *startup_source = " temp39_5" "(list)))))))))))))" "(let-values()" -"(let-values(((v_55)" +"(let-values(((v_198)" "(read-one/not-eof_0" -" c_66" +" c_67" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_55)" +"(if(1/special-comment? v_198)" "(let-values()" -"(loop_104" +"(loop_105" " depth_11" " accum_0" " #f" @@ -47689,22 +47718,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_104" +"(loop_105" " depth_11" -"(cons v_55 accum_0)" +"(cons v_198 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_55" -"(loop_104" +" v_198" +"(loop_105" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_104)" +" loop_105)" " 0" " null" " #f" @@ -47716,7 +47745,7 @@ static const char *startup_source = " full-seq_0)))))))))))))))))))))))" "(define-values" "(add-shape-tag)" -"(lambda(opener_1 in_20 config_35 seq_1)" +"(lambda(opener_1 in_22 config_35 seq_1)" "(begin" "(let-values(((tag_0)" "(let-values(((tmp_38) opener_1))" @@ -47725,7 +47754,7 @@ static const char *startup_source = "(if(equal? tmp_38 '#\\{)" "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" -"(if tag_0(cons(wrap tag_0 in_20 config_35 #f) seq_1) seq_1)))))" +"(if tag_0(cons(wrap tag_0 in_22 config_35 #f) seq_1) seq_1)))))" " (define-values (not-an-fX.1) (lambda (who_26 v_225) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_225))))" "(define-values" "(not-an-fX.1$1)" @@ -47744,7 +47773,7 @@ static const char *startup_source = " accum-str10_0)" "(begin" " 'read-digits13" -"(let-values(((in_21) in11_0))" +"(let-values(((in_12) in11_0))" "(let-values(((config_36) config12_1))" "(let-values(((accum-str_0)(if accum-str10_0 accum-str9_0 #f)))" "(let-values(((base_22) base1_0))" @@ -47752,80 +47781,86 @@ static const char *startup_source = "(let-values(((init-v_0)(if init7_0 init3_0 0)))" "(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))" "(let-values()" -"(let-values(((c_67)" -"(let-values(((in_22) in_21)" +"(let-values(((c_69)" +"(let-values(((in_23) in_12)" "((skip-count_6) 0)" "((source_15)(read-config-source config_36)))" -"(peek-char-or-special in_22 skip-count_6 special1.1 source_15))))" -"(if(digit?$1 c_67 base_22)" +"(let-values(((c_52)" +"(peek-char-or-special in_23 skip-count_6 'special source_15)))" +"(if(eq? c_52 'special)(special1.1 'special) c_52)))))" +"(if(digit?$1 c_69 base_22)" "(let-values()" "(begin" -"(consume-char in_21 c_67)" -"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_67))(void))" -"((letrec-values(((loop_105)" -"(lambda(v_224 max-count_1)" +"(consume-char in_12 c_69)" +"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_69))(void))" +"((letrec-values(((loop_62)" +"(lambda(v_226 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_224)" +"(let-values() v_226)" "(let-values()" -"(let-values(((c_51)" -"(let-values(((in_23) in_21)" +"(let-values(((c_39)" +"(let-values(((in_24) in_12)" "((skip-count_7) 0)" "((source_16)" "(read-config-source config_36)))" +"(let-values(((c_70)" "(peek-char-or-special" -" in_23" +" in_24" " skip-count_7" -" special1.1" -" source_16))))" -"(if(digit?$1 c_51 base_22)" +" 'special" +" source_16)))" +"(if(eq? c_70 'special)" +"(special1.1 'special)" +" c_70)))))" +"(if(digit?$1 c_39 base_22)" "(let-values()" "(begin" -"(consume-char in_21 c_51)" +"(consume-char in_12 c_39)" "(if accum-str_0" -"(let-values()(accum-string-add! accum-str_0 c_51))" +"(let-values()(accum-string-add! accum-str_0 c_39))" "(void))" -"(loop_105" -"(+(digit->number c_51)(* v_224 base_22))" +"(loop_62" +"(+(digit->number c_39)(* v_226 base_22))" "(sub1 max-count_1))))" -"(let-values() v_224)))))))))" -" loop_105)" -"(+(digit->number c_67)(* init-v_0 base_22))" +"(let-values() v_226)))))))))" +" loop_62)" +"(+(digit->number c_69)(* init-v_0 base_22))" "(sub1 max-count_0))))" "(if zero-digits-result_0" "(let-values() zero-digits-result_0)" -"(let-values() c_67)))))))))))))))" +"(let-values() c_69)))))))))))))))" "(define-values" "(digit?$1)" -"(lambda(c_56 base_23)" +"(lambda(c_71 base_23)" "(begin" " 'digit?" -"(if(not(char? c_56))" +"(if(not(char? c_71))" "(let-values() #f)" "(if(= base_23 8)" -"(let-values()(octal-digit? c_56))" -"(if(= base_23 16)(let-values()(hex-digit? c_56))(let-values()(decimal-digit? c_56))))))))" -"(define-values(decimal-digit?)(lambda(c_68)(begin(if(char>=? c_68 '#\\0)(char<=? c_68 '#\\9) #f))))" -"(define-values(octal-digit?)(lambda(c_57)(begin(if(char>=? c_57 '#\\0)(char<=? c_57 '#\\7) #f))))" +"(let-values()(octal-digit? c_71))" +"(if(= base_23 16)(let-values()(hex-digit? c_71))(let-values()(decimal-digit? c_71))))))))" +"(define-values(decimal-digit?)(lambda(c_72)(begin(if(char>=? c_72 '#\\0)(char<=? c_72 '#\\9) #f))))" +"(define-values(octal-digit?)(lambda(c_73)(begin(if(char>=? c_73 '#\\0)(char<=? c_73 '#\\7) #f))))" "(define-values" "(hex-digit?)" -"(lambda(c_69)" +"(lambda(c_74)" "(begin" -"(let-values(((or-part_67)(if(char>=? c_69 '#\\0)(char<=? c_69 '#\\9) #f)))" -"(if or-part_67" -" or-part_67" -"(let-values(((or-part_101)(if(char>=? c_69 '#\\A)(char<=? c_69 '#\\F) #f)))" -"(if or-part_101 or-part_101(if(char>=? c_69 '#\\a)(char<=? c_69 '#\\f) #f))))))))" +"(let-values(((or-part_300)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))" +"(if or-part_300" +" or-part_300" +"(let-values(((or-part_102)(if(char>=? c_74 '#\\A)(char<=? c_74 '#\\F) #f)))" +"(if or-part_102 or-part_102(if(char>=? c_74 '#\\a)(char<=? c_74 '#\\f) #f))))))))" "(define-values" "(digit->number)" -"(lambda(c_58)" +"(lambda(c_6)" "(begin" -"(if(if(char>=? c_58 '#\\0)(char<=? c_58 '#\\9) #f)" -"(let-values()(-(char->integer c_58)(char->integer '#\\0)))" -"(if(if(char>=? c_58 '#\\A)(char<=? c_58 '#\\F) #f)" -"(let-values()(-(char->integer c_58)(-(char->integer '#\\A) 10)))" -"(let-values()(-(char->integer c_58)(-(char->integer '#\\a) 10))))))))" +"(if(if(char>=? c_6 '#\\0)(char<=? c_6 '#\\9) #f)" +"(let-values()(-(char->integer c_6)(char->integer '#\\0)))" +"(if(if(char>=? c_6 '#\\A)(char<=? c_6 '#\\F) #f)" +"(let-values()(-(char->integer c_6)(-(char->integer '#\\A) 10)))" +"(let-values()(-(char->integer c_6)(-(char->integer '#\\a) 10))))))))" "(define-values(string->number$1) string->number)" "(define-values" "(1/string->number)" @@ -47921,8 +47956,8 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_70)(string-ref s_22 start_44)))" -"(if(char=? '#\\# c_70)" +"(let-values(((c_75)(string-ref s_22 start_44)))" +"(if(char=? '#\\# c_75)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_33)" @@ -48093,20 +48128,20 @@ static const char *startup_source = " exactness88_0" " temp89_4)))))))))))))))" "(let-values(((c1_27)" -"(if(char-sign? c_70)" +"(if(char-sign? c_75)" "(read-special-number s_22 start_44 end_33 convert-mode_2)" " #f)))" "(if c1_27" -"((lambda(v_226)" +"((lambda(v_227)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_226))" +" (let-values () (format \"no exact representation for `~a`\" v_227))" "(let-values() #f)))" -"(let-values() v_226)))" +"(let-values() v_227)))" " c1_27)" "(let-values(((c2_3)" -"(if(char-sign? c_70)" +"(if(char-sign? c_75)" "(if(not in-complex_0)" "(if(>(- end_33 start_44) 7)" "(if(char=? '#\\i(string-ref s_22(sub1 end_33)))" @@ -48122,17 +48157,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_227)" +"((lambda(v_228)" "(let-values(((temp91_0)(+ start_44 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_227)" +"((v97_0) v_228)" "((temp98_3)" -"(lambda(v_228 v2_0)" -"(begin 'temp98(make-rectangular v_228 v2_0)))))" +"(lambda(v_229 v2_0)" +"(begin 'temp98(make-rectangular v_229 v2_0)))))" "(read-for-special-compound65.1" " temp96_3" " #f" @@ -48189,7 +48224,7 @@ static const char *startup_source = " temp108_2)))))" " c3_2)" "(let-values(((c4_0)" -"(if(char-sign? c_70)" +"(if(char-sign? c_75)" "(if(not in-complex_0)" "(if(>(- end_33 start_44) 7)" "(if(char=? '#\\@(string-ref s_22(+ start_44 6)))" @@ -48249,8 +48284,8 @@ static const char *startup_source = "((temp125_2) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_229)" -"(begin 'temp127(make-polar v_229 v2_5)))))" +"(lambda(v2_5 v_230)" +"(begin 'temp127(make-polar v_230 v2_5)))))" "(read-for-special-compound65.1" " temp124_3" " temp125_2" @@ -48406,8 +48441,8 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_71)(string-ref s_86 i_172)))" -"(if(digit? c_71 radix_5)" +"(let-values(((c_76)(string-ref s_86 i_172)))" +"(if(digit? c_76 radix_5)" "(let-values()" "(loop_106" "(add1 i_172)" @@ -48420,7 +48455,7 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char=? c_71 '#\\#)" +"(if(char=? c_76 '#\\#)" "(let-values()" "(loop_106" "(add1 i_172)" @@ -48433,7 +48468,7 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char-sign? c_71)" +"(if(char-sign? c_76)" "(let-values()" "(if(if sign-pos_0 must-i?_0 #f)" "(let-values()" @@ -48460,7 +48495,7 @@ static const char *startup_source = " or-part_303" "(> i_172(add1 @-pos_0))))" " #f)))))" -"(if(char=? c_71 '#\\.)" +"(if(char=? c_76 '#\\.)" "(let-values()" "(if(let-values(((or-part_304)" "(if exp-pos_0" @@ -48510,7 +48545,7 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))" -"(if(char=? c_71 '#\\/)" +"(if(char=? c_76 '#\\/)" "(let-values()" "(if(if dot-pos_1" "(let-values(((or-part_61)(not sign-pos_0)))" @@ -48561,60 +48596,60 @@ static const char *startup_source = " i_172" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_307)(char=? c_71 '#\\e)))" +"(if(let-values(((or-part_307)(char=? c_76 '#\\e)))" "(if or-part_307" " or-part_307" -"(let-values(((or-part_308)(char=? c_71 '#\\E)))" +"(let-values(((or-part_308)(char=? c_76 '#\\E)))" "(if or-part_308" " or-part_308" "(let-values(((or-part_309)" -"(char=? c_71 '#\\f)))" +"(char=? c_76 '#\\f)))" "(if or-part_309" " or-part_309" "(let-values(((or-part_181)" -"(char=? c_71 '#\\F)))" +"(char=? c_76 '#\\F)))" "(if or-part_181" " or-part_181" "(let-values(((or-part_310)" -"(char=? c_71 '#\\d)))" +"(char=? c_76 '#\\d)))" "(if or-part_310" " or-part_310" "(let-values(((or-part_311)" -"(char=? c_71 '#\\D)))" +"(char=? c_76 '#\\D)))" "(if or-part_311" " or-part_311" "(let-values(((or-part_312)" "(char=?" -" c_71" +" c_76" " '#\\s)))" "(if or-part_312" " or-part_312" "(let-values(((or-part_313)" "(char=?" -" c_71" +" c_76" " '#\\S)))" "(if or-part_313" " or-part_313" "(let-values(((or-part_314)" "(char=?" -" c_71" +" c_76" " '#\\l)))" "(if or-part_314" " or-part_314" "(let-values(((or-part_315)" "(char=?" -" c_71" +" c_76" " '#\\L)))" "(if or-part_315" " or-part_315" "(let-values(((or-part_316)" "(char=?" -" c_71" +" c_76" " '#\\t)))" "(if or-part_316" " or-part_316" "(char=?" -" c_71" +" c_76" " '#\\T)))))))))))))))))))))))" "(let-values()" "(if exp-pos_0" @@ -48623,7 +48658,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `~a` in `~.a`\"" -" c_71" +" c_76" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(if(if(<(add1 i_172) end_34)" @@ -48655,7 +48690,7 @@ static const char *startup_source = "(let-values(((or-part_318) exp-pos_0))" "(if or-part_318 or-part_318 i_172))" " must-i?_0)))))" -"(if(char=? c_71 '#\\@)" +"(if(char=? c_76 '#\\@)" "(let-values()" "(if(eq? in-complex_1 'i)" "(let-values()" @@ -48705,10 +48740,10 @@ static const char *startup_source = " #f" " must-i?_0)))))))" "(if(if(let-values(((or-part_320)" -"(char=? c_71 '#\\i)))" +"(char=? c_76 '#\\i)))" "(if or-part_320" " or-part_320" -"(char=? c_71 '#\\I)))" +"(char=? c_76 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" @@ -48748,7 +48783,7 @@ static const char *startup_source = " #f" " #f)))))" "(let-values()" -"(if(char=? c_71 '#\\nul)" +"(if(char=? c_76 '#\\nul)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -48757,7 +48792,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"bad digit `~a`\" c_71))" +" (format \"bad digit `~a`\" c_76))" "(let-values() #f))))))))))))))))))))" " loop_106)" " start_45" @@ -49118,8 +49153,8 @@ static const char *startup_source = "(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_72)(string-ref s_445 i_173)))" -"(if(char=? c_72 '#\\.)" +"(let-values(((c_77)(string-ref s_445 i_173)))" +"(if(char=? c_77 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" @@ -49129,21 +49164,21 @@ static const char *startup_source = "(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_72)" +"(string-set! new-str_0 j_3 c_77)" "(loop_107" "(sub1 i_173)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))" -"(if(let-values(((or-part_337)(char=? c_72 '#\\-)))" -"(if or-part_337 or-part_337(char=? c_72 '#\\+)))" +"(if(let-values(((or-part_337)(char=? c_77 '#\\-)))" +"(if or-part_337 or-part_337(char=? c_77 '#\\+)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_72)" +"(string-set! new-str_0 j_3 c_77)" "(loop_107" "(sub1 i_173)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))" -"(if(char=? c_72 '#\\#)" +"(if(char=? c_77 '#\\#)" "(let-values()" "(if(= hashes-pos_0(add1 i_173))" "(let-values()" @@ -49159,7 +49194,7 @@ static const char *startup_source = "(let-values() #f)))))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_72)" +"(string-set! new-str_0 j_3 c_77)" "(loop_107(sub1 i_173)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_107)" "(sub1 end_36)" @@ -49240,10 +49275,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_230)" +"(lambda(convert-mode_9 v_231)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_230))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_231))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -49268,19 +49303,19 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_231) v63_0))" +"(let-values(((v_232) v63_0))" "(let-values(((combine_1) combine64_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_231))" +" (let-values () (format \"no exact representation for `~a`\" v_232))" "(let-values() #f)))" -"(if(if(extflonum? v_231)" +"(if(if(extflonum? v_232)" "(let-values(((or-part_343)(not reading-first?_0)))" "(if or-part_343 or-part_343(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_231))" +"(let-values()(fail-extflonum convert-mode_10 v_232))" "(let-values()" "(let-values(((v2_7)" "(let-values(((temp180_0) #t)" @@ -49301,9 +49336,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_231)" -"(let-values()(fail-extflonum convert-mode_10 v_231))" -"(let-values()(combine_1 v_231 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_232)" +"(let-values()(fail-extflonum convert-mode_10 v_232))" +"(let-values()(combine_1 v_232 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_464 start_51 end_40)" @@ -49325,13 +49360,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_73)(string-ref v*_6 idx_5)))" +"(let-values(((c_78)(string-ref v*_6 idx_5)))" "(let-values(((result_114)" "(let-values()" "(let-values(((result_115)" -"(let-values()(let-values()(char=? c_73 '#\\#)))))" +"(let-values()(let-values()(char=? c_78 '#\\#)))))" "(values result_115)))))" -"(if(if(not((lambda x_83 result_114) c_73))(not #f) #f)" +"(if(if(not((lambda x_83 result_114) c_78))(not #f) #f)" "(for-loop_259 result_114(unsafe-fx+ idx_5 1))" " result_114)))" " result_113)))))" @@ -49365,16 +49400,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_74)(string-ref v*_7 idx_6))((i_174) pos_111))" +"(let-values(((c_79)(string-ref v*_7 idx_6))((i_174) pos_111))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(char=? c_74 '#\\#)" +"(if(char=? c_79 '#\\#)" "(string-set! new-s_7 i_174 '#\\0)" -"(string-set! new-s_7 i_174 c_74)))" +"(string-set! new-s_7 i_174 c_79)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_260(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" @@ -49395,23 +49430,23 @@ static const char *startup_source = "(let-values(((or-part_344)(eq? exactness_6 'exact)))(if or-part_344 or-part_344(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" -"(lambda(c_75)" -"(begin(let-values(((or-part_345)(char=? c_75 '#\\-)))(if or-part_345 or-part_345(char=? c_75 '#\\+))))))" +"(lambda(c_80)" +"(begin(let-values(((or-part_345)(char=? c_80 '#\\-)))(if or-part_345 or-part_345(char=? c_80 '#\\+))))))" "(define-values" "(digit?)" -"(lambda(c_76 radix_11)" +"(lambda(c_81 radix_11)" "(begin" -"(let-values(((v_232)(char->integer c_76)))" +"(let-values(((v_233)(char->integer c_81)))" "(let-values(((or-part_346)" -"(if(>= v_232(char->integer '#\\0))(<(- v_232(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_233(char->integer '#\\0))(<(- v_233(char->integer '#\\0)) radix_11) #f)))" "(if or-part_346" " or-part_346" "(if(> radix_11 10)" "(let-values(((or-part_347)" -"(if(>= v_232(char->integer '#\\a))(<(- v_232(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_233(char->integer '#\\a))(<(- v_233(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_347" " or-part_347" -"(if(>= v_232(char->integer '#\\A))(<(- v_232(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_233(char->integer '#\\A))(<(- v_233(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" @@ -49429,7 +49464,7 @@ static const char *startup_source = "(begin" " 'read-symbol-or-number8" "(let-values(((init-c_2) init-c5_0))" -"(let-values(((in_24) in6_0))" +"(let-values(((in_25) in6_0))" "(let-values(((config_24) config7_0))" "(let-values(((mode_17)(if mode3_0 mode1_0 'symbol-or-number)))" "(let-values(((extra-prefix_0)(if extra-prefix4_0 extra-prefix2_0 #f)))" @@ -49447,7 +49482,7 @@ static const char *startup_source = "(readtable-apply" " handler_2" " init-c_2" -" in_24" +" in_25" " config_24" "(read-config-line config_24)" "(read-config-col config_24)" @@ -49465,13 +49500,13 @@ static const char *startup_source = "(values))))" "(let-values(((source_17)(read-config-source config_24)))" "(let-values(((unexpected-quoted_0)" -"(lambda(c_77 after-c_0)" +"(lambda(c_82 after-c_0)" "(begin" " 'unexpected-quoted" -"(let-values(((c13_1) c_77)" +"(let-values(((c13_1) c_82)" " ((temp14_6) \"~a following `~a` in ~a\")" "((temp15_5)" -"(if(eof-object? c_77)" +"(if(eof-object? c_82)" " \"end-of-file\"" " \"non-character\"))" "((after-c16_0) after-c_0)" @@ -49488,68 +49523,75 @@ static const char *startup_source = " #t" " #f" " #f" -" in_24" +" in_25" " config_24" " temp14_6" "(list temp15_5 after-c16_0 temp17_2)))))))" "(let-values((()" "(begin" "((letrec-values(((loop_108)" -"(lambda(init-c_6" +"(lambda(init-c_5" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" -"(let-values(((c_78)" +"(let-values(((c_83)" "(let-values(((or-part_70)" -" init-c_6))" +" init-c_5))" "(if or-part_70" " or-part_70" -"(let-values(((in_22)" -" in_24)" +"(let-values(((in_23)" +" in_25)" "((skip-count_6)" " 0)" "((source_15)" " source_17))" +"(let-values(((c_52)" "(peek-char-or-special" -" in_22" +" in_23" " skip-count_6" -" special1.1" -" source_15))))))" +" 'special" +" source_15)))" +"(if(eq?" +" c_52" +" 'special)" +"(special1.1" +" 'special)" +" c_52)))))))" "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" -"((c_79) c_78))" -"(if(let-values(((or-part_165)" +"((c_46) c_83))" +"(if(let-values(((or-part_348)" "(not" " rt_12)))" -"(if or-part_165" -" or-part_165" +"(if or-part_348" +" or-part_348" "(not" -"(char? c_79))))" -"(let-values() c_79)" +"(char? c_46))))" +"(let-values() c_46)" "(let-values()" "(*readtable-effective-char" " rt_12" -" c_79))))))" +" c_46))))))" "(if(if pipe-quote-c_0" "(not(char? ec_4))" " #f)" "(let-values()" "(begin" -"(if init-c_6" +"(if init-c_5" "(void)" "(let-values()" "(consume-char/special" -" in_24" +" in_25" " config_24" -" c_78)))" +" c_83)))" "(unexpected-quoted_0" -" c_78" +" c_83" " pipe-quote-c_0)))" "(if(if(not pipe-quote-c_0)" "(readtable-char-delimiter?" " rt_11" -" c_78" +" c_83" " config_24)" " #f)" "(let-values()" @@ -49561,16 +49603,16 @@ static const char *startup_source = " string-foldcase" " foldcase-from_0))))" "(if(if pipe-quote-c_0" -"(char=? c_78 pipe-quote-c_0)" +"(char=? c_83 pipe-quote-c_0)" " #f)" "(let-values()" "(begin" -"(if init-c_6" +"(if init-c_5" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_78)))" +" in_25" +" c_83)))" "(loop_108" " #f" " #f" @@ -49583,12 +49625,12 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(if init-c_6" +"(if init-c_5" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_78)))" +" in_25" +" c_83)))" "(set! quoted-ever?_0 #t)" "(if case-sens?_0" "(void)" @@ -49599,7 +49641,7 @@ static const char *startup_source = " foldcase-from_0)))" "(loop_108" " #f" -" c_78" +" c_83" "(accum-string-count" " accum-str_1))))" "(if(if(char=? ec_4 '#\\\\)" @@ -49608,20 +49650,20 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if init-c_6" +"(if init-c_5" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_78)))" +" in_25" +" c_83)))" "(values))))" "(let-values(((next-c_0)" -"(let-values(((in_23)" -" in_24)" +"(let-values(((in_24)" +" in_25)" "((source_18)" " source_17))" "(read-char-or-special" -" in_23" +" in_24" " special1.1" " source_18))))" "(begin" @@ -49630,11 +49672,11 @@ static const char *startup_source = "(let-values()" "(unexpected-quoted_0" " next-c_0" -" c_78)))" -"(if(let-values(((or-part_31)" +" c_83)))" +"(if(let-values(((or-part_32)" " pipe-quote-c_0))" -"(if or-part_31" -" or-part_31" +"(if or-part_32" +" or-part_32" " case-sens?_0))" "(void)" "(let-values()" @@ -49654,15 +49696,15 @@ static const char *startup_source = " accum-str_1))))))" "(let-values()" "(begin" -"(if init-c_6" +"(if init-c_5" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_78)))" +" in_25" +" c_83)))" "(accum-string-add!" " accum-str_1" -" c_78)" +" c_83)" "(loop_108" " #f" " pipe-quote-c_0" @@ -49686,7 +49728,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(let-values(((in20_1) in_24)" +"(let-values(((in20_1) in_25)" "((config21_0) config_24)" " ((temp22_5) \"illegal use of `.`\"))" "(reader-error10.1" @@ -49703,9 +49745,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_9)" +"(if(let-values(((or-part_349)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_9 or-part_9(string? mode_17)))" +"(if or-part_349 or-part_349(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -49721,7 +49763,7 @@ static const char *startup_source = "(begin" "(if(string? num_0)" "(let-values()" -"(let-values(((in23_0) in_24)" +"(let-values(((in23_0) in_25)" "((config24_0) config_24)" " ((temp25_6) \"~a\")" "((num26_0) num_0))" @@ -49739,7 +49781,7 @@ static const char *startup_source = "(void))" "(if(if(not num_0)(string? mode_17) #f)" "(let-values()" -"(let-values(((in27_0) in_24)" +"(let-values(((in27_0) in_25)" "((config28_0) config_24)" " ((temp29_2) \"bad number: `~a`\")" "((temp30_4)(string-append mode_17 str_29)))" @@ -49756,15 +49798,15 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_33) num_0))" -"(if or-part_33" -" or-part_33" -"(let-values(((or-part_298)" +"(let-values(((or-part_298) num_0))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_287)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_298 or-part_298(string->symbol str_29)))))" -" in_24" +"(if or-part_287 or-part_287(string->symbol str_29)))))" +" in_25" " config_24" " str_29)))))))))))))))))))))))))" "(define-values" @@ -49786,29 +49828,29 @@ static const char *startup_source = "(reader-error10.1 #f #f #f #f #f #f in1_0 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" -"(lambda(read-one_4 init-c_7 in_25 config_37)" +"(lambda(read-one_4 init-c_6 in_26 config_37)" "(begin" -"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_7 read-one_4 in_25 config_37)))" -"(let-values(((line_9 col_8 pos_92)(port-next-location* in_25 c_14)))" -" (let-values (((v_29) (read-number-literal c_14 in_25 config_37 \"#i\")))" +"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_6 read-one_4 in_26 config_37)))" +"(let-values(((line_9 col_8 pos_92)(port-next-location* in_26 c_14)))" +" (let-values (((v_29) (read-number-literal c_14 in_26 config_37 \"#i\")))" "(if(flonum? v_29)" "(let-values() v_29)" "(if(eof-object? v_29)" "(let-values() v_29)" "(let-values()" -"(let-values(((in5_0) in_25)" +"(let-values(((in5_0) in_26)" "((temp6_2)(reading-at config_37 line_9 col_8 pos_92))" " ((temp7_3) \"expected a flonum, found ~a\")" "((v8_0) v_29))" "(reader-error10.1 #f #f #f #f #f #f in5_0 temp6_2 temp7_3(list v8_0))))))))))))" "(define-values" "(read-number-literal)" -"(lambda(c_80 in_26 config_38 mode_18)" +"(lambda(c_84 in_27 config_38 mode_18)" "(begin" -"(if(not(char? c_80))" -"(let-values() c_80)" +"(if(not(char? c_84))" +"(let-values() c_84)" "(let-values()" -"(let-values(((mode12_0) mode_18))(read-symbol-or-number8.1 #f #f mode12_0 #t c_80 in_26 config_38)))))))" +"(let-values(((mode12_0) mode_18))(read-symbol-or-number8.1 #f #f mode12_0 #t c_84 in_27 config_38)))))))" "(define-values" "(read-vector11.1)" "(lambda(length2_0 length4_0 mode1_0 mode3_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_1 config10_0)" @@ -49818,7 +49860,7 @@ static const char *startup_source = "(let-values(((opener-c_1) opener-c6_0))" "(let-values(((opener_2) opener7_0))" "(let-values(((closer_2) closer8_0))" -"(let-values(((in_27) in9_1))" +"(let-values(((in_28) in9_1))" "(let-values(((config_39) config10_0))" "(let-values(((vector-mode_0)(if mode3_0 mode1_0 'any)))" "(let-values(((expected-len_0)(if length4_0 length2_0 #f)))" @@ -49829,16 +49871,16 @@ static const char *startup_source = "(let-values() read-one_5)" "(if(equal? tmp_31 'fixnum)" "(let-values()" -"(lambda(init-c_8 in_28 config_40)" +"(lambda(init-c_7 in_29 config_40)" "(begin" " 'read-one-element" -"(read-fixnum read-one_5 init-c_8 in_28 config_40))))" +"(read-fixnum read-one_5 init-c_7 in_29 config_40))))" "(if(equal? tmp_31 'flonum)" "(let-values()" -"(lambda(init-c_9 in_29 config_41)" +"(lambda(init-c_8 in_30 config_41)" "(begin" " 'read-one-element" -"(read-flonum read-one_5 init-c_9 in_29 config_41))))" +"(read-flonum read-one_5 init-c_8 in_30 config_41))))" "(let-values()(void))))))))" "(let-values(((seq_2)" "(let-values(((read-one20_0) read-one_5)((temp21_1) #f))" @@ -49857,7 +49899,7 @@ static const char *startup_source = " opener-c_1" " opener_2" " closer_2" -" in_27" +" in_28" " config_39))))" "(let-values(((vec_64)" "(if(not expected-len_0)" @@ -49951,7 +49993,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_233)(make-flvector len_38 fill_1)))" +"(let-values(((v_234)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -49985,7 +50027,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_233" +" v_234" " i_177" " elem_1)" "(not-an-fX.1$1" @@ -50012,7 +50054,7 @@ static const char *startup_source = " for-loop_261)" " 0" " lst_78)))))" -" v_233))))))" +" v_234))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -50020,7 +50062,7 @@ static const char *startup_source = "(let-values()(list->vector seq_2))" "(if(< expected-len_0 len_39)" "(let-values()" -"(let-values(((in22_0) in_27)" +"(let-values(((in22_0) in_28)" "((config23_0) config_39)" "((temp24_7)" " \"~avector length ~a is too small, ~a values provided\")" @@ -50048,11 +50090,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_234)" +"(lambda(v_235)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_234 in_27 config_39 #f)" +"(wrap v_235 in_28 config_39 #f)" "((letrec-values(((loop_109)" "(lambda(seq_3)" "(begin" @@ -50253,18 +50295,18 @@ static const char *startup_source = "(void)))" "(let-values()(void))))))" " vec_65))))))))))))" -"(wrap vec_64 in_27 config_39 opener_2))))))))))))))))" +"(wrap vec_64 in_28 config_39 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" -"(lambda(read-one_6 dispatch-c_0 c_81 c2_4 in_30 config_42)" +"(lambda(read-one_6 dispatch-c_0 c_85 c2_4 in_31 config_42)" "(begin" "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))" -"(let-values((()(begin(consume-char in_30 c2_4)(values))))" +"(let-values((()(begin(consume-char in_31 c2_4)(values))))" "(let-values((()" "(begin" "(if(read-config-for-syntax? config_42)" "(let-values()" -"(let-values(((in28_0) in_30)" +"(let-values(((in28_0) in_31)" "((config29_0) config_42)" " ((temp30_5) \"literal f~avectors not allowed\")" "((c231_0) c2_4))" @@ -50272,11 +50314,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((c3_2)" -"(let-values(((in_31) in_30)((source_19)(read-config-source config_42)))" -"(read-char-or-special in_31 special1.1 source_19))))" +"(let-values(((in_32) in_31)((source_19)(read-config-source config_42)))" +"(read-char-or-special in_32 special1.1 source_19))))" "(let-values(((vector-len_0 len-str_0 c4_1)" "(if(decimal-digit? c3_2)" -"(let-values()(read-simple-number in_30 config_42 c3_2))" +"(let-values()(read-simple-number in_31 config_42 c3_2))" " (let-values () (values #f \"\" c3_2)))))" "(let-values(((tmp_46) c4_1))" "(if(equal? tmp_46 '#\\()" @@ -50284,7 +50326,7 @@ static const char *startup_source = "(let-values(((temp33_3) '#\\()" "((temp34_1) '#\\()" "((temp35_2) '#\\))" -"((in36_0) in_30)" +"((in36_0) in_31)" "((config37_0) config_42)" "((vector-mode38_0) vector-mode_1)" "((vector-len39_0) vector-len_0))" @@ -50306,7 +50348,7 @@ static const char *startup_source = "(let-values(((temp41_3) '#\\[)" "((temp42_2) '#\\[)" "((temp43_2) '#\\])" -"((in44_0) in_30)" +"((in44_0) in_31)" "((config45_0) config_42)" "((vector-mode46_0) vector-mode_1)" "((vector-len47_0) vector-len_0))" @@ -50322,9 +50364,9 @@ static const char *startup_source = " in44_0" " config45_0)))" "(let-values()" -"(let-values(((in48_0) in_30)" +"(let-values(((in48_0) in_31)" "((config49_0) config_42)" -" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_81 c2_4))))" +" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" "(bad-syntax-error18.1 #f #f in48_0 config49_0 temp50_2)))))" "(if(equal? tmp_46 '#\\{)" "(let-values()" @@ -50333,7 +50375,7 @@ static const char *startup_source = "(let-values(((temp52_3) '#\\{)" "((temp53_3) '#\\{)" "((temp54_3) '#\\})" -"((in55_0) in_30)" +"((in55_0) in_31)" "((config56_0) config_42)" "((vector-mode57_0) vector-mode_1)" "((vector-len58_0) vector-len_0))" @@ -50349,14 +50391,14 @@ static const char *startup_source = " in55_0" " config56_0)))" "(let-values()" -"(let-values(((in59_0) in_30)" +"(let-values(((in59_0) in_31)" "((config60_0) config_42)" -" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_81 c2_4))))" +" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" "(bad-syntax-error18.1 #f #f in59_0 config60_0 temp61_2)))))" "(let-values()" "(let-values(((c464_0) c4_1)" " ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" -"((c66_0) c_81)" +"((c66_0) c_85)" "((c267_0) c2_4)" "((len-str68_0) len-str_0))" "(reader-error10.1" @@ -50366,18 +50408,18 @@ static const char *startup_source = " #t" " #f" " #f" -" in_30" +" in_31" " config_42" " temp65_2" "(list c66_0 c267_0 len-str68_0))))))))))))))))" "(define-values" "(read-simple-number)" -"(lambda(in_32 config_43 init-c_10)" +"(lambda(in_33 config_43 init-c_9)" "(begin" "(let-values(((accum-str_2)(accum-string-init! config_43)))" -"(let-values((()(begin(accum-string-add! accum-str_2 init-c_10)(values))))" -"(let-values(((init-v_1)(digit->number init-c_10)))" -"(let-values(((v_235)" +"(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" +"(let-values(((init-v_1)(digit->number init-c_9)))" +"(let-values(((v_236)" "(let-values(((temp72_0) 10)" "((temp73_1) +inf.0)" "((init-v74_0) init-v_1)" @@ -50389,23 +50431,23 @@ static const char *startup_source = " temp73_1" " init-v75_0" " #t" -" in_32" +" in_33" " config_43" " accum-str_2" " #t))))" "(values" -" v_235" +" v_236" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" -"(let-values(((in_33) in_32)((source_20)(read-config-source config_43)))" -"(read-char-or-special in_33 special1.1 source_20))))))))))" +"(let-values(((in_34) in_33)((source_20)(read-config-source config_43)))" +"(read-char-or-special in_34 special1.1 source_20))))))))))" "(define-values" "(read-struct)" "(lambda(read-one_3 dispatch-c_1 in_5 config_15)" "(begin" "(let-values(((c_33)" -"(let-values(((in_28) in_5)((source_21)(read-config-source config_15)))" -"(read-char-or-special in_28 special1.1 source_21))))" +"(let-values(((in_29) in_5)((source_21)(read-config-source config_15)))" +"(read-char-or-special in_29 special1.1 source_21))))" "(let-values(((ec_5)(effective-char c_33 config_15)))" "(let-values(((seq_4)" "(let-values(((tmp_47) ec_5))" @@ -50527,10 +50569,10 @@ static const char *startup_source = "(wrap(apply make-prefab-struct seq_4) in_5 config_15 ec_5)))))))))))" "(define-values" "(read-struct-sequence)" -"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_16 config_20)" +"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_35 config_44)" "(begin" "(let-values(((temp36_4)" -"(lambda(init-c_11 in_34 config_44)(read-one_7 init-c_11 in_34(disable-wrapping config_44)))))" +"(lambda(init-c_10 in_17 config_20)(read-one_7 init-c_10 in_17(disable-wrapping config_20)))))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -50546,15 +50588,15 @@ static const char *startup_source = " opener-c_2" " opener_3" " closer_3" -" in_16" -" config_20)))))" +" in_35" +" config_44)))))" "(define-values" "(read-vector-or-graph)" -"(lambda(read-one_3 dispatch-c_1 init-c_12 in_35 config_45)" +"(lambda(read-one_3 dispatch-c_1 init-c_11 in_36 config_45)" "(begin" "(let-values(((accum-str_3)(accum-string-init! config_45)))" -"(let-values((()(begin(accum-string-add! accum-str_3 init-c_12)(values))))" -"(let-values(((init-v_2)(digit->number init-c_12)))" +"(let-values((()(begin(accum-string-add! accum-str_3 init-c_11)(values))))" +"(let-values(((init-v_2)(digit->number init-c_11)))" "(let-values(((v_28)" "(let-values(((temp4_4) 10)((temp5_7) +inf.0)((init-v6_0) init-v_2)((init-v7_0) init-v_2))" "(read-digits13.1" @@ -50564,13 +50606,13 @@ static const char *startup_source = " temp5_7" " init-v7_0" " #t" -" in_35" +" in_36" " config_45" " accum-str_3" " #t))))" -"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_35)))" +"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_36)))" "(let-values(((get-accum_0)" -"(lambda(c_67)" +"(lambda(c_69)" "(begin" " 'get-accum" "(format" @@ -50578,11 +50620,11 @@ static const char *startup_source = " dispatch-c_1" "(let-values(((accum-str8_0) accum-str_3)((config9_0) config_45))" "(accum-string-get!6.1 #f #f accum-str8_0 config9_0))" -" c_67)))))" -"(let-values(((c_82)" -"(let-values(((in_36) in_35)((source_9)(read-config-source config_45)))" -"(read-char-or-special in_36 special1.1 source_9))))" -"(let-values(((ec_6)(effective-char c_82 config_45)))" +" c_69)))))" +"(let-values(((c_86)" +"(let-values(((in_37) in_36)((source_22)(read-config-source config_45)))" +"(read-char-or-special in_37 special1.1 source_22))))" +"(let-values(((ec_6)(effective-char c_86 config_45)))" "(let-values(((tmp_48) ec_6))" "(if(equal? tmp_48 '#\\()" "(let-values()" @@ -50590,10 +50632,10 @@ static const char *startup_source = "(accum-string-abandon! accum-str_3 config_45)" "(let-values(((temp12_4) '#\\()" "((temp13_2) '#\\))" -"((in14_0) in_35)" +"((in14_0) in_36)" "((config15_0) config_45)" "((v16_0) v_28))" -"(read-vector11.1 v16_0 #t #f #f read-one_3 c_82 temp12_4 temp13_2 in14_0 config15_0))))" +"(read-vector11.1 v16_0 #t #f #f read-one_3 c_86 temp12_4 temp13_2 in14_0 config15_0))))" "(if(equal? tmp_48 '#\\[)" "(let-values()" "(begin" @@ -50602,7 +50644,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp19_1) '#\\[)" "((temp20_2) '#\\])" -"((in21_1) in_35)" +"((in21_1) in_36)" "((config22_0) config_45)" "((v23_0) v_28))" "(read-vector11.1" @@ -50611,15 +50653,15 @@ static const char *startup_source = " #f" " #f" " read-one_3" -" c_82" +" c_86" " temp19_1" " temp20_2" " in21_1" " config22_0)))" "(let-values()" -"(let-values(((in24_0) in_35)" +"(let-values(((in24_0) in_36)" "((config25_0) config_45)" -"((temp26_5)(get-accum_0(get-accum_0 c_82))))" +"((temp26_5)(get-accum_0(get-accum_0 c_86))))" "(bad-syntax-error18.1 #f #f in24_0 config25_0 temp26_5))))))" "(if(equal? tmp_48 '#\\{)" "(let-values()" @@ -50629,7 +50671,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp29_3) '#\\{)" "((temp30_6) '#\\})" -"((in31_1) in_35)" +"((in31_1) in_36)" "((config32_0) config_45)" "((v33_0) v_28))" "(read-vector11.1" @@ -50638,18 +50680,18 @@ static const char *startup_source = " #f" " #f" " read-one_3" -" c_82" +" c_86" " temp29_3" " temp30_6" " in31_1" " config32_0)))" "(let-values()" -"(let-values(((in34_0) in_35)" +"(let-values(((in34_0) in_36)" "((config35_0) config_45)" -"((temp36_5)(get-accum_0(get-accum_0 c_82))))" +"((temp36_5)(get-accum_0(get-accum_0 c_86))))" "(bad-syntax-error18.1 #f #f in34_0 config35_0 temp36_5))))))" "(let-values()" -"(let-values(((tmp_6) c_82))" +"(let-values(((tmp_6) c_86))" "(if(if(equal? tmp_6 '#\\=) #t(equal? tmp_6 '#\\#))" "(let-values()" "(begin" @@ -50658,10 +50700,10 @@ static const char *startup_source = " or-part_287" "(not(check-parameter 1/read-accept-graph config_45))))" "(let-values()" -"(let-values(((in37_0) in_35)" +"(let-values(((in37_0) in_36)" "((config38_0) config_45)" " ((temp39_6) \"`#...~a` forms not ~a\")" -"((c40_0) c_82)" +"((c40_0) c_86)" "((temp41_4)" "(if(read-config-for-syntax? config_45)" " \"enabled\"" @@ -50681,7 +50723,7 @@ static const char *startup_source = "(if(<=(accum-string-count accum-str_3) 8)" "(void)" "(let-values()" -"(let-values(((in42_0) in_35)" +"(let-values(((in42_0) in_36)" "((config43_0) config_45)" " ((temp44_2) \"graph ID too long in `~a~a~a`\")" "((dispatch-c45_0) dispatch-c_1)" @@ -50689,7 +50731,7 @@ static const char *startup_source = "(let-values(((accum-str48_0) accum-str_3)" "((config49_1) config_45))" "(accum-string-get!6.1 #f #f accum-str48_0 config49_1)))" -"((c47_0) c_82))" +"((c47_0) c_86))" "(reader-error10.1" " #f" " #f" @@ -50701,7 +50743,7 @@ static const char *startup_source = " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" -"(let-values(((tmp_49) c_82))" +"(let-values(((tmp_49) c_86))" "(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" @@ -50710,7 +50752,7 @@ static const char *startup_source = "(begin" "(if(hash-ref ht_152 v_28 #f)" "(let-values()" -"(let-values(((in50_0) in_35)" +"(let-values(((in50_0) in_36)" "((config51_0) config_45)" " ((temp52_4) \"multiple `~a~a~a` tags\")" "((dispatch-c53_0) dispatch-c_1)" @@ -50724,7 +50766,7 @@ static const char *startup_source = " #f" " accum-str56_0" " config57_0)))" -"((c55_0) c_82))" +"((c55_0) c_86))" "(reader-error10.1" " #f" " #f" @@ -50740,7 +50782,7 @@ static const char *startup_source = "(values))))" "(let-values((()(begin(hash-set! ht_152 v_28 ph_1)(values))))" "(let-values(((result-v_0)" -"(read-one_3 #f in_35(next-readtable config_45))))" +"(read-one_3 #f in_36(next-readtable config_45))))" "(begin" "(if(eof-object? result-v_0)" "(let-values()" @@ -50756,7 +50798,7 @@ static const char *startup_source = " #f" " accum-str65_0" " config66_0)))" -"((c64_0) c_82))" +"((c64_0) c_86))" "(reader-error10.1" " #f" " #f" @@ -50764,7 +50806,7 @@ static const char *startup_source = " #t" " #f" " #f" -" in_35" +" in_36" " config_45" " temp61_3" "(list dispatch-c62_0 temp63_2 c64_0))))" @@ -50781,7 +50823,7 @@ static const char *startup_source = "(if or-part_227 or-part_227 '#hash()))" " v_28" "(lambda()" -"(let-values(((in67_0) in_35)" +"(let-values(((in67_0) in_36)" "((config68_0) config_45)" " ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")" "((dispatch-c70_0) dispatch-c_1)" @@ -50795,7 +50837,7 @@ static const char *startup_source = " #f" " accum-str75_0" " config76_0)))" -"((c74_0) c_82))" +"((c74_0) c_86))" "(reader-error10.1" " #f" " #f" @@ -50810,9 +50852,9 @@ static const char *startup_source = "(accum-string-abandon! accum-str_3 config_45)))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((c79_0) c_82)" +"(let-values(((c79_0) c_86)" " ((temp80_3) \"bad syntax `~a`\")" -"((temp81_2)(get-accum_0 c_82)))" +"((temp81_2)(get-accum_0 c_86)))" "(reader-error10.1" " #f" " #f" @@ -50820,7 +50862,7 @@ static const char *startup_source = " #t" " #f" " #f" -" in_35" +" in_36" " config_45" " temp80_3" "(list temp81_2))))))))))))))))))))))" @@ -50841,24 +50883,24 @@ static const char *startup_source = "((read-config-coerce-key config_8) for-syntax?_7 key_85)))))" "(define-values" "(read-hash)" -"(lambda(read-one_3 dispatch-c_1 init-c_12 in_35 config_45)" +"(lambda(read-one_3 dispatch-c_1 init-c_11 in_36 config_45)" "(begin" "(let-values(((accum-str_3)(accum-string-init! config_45)))" "(let-values((()(begin(accum-string-add! accum-str_3 dispatch-c_1)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_3 init-c_12)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_3 init-c_11)(values))))" "(let-values(((get-next!_0)" "(lambda(expect-c_0 expect-alt-c_0)" "(begin" " 'get-next!" -"(let-values(((c_83)" -"(let-values(((in_27) in_35)((source_22)(read-config-source config_45)))" -"(read-char-or-special in_27 special1.1 source_22))))" +"(let-values(((c_87)" +"(let-values(((in_28) in_36)((source_23)(read-config-source config_45)))" +"(read-char-or-special in_28 special1.1 source_23))))" "(begin" -"(if(let-values(((or-part_6)(eqv? c_83 expect-c_0)))" -"(if or-part_6 or-part_6(eqv? c_83 expect-alt-c_0)))" +"(if(let-values(((or-part_6)(eqv? c_87 expect-c_0)))" +"(if or-part_6 or-part_6(eqv? c_87 expect-alt-c_0)))" "(void)" "(let-values()" -"(let-values(((c3_3) c_83)" +"(let-values(((c3_3) c_87)" " ((temp4_5) \"expected `~a` after `~a`\")" "((expect-c5_0) expect-c_0)" "((temp6_0)" @@ -50871,11 +50913,11 @@ static const char *startup_source = " #t" " #f" " #f" -" in_35" +" in_36" " config_45" " temp4_5" "(list expect-c5_0 temp6_0)))))" -"(accum-string-add! accum-str_3 c_83)))))))" +"(accum-string-add! accum-str_3 c_87)))))))" "(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))" "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" @@ -50884,27 +50926,27 @@ static const char *startup_source = "(lambda(mode_3)" "(begin" " 'loop" -"(let-values(((c_80)" -"(let-values(((in_6) in_35)" -"((source_23)" +"(let-values(((c_84)" +"(let-values(((in_6) in_36)" +"((source_24)" "(read-config-source config_45)))" "(read-char-or-special" " in_6" " special1.1" -" source_23))))" -"(let-values(((ec_7)(effective-char c_80 config_45)))" +" source_24))))" +"(let-values(((ec_7)(effective-char c_84 config_45)))" "(let-values(((tmp_50) ec_7))" "(if(equal? tmp_50 '#\\()" "(let-values()" "(let-values(((read-one-key+value_0)" "(make-read-one-key+value" " read-one_3" -" c_80" +" c_84" " '#\\))))" "(values" "(let-values(((temp11_3) '#\\()" "((temp12_5) '#\\))" -"((in13_0) in_35)" +"((in13_0) in_36)" "((config14_0) config_45)" "((config15_1) config_45)" "((temp16_6) #f))" @@ -50920,7 +50962,7 @@ static const char *startup_source = " #f" " #f" " read-one-key+value_0" -" c_80" +" c_84" " temp11_3" " temp12_5" " in13_0" @@ -50936,12 +50978,12 @@ static const char *startup_source = "(let-values(((read-one-key+value_1)" "(make-read-one-key+value" " read-one_3" -" c_80" +" c_84" " '#\\])))" "(values" "(let-values(((temp19_2) '#\\[)" "((temp20_3) '#\\])" -"((in21_2) in_35)" +"((in21_2) in_36)" "((config22_1) config_45)" "((config23_2) config_45)" "((temp24_9) #f))" @@ -50957,7 +50999,7 @@ static const char *startup_source = " #f" " #f" " read-one-key+value_1" -" c_80" +" c_84" " temp19_2" " temp20_3" " in21_2" @@ -50965,10 +51007,10 @@ static const char *startup_source = " ec_7" " mode_3)))" "(let-values()" -"(let-values(((in25_0) in_35)" +"(let-values(((in25_0) in_36)" "((config26_0) config_45)" " ((temp27_6) \"illegal use of `~a`\")" -"((c28_0) c_80))" +"((c28_0) c_84))" "(reader-error10.1" " #f" " #f" @@ -50989,12 +51031,12 @@ static const char *startup_source = "(let-values(((read-one-key+value_2)" "(make-read-one-key+value" " read-one_3" -" c_80" +" c_84" " '#\\})))" "(values" "(let-values(((temp31_6) '#\\{)" "((temp32_3) '#\\})" -"((in33_0) in_35)" +"((in33_0) in_36)" "((config34_0) config_45)" "((config35_1) config_45)" "((temp36_0) #f))" @@ -51010,7 +51052,7 @@ static const char *startup_source = " #f" " #f" " read-one-key+value_2" -" c_80" +" c_84" " temp31_6" " temp32_3" " in33_0" @@ -51018,11 +51060,11 @@ static const char *startup_source = " ec_7" " mode_3)))" "(let-values()" -"(let-values(((in37_1) in_35)" +"(let-values(((in37_1) in_36)" "((config38_1) config_45)" "((temp39_7)" " \"illegal use of `~a`\")" -"((c40_1) c_80))" +"((c40_1) c_84))" "(reader-error10.1" " #f" " #f" @@ -51039,7 +51081,7 @@ static const char *startup_source = "(equal? tmp_50 '#\\E))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_80)" +"(accum-string-add! accum-str_3 c_84)" "(get-next!_0 '#\\q '#\\Q)" "(loop_110 'eq)))" "(if(if(equal? tmp_50 '#\\v)" @@ -51047,10 +51089,10 @@ static const char *startup_source = "(equal? tmp_50 '#\\V))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_80)" +"(accum-string-add! accum-str_3 c_84)" "(if(eq? mode_3 'eq)" "(loop_110 'eqv)" -"(let-values(((in41_0) in_35)" +"(let-values(((in41_0) in_36)" "((config42_0) config_45)" "((temp43_3)" " \"bad syntax `~a`\")" @@ -51077,11 +51119,11 @@ static const char *startup_source = "(list temp44_3))))))" "(let-values()" "(begin" -"(if(char? c_80)" +"(if(char? c_84)" "(let-values()" -"(accum-string-add! accum-str_3 c_80))" +"(accum-string-add! accum-str_3 c_84))" "(void))" -"(let-values(((c49_0) c_80)" +"(let-values(((c49_0) c_84)" " ((temp50_3) \"bad syntax `~a`\")" "((temp51_2)" "(let-values(((accum-str52_0)" @@ -51100,7 +51142,7 @@ static const char *startup_source = " #t" " #f" " #f" -" in_35" +" in_36" " config_45" " temp50_3" "(list temp51_2)))))))))))))))))" @@ -51121,17 +51163,17 @@ static const char *startup_source = "(make-hasheqv-placeholder content_10)" "(make-immutable-hasheqv content_10)))" "(let-values()(void))))))" -" in_35" +" in_36" " config_45" " opener_4)))))))))))))" "(define-values" "(make-read-one-key+value)" "(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0)" "(begin" -"(lambda(init-c_13 in_37 config_47)" -"(let-values(((c_84)(read-char/skip-whitespace-and-comments init-c_13 read-one_8 in_37 config_47)))" -"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_37 c_84)))" -"(let-values(((ec_8)(effective-char c_84 config_47)))" +"(lambda(init-c_12 in_38 config_47)" +"(let-values(((c_88)(read-char/skip-whitespace-and-comments init-c_12 read-one_8 in_38 config_47)))" +"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_38 c_88)))" +"(let-values(((ec_8)(effective-char c_88 config_47)))" "(let-values(((elem-config_1)(next-readtable config_47)))" "(let-values(((closer_4)" "(let-values(((tmp_51) ec_8))" @@ -51146,10 +51188,10 @@ static const char *startup_source = "(let-values() #f)))))))" "(if(not closer_4)" "(let-values()" -"(if(eof-object? c_84)" +"(if(eof-object? c_88)" "(let-values()" "(let-values(((temp55_2)(reading-at config_47 open-line_0 open-col_0 open-pos_0))" -"((c56_0) c_84)" +"((c56_0) c_88)" " ((temp57_1) \"expected ~a to close `~a`\")" "((temp58_3)(closer-name overall-closer-ec_0 config_47))" "((overall-opener-c59_0) overall-opener-c_0))" @@ -51160,27 +51202,27 @@ static const char *startup_source = " #t" " #f" " #f" -" in_37" +" in_38" " temp55_2" " temp57_1" "(list temp58_3 overall-opener-c59_0))))" "(if(char-closer? ec_8 config_47)" "(let-values()" -"(let-values(((in60_0) in_37)" +"(let-values(((in60_0) in_38)" "((temp61_4)(reading-at config_47 open-line_0 open-col_0 open-pos_0))" " ((temp62_1) \"~a\")" -"((temp63_3)(indentation-unexpected-closer-message ec_8 c_84 config_47)))" +"((temp63_3)(indentation-unexpected-closer-message ec_8 c_88 config_47)))" "(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_1(list temp63_3))))" "(let-values()" -"(let-values(((v_89)(read-one_8 c_84 in_37(keep-comment elem-config_1))))" +"(let-values(((v_89)(read-one_8 c_88 in_38(keep-comment elem-config_1))))" "(if(1/special-comment? v_89)" "(let-values()" "((make-read-one-key+value read-one_8 overall-opener-c_0 overall-closer-ec_0)" " #f" -" in_37" +" in_38" " config_47))" "(let-values()" -"(let-values(((in64_0) in_37)" +"(let-values(((in64_0) in_38)" "((temp65_3)(reading-at config_47 open-line_0 open-col_0 open-pos_0))" " ((temp66_3) \"expected ~a to start a hash pair\")" "((temp67_1)(all-openers-str config_47)))" @@ -51196,18 +51238,24 @@ static const char *startup_source = " temp66_3" "(list temp67_1))))))))))" "(let-values()" -"(let-values(((k_40)(read-one_8 #f in_37(disable-wrapping elem-config_1))))" -"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_37 config_47)))" -"(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_37 dot-c_0)))" +"(let-values(((k_40)(read-one_8 #f in_38(disable-wrapping elem-config_1))))" +"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_38 config_47)))" +"(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_38 dot-c_0)))" "(let-values(((dot-ec_0)(effective-char dot-c_0 config_47)))" "(let-values((()" "(begin" "(if(if(eqv? dot-ec_0 '#\\.)" "(char-delimiter?" -"(let-values(((in_38) in_37)" +"(let-values(((in_39) in_38)" "((skip-count_8) 0)" -"((source_24)(read-config-source config_47)))" -"(peek-char-or-special in_38 skip-count_8 special1.1 source_24))" +"((source_25)(read-config-source config_47)))" +"(let-values(((c_89)" +"(peek-char-or-special" +" in_39" +" skip-count_8" +" 'special" +" source_25)))" +"(if(eq? c_89 'special)(special1.1 'special) c_89)))" " config_47)" " #f)" "(void)" @@ -51224,16 +51272,16 @@ static const char *startup_source = " #t" " #f" " #f" -" in_37" +" in_38" " temp69_2" " temp71_1" "(list temp72_1)))))" "(values))))" -"(let-values(((v_236)(read-one_8 #f in_37 elem-config_1)))" +"(let-values(((v_237)(read-one_8 #f in_38 elem-config_1)))" "(let-values(((closer-c_0)" -"(read-char/skip-whitespace-and-comments #f read-one_8 in_37 config_47)))" +"(read-char/skip-whitespace-and-comments #f read-one_8 in_38 config_47)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" -"(port-next-location* in_37 closer-c_0)))" +"(port-next-location* in_38 closer-c_0)))" "(let-values(((closer-ec_0)(effective-char closer-c_0 config_47)))" "(begin" "(if(eqv? closer-ec_0 closer_4)" @@ -51255,32 +51303,32 @@ static const char *startup_source = " #t" " #f" " #f" -" in_37" +" in_38" " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_236))))))))))))))))))))))" +"(cons(coerce-key k_40 elem-config_1) v_237))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" "(begin" " 'read-string5" -"(let-values(((in_39) in3_0))" +"(let-values(((in_40) in3_0))" "(let-values(((config_22) config4_0))" "(let-values(((mode_0)(if mode2_0 mode1_1 'string)))" "(let-values()" -"(let-values(((source_25)(read-config-source config_22)))" +"(let-values(((source_26)(read-config-source config_22)))" "(let-values(((accum-str_4)(accum-string-init! config_22)))" "(let-values(((bad-end_0)" -"(lambda(c_85)" +"(lambda(c_90)" "(begin" " 'bad-end" -"(if(eof-object? c_85)" +"(if(eof-object? c_90)" "(let-values()" -" (let-values (((c10_1) c_85) ((temp11_4) \"expected a closing `\\\"`\"))" -"(reader-error10.1 #f #f c10_1 #t #f #f in_39 config_22 temp11_4(list))))" +" (let-values (((c10_1) c_90) ((temp11_4) \"expected a closing `\\\"`\"))" +"(reader-error10.1 #f #f c10_1 #t #f #f in_40 config_22 temp11_4(list))))" "(let-values()" -"(let-values(((c14_0) c_85)" +"(let-values(((c14_0) c_90)" " ((temp15_6) \"found non-character while reading a ~a\")" "((mode16_0) mode_0))" "(reader-error10.1" @@ -51290,7 +51338,7 @@ static const char *startup_source = " #t" " #f" " #f" -" in_39" +" in_40" " config_22" " temp15_6" "(list mode16_0)))))))))" @@ -51300,24 +51348,24 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((c_86)" -"(let-values(((in_40) in_39)" -"((source_26) source_25))" -"(read-char-or-special" -" in_40" -" special1.1" -" source_26))))" -"(if(not(char? c_86))" -"(let-values()(bad-end_0 c_86))" -"(if(char=? '#\\\\ c_86)" -"(let-values()" -"(let-values(((escaping-c_0) c_86))" -"(let-values(((escaped-c_0)" -"(let-values(((in_41) in_39)" -"((source_6) source_25))" +"(let-values(((c_91)" +"(let-values(((in_41) in_40)" +"((source_27) source_26))" "(read-char-or-special" " in_41" " special1.1" +" source_27))))" +"(if(not(char? c_91))" +"(let-values()(bad-end_0 c_91))" +"(if(char=? '#\\\\ c_91)" +"(let-values()" +"(let-values(((escaping-c_0) c_91))" +"(let-values(((escaped-c_0)" +"(let-values(((in_42) in_40)" +"((source_6) source_26))" +"(read-char-or-special" +" in_42" +" special1.1" " source_6))))" "(let-values((()" "(begin" @@ -51330,7 +51378,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'unknown-error" -"(let-values(((in17_0) in_39)" +"(let-values(((in17_0) in_40)" "((config18_0)" " config_22)" "((temp19_3)" @@ -51541,29 +51589,36 @@ static const char *startup_source = "(if(unsafe-fx< index_3 12)" "(let-values()" "(let-values(((maybe-newline-c_0)" -"(let-values(((in_36)" -" in_39)" +"(let-values(((in_37)" +" in_40)" "((skip-count_9)" " 0)" -"((source_27)" -" source_25))" +"((source_28)" +" source_26))" +"(let-values(((c_46)" "(peek-char-or-special" -" in_36" +" in_37" " skip-count_9" -" special1.1" -" source_27))))" +" 'special" +" source_28)))" +"(if(eq?" +" c_46" +" 'special)" +"(special1.1" +" 'special)" +" c_46)))))" "(begin" "(if(eqv?" " maybe-newline-c_0" " '#\\newline)" "(let-values()" "(consume-char" -" in_39" +" in_40" " maybe-newline-c_0))" "(void))" "(void))))" "(let-values()" -"(let-values(((pos_97)" +"(let-values(((pos_116)" "(accum-string-count" " accum-str_4)))" "(let-values((()" @@ -51575,10 +51630,10 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_133)" +"(let-values(((v_180)" "(let-values(((temp26_6)" " 8)" -"((temp27_7)" +"((temp27_6)" " 2)" "((init-v28_0)" " init-v_3)" @@ -51588,28 +51643,28 @@ static const char *startup_source = " temp26_6" " init-v28_0" " #t" -" temp27_7" +" temp27_6" " init-v29_0" " #t" -" in_39" +" in_40" " config_22" " accum-str_4" " #t))))" "(begin" -"(if(<= v_133 255)" +"(if(<= v_180 255)" "(void)" "(let-values()" "(let-values(((in30_0)" -" in_39)" +" in_40)" "((config31_0)" " config_22)" -"((temp32_3)" +"((temp32_4)" " \"escape sequence `~a~a` is out of range in ~a\")" "((escaping-c33_0)" " escaping-c_0)" "((temp34_2)" "(let-values(((pos38_0)" -" pos_97))" +" pos_116))" "(accum-string-get!6.1" " pos38_0" " #t" @@ -51626,24 +51681,24 @@ static const char *startup_source = " #f" " in30_0" " config31_0" -" temp32_3" +" temp32_4" "(list" " escaping-c33_0" " temp34_2" " mode35_0)))))" "(set-accum-string-count!" " accum-str_4" -" pos_97)" +" pos_116)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_133)))))))))" +" v_180)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" -"(let-values(((pos_96)" +"(let-values(((pos_117)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_76)" +"(let-values(((v_197)" "(let-values(((temp42_3)" " 16)" "((temp43_4)" @@ -51655,27 +51710,27 @@ static const char *startup_source = " temp43_4" " #f" " #f" -" in_39" +" in_40" " config_22" " accum-str_4" " #t))))" "(begin" -"(if(integer? v_76)" +"(if(integer? v_197)" "(void)" "(let-values()" "(no-hex-digits" -" in_39" +" in_40" " config_22" -" v_76" +" v_197" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" " accum-str_4" -" pos_96)" +" pos_117)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_76))))))" +" v_197))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -51687,10 +51742,10 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_95)" +"(let-values(((pos_99)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_35)" +"(let-values(((v_224)" "(let-values(((temp47_1)" " 16)" "((temp48_1)" @@ -51702,50 +51757,50 @@ static const char *startup_source = " temp48_1" " #f" " #f" -" in_39" +" in_40" " config_22" " accum-str_4" " #t))))" "(begin" -"(if(integer? v_35)" +"(if(integer? v_224)" "(void)" "(let-values()" "(no-hex-digits" -" in_39" +" in_40" " config_22" -" v_35" +" v_224" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_287)" +"(if(let-values(((or-part_22)" "(<" -" v_35" +" v_224" " 55296)))" -"(if or-part_287" -" or-part_287" +"(if or-part_22" +" or-part_22" "(>" -" v_35" +" v_224" " 57343)))" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_95)" +" pos_99)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_35))))" +" v_224))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" "(begin" " 'next!" "(let-values(((next-c_1)" -"(let-values(((in_42)" -" in_39)" +"(let-values(((in_43)" +" in_40)" "((source_14)" -" source_25))" +" source_26))" "(read-char-or-special" -" in_42" +" in_43" " special1.1" " source_14))))" "(begin" @@ -51782,7 +51837,7 @@ static const char *startup_source = " temp53_4" " #f" " #f" -" in_39" +" in_40" " config_22" " accum-str_4" " #t))))" @@ -51811,7 +51866,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_35" +" v_224" " 55296)" " 10)" "(-" @@ -51823,7 +51878,7 @@ static const char *startup_source = " 1114111)" "(let-values()" "(let-values(((in54_0)" -" in_39)" +" in_40)" "((config55_0)" " config_22)" "((temp56_0)" @@ -51832,7 +51887,7 @@ static const char *startup_source = " escaping-c_0)" "((temp58_4)" "(let-values(((pos61_0)" -" pos_95))" +" pos_99))" "(accum-string-get!6.1" " pos61_0" " #t" @@ -51855,7 +51910,7 @@ static const char *startup_source = "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_95)" +" pos_99)" "(accum-string-add!" " accum-str_4" "(integer->char" @@ -51869,7 +51924,7 @@ static const char *startup_source = " escaping-c_0)" "((temp67_2)" "(let-values(((pos70_0)" -" pos_95))" +" pos_99))" "(accum-string-get!6.1" " pos70_0" " #t" @@ -51882,7 +51937,7 @@ static const char *startup_source = " #t" " #f" " #f" -" in_39" +" in_40" " config_22" " temp65_4" "(list" @@ -51898,10 +51953,10 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_116)" +"(let-values(((pos_90)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_84)" +"(let-values(((v_85)" "(let-values(((temp74_1)" " 16)" "((temp75_1)" @@ -51913,45 +51968,45 @@ static const char *startup_source = " temp75_1" " #f" " #f" -" in_39" +" in_40" " config_22" " accum-str_4" " #t))))" "(begin" -"(if(integer? v_84)" +"(if(integer? v_85)" "(void)" "(let-values()" "(no-hex-digits" -" in_39" +" in_40" " config_22" -" v_84" +" v_85" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_37)" +"(if(if(let-values(((or-part_257)" "(<" -" v_84" +" v_85" " 55296)))" -"(if or-part_37" -" or-part_37" +"(if or-part_257" +" or-part_257" "(>" -" v_84" +" v_85" " 57343)))" "(<=" -" v_84" +" v_85" " 1114111)" " #f)" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_116)" +" pos_90)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_84))))" +" v_85))))" "(let-values()" "(let-values(((in76_0)" -" in_39)" +" in_40)" "((config77_1)" " config_22)" "((temp78_4)" @@ -51960,7 +52015,7 @@ static const char *startup_source = " escaping-c_0)" "((temp80_4)" "(let-values(((pos83_0)" -" pos_116))" +" pos_90))" "(accum-string-get!6.1" " pos83_0" " #t" @@ -51980,20 +52035,20 @@ static const char *startup_source = " escaping-c79_0" " temp80_4)))))))))))))))))" "(loop_111)))))))" -" (if (char=? '#\\\" c_86)" +" (if (char=? '#\\\" c_91)" "(let-values() null)" "(let-values()" "(begin" "(if(eq? mode_0 '|byte string|)" "(let-values()" -"(if(byte?(char->integer c_86))" +"(if(byte?(char->integer c_91))" "(void)" "(let-values()" -"(let-values(((in84_0) in_39)" +"(let-values(((in84_0) in_40)" "((config85_0) config_22)" "((temp86_0)" " \"character `~a` is out of range in byte string\")" -"((c87_0) c_86))" +"((c87_0) c_91))" "(reader-error10.1" " #f" " #f" @@ -52006,7 +52061,7 @@ static const char *startup_source = " temp86_0" "(list c87_0))))))" "(void))" -"(accum-string-add! accum-str_4 c_86)" +"(accum-string-add! accum-str_4 c_91)" "(loop_111)))))))))))" " loop_111))" "(values))))" @@ -52016,12 +52071,12 @@ static const char *startup_source = "(accum-string-get-bytes!13.1 #f #f accum-str88_0 config89_0))" "(let-values(((accum-str90_0) accum-str_4)((config91_0) config_22))" "(accum-string-get!6.1 #f #f accum-str90_0 config91_0)))))" -"(wrap str_30 in_39 config_22 str_30)))))))))))))" +"(wrap str_30 in_40 config_22 str_30)))))))))))))" "(define-values" "(read-here-string)" -"(lambda(in_43 config_48)" +"(lambda(in_44 config_48)" "(begin" -"(let-values(((source_28)(read-config-source config_48)))" +"(let-values(((source_29)(read-config-source config_48)))" "(let-values(((accum-str_5)(accum-string-init! config_48)))" "(let-values(((full-terminator_0)" "(cons" @@ -52030,12 +52085,12 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((c_87)" -"(let-values(((in_44) in_43)((source_29) source_28))" -"(read-char-or-special in_44 special1.1 source_29))))" -"(if(eof-object? c_87)" +"(let-values(((c_92)" +"(let-values(((in_45) in_44)((source_30) source_29))" +"(read-char-or-special in_45 special1.1 source_30))))" +"(if(eof-object? c_92)" "(let-values()" -"(let-values(((c94_0) c_87)" +"(let-values(((c94_0) c_92)" "((temp95_2)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error10.1" @@ -52045,13 +52100,13 @@ static const char *startup_source = " #t" " #f" " #f" -" in_43" +" in_44" " config_48" " temp95_2" "(list))))" -"(if(not(char? c_87))" +"(if(not(char? c_92))" "(let-values()" -"(let-values(((c98_0) c_87)" +"(let-values(((c98_0) c_92)" "((temp99_2)" " \"found non-character while reading `#<<`\"))" "(reader-error10.1" @@ -52061,13 +52116,13 @@ static const char *startup_source = " #t" " #f" " #f" -" in_43" +" in_44" " config_48" " temp99_2" "(list))))" -"(if(char=? c_87 '#\\newline)" +"(if(char=? c_92 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_87(loop_112)))))))))))" +"(let-values()(cons c_92(loop_112)))))))))))" " loop_112)))))" "(let-values((()" "(begin" @@ -52075,15 +52130,15 @@ static const char *startup_source = "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" -"(let-values(((c_88)" -"(let-values(((in_45) in_43)((source_30) source_28))" -"(read-char-or-special in_45 special1.1 source_30))))" -"(if(eof-object? c_88)" +"(let-values(((c_93)" +"(let-values(((in_46) in_44)((source_31) source_29))" +"(read-char-or-special in_46 special1.1 source_31))))" +"(if(eof-object? c_93)" "(let-values()" "(if(null? terminator_0)" "(void)" "(let-values()" -"(let-values(((c102_0) c_88)" +"(let-values(((c102_0) c_93)" "((temp103_2)" " \"found end-of-file before terminating `~a`\")" "((temp104_2)" @@ -52095,13 +52150,13 @@ static const char *startup_source = " #t" " #f" " #f" -" in_43" +" in_44" " config_48" " temp103_2" "(list temp104_2))))))" -"(if(not(char? c_88))" +"(if(not(char? c_93))" "(let-values()" -"(let-values(((c107_0) c_88)" +"(let-values(((c107_0) c_93)" "((temp108_3)" " \"found non-character while reading `#<<`\"))" "(reader-error10.1" @@ -52111,18 +52166,18 @@ static const char *startup_source = " #t" " #f" " #f" -" in_43" +" in_44" " config_48" " temp108_3" "(list))))" "(if(if(pair? terminator_0)" -"(char=? c_88(car terminator_0))" +"(char=? c_93(car terminator_0))" " #f)" "(let-values()" "(loop_113" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" -"(if(if(null? terminator_0)(char=? c_88 '#\\newline) #f)" +"(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)" "(let-values()(void))" "(let-values()" "(begin" @@ -52130,24 +52185,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_96)" +"(let-values(((lst_278)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_6)" -"(lambda(lst_304)" +"(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_184)" +"(lambda(lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_304)" -"(let-values(((c_89)" +"(if(pair? lst_97)" +"(let-values(((c_94)" "(unsafe-car" -" lst_304))" -"((rest_173)" +" lst_97))" +"((rest_47)" "(unsafe-cdr" -" lst_304)))" +" lst_97)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52156,25 +52211,25 @@ static const char *startup_source = "(let-values()" "(accum-string-add!" " accum-str_5" -" c_89))" +" c_94))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_6" -" rest_173)" +"(for-loop_184" +" rest_47)" "(values))))" "(values))))))" -" for-loop_6)" -" lst_96)))" +" for-loop_184)" +" lst_278)))" "(void))))" -"(if(char=? c_88 '#\\newline)" +"(if(char=? c_93 '#\\newline)" "(let-values()" "(loop_113" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" -"(accum-string-add! accum-str_5 c_88)" +"(accum-string-add! accum-str_5 c_93)" "(loop_113 full-terminator_0 null)))))))))))))))" " loop_113)" "(cdr full-terminator_0)" @@ -52183,61 +52238,67 @@ static const char *startup_source = "(let-values(((str_31)" "(let-values(((accum-str109_0) accum-str_5)((config110_0) config_48))" "(accum-string-get!6.1 #f #f accum-str109_0 config110_0))))" -"(wrap str_31 in_43 config_48 str_31)))))))))" +"(wrap str_31 in_44 config_48 str_31)))))))))" "(define-values" "(no-hex-digits)" -"(lambda(in_46 config_49 c_90 escaping-c_1 escaped-c_1)" +"(lambda(in_47 config_49 c_95 escaping-c_1 escaped-c_1)" "(begin" -"(let-values(((c113_0) c_90)" +"(let-values(((c113_0) c_95)" " ((temp114_1) \"no hex digit following `~a~a`\")" "((escaping-c115_0) escaping-c_1)" "((escaped-c116_0) escaped-c_1))" -"(reader-error10.1 #f #f c113_0 #t #f #f in_46 config_49 temp114_1(list escaping-c115_0 escaped-c116_0))))))" +"(reader-error10.1 #f #f c113_0 #t #f #f in_47 config_49 temp114_1(list escaping-c115_0 escaped-c116_0))))))" "(define-values" "(read-character)" "(lambda(in_4 config_8)" "(begin" -"(let-values(((c_91)" -"(let-values(((in_39) in_4)((source_31)(read-config-source config_8)))" -"(read-char-or-special in_39 special1.1 source_31))))" +"(let-values(((c_96)" +"(let-values(((in_40) in_4)((source_32)(read-config-source config_8)))" +"(read-char-or-special in_40 special1.1 source_32))))" "(let-values(((char_0)" -"(if(eof-object? c_91)" +"(if(eof-object? c_96)" "(let-values()" -" (let-values (((c3_4) c_91) ((temp4_0) \"expected a character after `#\\\\`\"))" +" (let-values (((c3_4) c_96) ((temp4_0) \"expected a character after `#\\\\`\"))" "(reader-error10.1 #f #f c3_4 #t #f #f in_4 config_8 temp4_0(list))))" -"(if(not(char? c_91))" +"(if(not(char? c_96))" "(let-values()" -" (let-values (((c7_1) c_91) ((temp8_4) \"found non-character after `#\\\\`\"))" +" (let-values (((c7_1) c_96) ((temp8_4) \"found non-character after `#\\\\`\"))" "(reader-error10.1 #f #f c7_1 #t #f #f in_4 config_8 temp8_4(list))))" -"(if(octal-digit? c_91)" +"(if(octal-digit? c_96)" "(let-values()" "(let-values(((c2_5)" -"(let-values(((in_47) in_4)" +"(let-values(((in_48) in_4)" "((skip-count_10) 0)" -"((source_32)(read-config-source config_8)))" -"(peek-char-or-special in_47 skip-count_10 special1.1 source_32))))" +"((source_33)(read-config-source config_8)))" +"(let-values(((c_13)" +"(peek-char-or-special" +" in_48" +" skip-count_10" +" 'special" +" source_33)))" +"(if(eq? c_13 'special)(special1.1 'special) c_13)))))" "(if(if(char? c2_5)(octal-digit? c2_5) #f)" "(let-values()" "(let-values((()(begin(consume-char in_4 c2_5)(values))))" "(let-values(((c3_5)" -"(let-values(((in_48) in_4)" -"((source_33)(read-config-source config_8)))" -"(read-char-or-special in_48 special1.1 source_33))))" -"(let-values(((v_1)" +"(let-values(((in_41) in_4)" +"((source_27)(read-config-source config_8)))" +"(read-char-or-special in_41 special1.1 source_27))))" +"(let-values(((v_221)" "(if(if(char? c3_5)(octal-digit? c3_5) #f)" "(let-values()" "(+" -"(arithmetic-shift(digit->number c_91) 6)" +"(arithmetic-shift(digit->number c_96) 6)" "(arithmetic-shift(digit->number c2_5) 3)" "(digit->number c3_5)))" "(let-values() #f))))" "(begin" -"(if(if v_1(<= v_1 255) #f)" +"(if(if v_221(<= v_221 255) #f)" "(void)" "(let-values()" "(let-values(((c311_0) c3_5)" -" ((temp12_6) \"bad character constant `#\\\\~a~a~a`\")" -"((c13_2) c_91)" +" ((temp12_1) \"bad character constant `#\\\\~a~a~a`\")" +"((c13_2) c_96)" "((c214_0) c2_5)" " ((temp15_7) (if (char? c3_5) c3_5 \"\")))" "(reader-error10.1" @@ -52249,18 +52310,18 @@ static const char *startup_source = " #f" " in_4" " config_8" -" temp12_6" +" temp12_1" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_1))))))" -"(let-values() c_91))))" -"(if(let-values(((or-part_259)(char=? c_91 '#\\u)))" -"(if or-part_259 or-part_259(char=? c_91 '#\\U)))" +"(integer->char v_221))))))" +"(let-values() c_96))))" +"(if(let-values(((or-part_160)(char=? c_96 '#\\u)))" +"(if or-part_160 or-part_160(char=? c_96 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" -"(let-values(((v_3)" -"(let-values(((temp19_4) 16)((temp20_4)(if(char=? c_91 '#\\u) 4 8)))" +"(let-values(((v_32)" +"(let-values(((temp19_3) 16)((temp20_4)(if(char=? c_96 '#\\u) 4 8)))" "(read-digits13.1" -" temp19_4" +" temp19_3" " #f" " #f" " temp20_4" @@ -52270,14 +52331,14 @@ static const char *startup_source = " config_8" " accum-str_6" " #t))))" -"(if(integer? v_3)" +"(if(integer? v_32)" "(let-values()" -"(if(if(let-values(((or-part_29)(< v_3 55296)))" -"(if or-part_29 or-part_29(> v_3 57343)))" -"(<= v_3 1114111)" +"(if(if(let-values(((or-part_78)(< v_32 55296)))" +"(if or-part_78 or-part_78(> v_32 57343)))" +"(<= v_32 1114111)" " #f)" "(let-values()" -"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_3)))" +"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_32)))" "(let-values()" "(let-values(((in21_3) in_4)" "((config22_2) config_8)" @@ -52297,39 +52358,52 @@ static const char *startup_source = " config22_2" " temp23_4" "(list temp24_10))))))" -"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_91))))))" -"(if(char-alphabetic? c_91)" +"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_96))))))" +"(if(char-alphabetic? c_96)" "(let-values()" "(let-values(((next-c_4)" -"(let-values(((in_36) in_4)" -"((skip-count_9) 0)" -"((source_27)(read-config-source config_8)))" -"(peek-char-or-special in_36 skip-count_9 special1.1 source_27))))" +"(let-values(((in_49) in_4)" +"((skip-count_11) 0)" +"((source_34)(read-config-source config_8)))" +"(let-values(((c_51)" +"(peek-char-or-special" +" in_49" +" skip-count_11" +" 'special" +" source_34)))" +"(if(eq? c_51 'special)(special1.1 'special) c_51)))))" "(if(if(char? next-c_4)(char-alphabetic? next-c_4) #f)" "(let-values()" "(let-values(((accum-str_7)(accum-string-init! config_8)))" -"(let-values((()(begin(accum-string-add! accum-str_7 c_91)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_7 c_96)(values))))" "(let-values((()(begin(accum-string-add! accum-str_7 next-c_4)(values))))" "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_105)" "(lambda()" "(begin" " 'loop" "(let-values(((next-c_5)" -"(let-values(((in_14)" +"(let-values(((in_50)" " in_4)" -"((skip-count_11)" +"((skip-count_12)" " 0)" -"((source_34)" +"((source_35)" "(read-config-source" " config_8)))" +"(let-values(((c_67)" "(peek-char-or-special" -" in_14" -" skip-count_11" -" special1.1" -" source_34))))" +" in_50" +" skip-count_12" +" 'special" +" source_35)))" +"(if(eq?" +" c_67" +" 'special)" +"(special1.1" +" 'special)" +" c_67)))))" "(if(if(char? next-c_5)" "(char-alphabetic?" " next-c_5)" @@ -52342,11 +52416,11 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_114)))" +"(loop_105)))" "(void)))))))" -" loop_114))" +" loop_105))" "(values))))" -"(let-values(((name_58)" +"(let-values(((name_68)" "(string-foldcase" "(let-values(((accum-str27_0) accum-str_7)" "((config28_1) config_8))" @@ -52355,7 +52429,7 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_53) name_58))" +"(let-values(((tmp_53) name_68))" " (if (if (equal? tmp_53 \"nul\") #t (equal? tmp_53 \"null\"))" "(let-values() '#\\nul)" " (if (equal? tmp_53 \"backspace\")" @@ -52381,7 +52455,7 @@ static const char *startup_source = "((config30_0) config_8)" "((temp31_7)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_58))" +"((name32_0) name_68))" "(reader-error10.1" " #f" " #f" @@ -52393,48 +52467,54 @@ static const char *startup_source = " config30_0" " temp31_7" "(list name32_0)))))))))))))))))))))" -"(let-values() c_91))))" -"(let-values() c_91))))))))" +"(let-values() c_96))))" +"(let-values() c_96))))))))" "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" -"(lambda(read-one_3 sym_27 desc_0 c_35 in_39 config_22)" +"(lambda(read-one_3 sym_27 desc_0 c_35 in_40 config_22)" "(begin" -"(let-values(((wrapped-sym_0)(wrap sym_27 in_39 config_22 c_35)))" -"(let-values(((e_80)(read-one_3 #f in_39 config_22)))" +"(let-values(((wrapped-sym_0)(wrap sym_27 in_40 config_22 c_35)))" +"(let-values(((e_80)(read-one_3 #f in_40 config_22)))" "(begin" "(if(eof-object? e_80)" "(let-values()" "(let-values(((e3_0) e_80)" " ((temp4_6) \"expected an element for ~a, found end-of-file\")" "((desc5_0) desc_0))" -"(reader-error10.1 #f #f e3_0 #t #f #f in_39 config_22 temp4_6(list desc5_0))))" +"(reader-error10.1 #f #f e3_0 #t #f #f in_40 config_22 temp4_6(list desc5_0))))" "(void))" -"(wrap(list wrapped-sym_0 e_80) in_39 config_22 #f)))))))" +"(wrap(list wrapped-sym_0 e_80) in_40 config_22 #f)))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_75 in_39 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_75 in_40 config_22)" "(begin" "(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_114)" "(lambda(chars_1)" "(begin" " 'loop" -"(let-values(((c_92)" -"(let-values(((in_49) in_39)" -"((skip-count_12) 0)" +"(let-values(((c_97)" +"(let-values(((in_51) in_40)" +"((skip-count_13) 0)" "((source_4)(read-config-source config_22)))" -"(peek-char-or-special in_49 skip-count_12 special1.1 source_4))))" -"(if(char-delimiter? c_92 config_22)" +"(let-values(((c_37)" +"(peek-char-or-special" +" in_51" +" skip-count_13" +" 'special" +" source_4)))" +"(if(eq? c_37 'special)(special1.1 'special) c_37)))))" +"(if(char-delimiter? c_97 config_22)" "(let-values()" "(if(null? chars_1)" "(void)" "(let-values()" -"(let-values(((c3_6) c_92)" -" ((temp4_7) \"bad syntax `#~a`\")" -"((temp5_8)" +"(let-values(((c3_6) c_97)" +" ((temp4_2) \"bad syntax `#~a`\")" +"((temp5_4)" "(let-values(((accum-str6_0) accum-str_8)" "((config7_1) config_22))" "(accum-string-get!6.1 #f #f accum-str6_0 config7_1))))" @@ -52445,18 +52525,18 @@ static const char *startup_source = " #t" " #f" " #f" -" in_39" +" in_40" " config_22" -" temp4_7" -"(list temp5_8))))))" +" temp4_2" +"(list temp5_4))))))" "(if(null? chars_1)" "(let-values()" "(begin" -"(accum-string-add! accum-str_8 c_92)" -"(let-values(((in8_0) in_39)" +"(accum-string-add! accum-str_8 c_97)" +"(let-values(((in8_0) in_40)" "((config9_1) config_22)" -" ((temp10_4) \"bad syntax `#~a`\")" -"((temp11_2)" +" ((temp10_3) \"bad syntax `#~a`\")" +"((temp11_5)" "(let-values(((accum-str12_0) accum-str_8)" "((config13_1) config_22))" "(accum-string-get!6.1 #f #f accum-str12_0 config13_1))))" @@ -52469,22 +52549,22 @@ static const char *startup_source = " #f" " in8_0" " config9_1" -" temp10_4" -"(list temp11_2)))))" -"(if(if can-match?_0(char=? c_92(car chars_1)) #f)" +" temp10_3" +"(list temp11_5)))))" +"(if(if can-match?_0(char=? c_97(car chars_1)) #f)" "(let-values()" "(begin" -"(consume-char in_39 c_92)" -"(accum-string-add! accum-str_8 c_92)" -"(loop_115(cdr chars_1))))" +"(consume-char in_40 c_97)" +"(accum-string-add! accum-str_8 c_97)" +"(loop_114(cdr chars_1))))" "(let-values()" "(begin" -"(consume-char/special in_39 config_22 c_92)" -"(accum-string-add! accum-str_8 c_92)" -"(let-values(((in14_1) in_39)" +"(consume-char/special in_40 config_22 c_97)" +"(accum-string-add! accum-str_8 c_97)" +"(let-values(((in14_1) in_40)" "((config15_2) config_22)" " ((temp16_7) \"bad syntax `#~a`\")" -"((temp17_3)" +"((temp17_2)" "(let-values(((accum-str18_1) accum-str_8)" "((config19_1) config_22))" "(accum-string-get!6.1 #f #f accum-str18_1 config19_1))))" @@ -52498,12 +52578,12 @@ static const char *startup_source = " in14_1" " config15_2" " temp16_7" -"(list temp17_3)))))))))))))" -" loop_115)" +"(list temp17_2)))))))))))))" +" loop_114)" " chars_0)" "(wrap" " val_75" -" in_39" +" in_40" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" "(accum-string-get!6.1 #f #f accum-str20_0 config21_1))))))))" @@ -52537,8 +52617,8 @@ static const char *startup_source = "(lambda(mode-c_0 accum-str_9 in_5 config_15)" "(begin" "(let-values(((c3_7)" -"(let-values(((in_50) in_5)((source_35)(read-config-source config_15)))" -"(read-char-or-special in_50 special1.1 source_35))))" +"(let-values(((in_52) in_5)((source_36)(read-config-source config_15)))" +"(read-char-or-special in_52 special1.1 source_36))))" "(let-values(((no-wrap-config_0)(disable-wrapping config_15)))" "(let-values(((rx_0)" "(let-values(((tmp_17) c3_7))" @@ -52556,17 +52636,17 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(accum-string-add! accum-str_9 c3_7)(values))))" "(let-values(((c4_2)" -"(let-values(((in_25) in_5)" -"((source_36)(read-config-source config_15)))" -"(read-char-or-special in_25 special1.1 source_36))))" +"(let-values(((in_26) in_5)" +"((source_37)(read-config-source config_15)))" +"(read-char-or-special in_26 special1.1 source_37))))" "(let-values(((tmp_54) c4_2))" " (if (equal? tmp_54 '#\\\")" "(let-values()" "(let-values((()" "(begin(accum-string-abandon! accum-str_9 config_15)(values))))" "(let-values(((bstr_4)" -"(let-values(((temp5_9) '|byte string|))" -"(read-string5.1 temp5_9 #t in_5 no-wrap-config_0))))" +"(let-values(((temp5_8) '|byte string|))" +"(read-string5.1 temp5_8 #t in_5 no-wrap-config_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" @@ -52575,7 +52655,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c48_0) c4_2)" " ((temp9_4) \"expected `\\\"` after `~a`\")" -"((temp10_5)" +"((temp10_4)" "(let-values(((accum-str11_0) accum-str_9)" "((config12_2) config_15))" "(accum-string-get!6.1 #f #f accum-str11_0 config12_2))))" @@ -52589,13 +52669,13 @@ static const char *startup_source = " in_5" " config_15" " temp9_4" -"(list temp10_5)))))))))" +"(list temp10_4)))))))))" "(let-values()" "(let-values(((c315_0) c3_7)" -" ((temp16_7) \"expected `\\\"` or `#` after `~a`\")" +" ((temp16_8) \"expected `\\\"` or `#` after `~a`\")" "((temp17_3)" -"(let-values(((accum-str18_1) accum-str_9)((config19_1) config_15))" -"(accum-string-get!6.1 #f #f accum-str18_1 config19_1))))" +"(let-values(((accum-str18_2) accum-str_9)((config19_2) config_15))" +"(accum-string-get!6.1 #f #f accum-str18_2 config19_2))))" "(reader-error10.1" " #f" " #f" @@ -52605,27 +52685,27 @@ static const char *startup_source = " #f" " in_5" " config_15" -" temp16_7" +" temp16_8" "(list temp17_3)))))))))" "(wrap rx_0 in_5 config_15 #f)))))))" "(define-values" "(read-extension-reader)" -"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_24 config_24)" +"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_25 config_24)" "(begin" "(let-values(((extend-str_0)" -"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_24 config_24)))" +"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_25 config_24)))" "(let-values((()" "(begin" "(if(check-parameter 1/read-accept-reader config_24)" "(void)" "(let-values()" -"(let-values(((in52_0) in_24)" +"(let-values(((in52_0) in_25)" "((config53_1) config_24)" " ((temp54_5) \"`~a` not enabled\")" "((extend-str55_0) extend-str_0))" "(reader-error10.1 #f #f #f #f #f #f in52_0 config53_1 temp54_5(list extend-str55_0)))))" "(values))))" -"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_24(next-readtable config_24))))" +"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_25(next-readtable config_24))))" "(begin" "(if(eof-object? mod-path-wrapped_0)" "(let-values()" @@ -52639,14 +52719,14 @@ static const char *startup_source = " #t" " #f" " #f" -" in_24" +" in_25" " config_24" " temp59_3" "(list extend-str60_0))))" "(void))" "(let-values(((temp47_2)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))" "((read-recur48_0) read-recur_0)" -"((in49_0) in_24)" +"((in49_0) in_25)" "((config50_0) config_24)" "((mod-path-wrapped51_0) mod-path-wrapped_0))" "(read-extension44.1" @@ -52669,20 +52749,20 @@ static const char *startup_source = " 'read-extension-lang7" "(let-values(((read-recur_1) read-recur3_0))" "(let-values(((dispatch-c_3) dispatch-c4_1))" -"(let-values(((in_51) in5_1))" +"(let-values(((in_53) in5_1))" "(let-values(((config_50) config6_0))" "(let-values(((get-info?_0)(if get-info?2_0 get-info?1_0 #f)))" "(let-values()" "(let-values(((extend-str_1)" -"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_51 config_50)))" -"(let-values(((c_67)" -"(let-values(((in_22) in_51)((source_37)(read-config-source config_50)))" -"(read-char-or-special in_22 special1.1 source_37))))" +"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_53 config_50)))" +"(let-values(((c_69)" +"(let-values(((in_23) in_53)((source_38)(read-config-source config_50)))" +"(read-char-or-special in_23 special1.1 source_38))))" "(begin" -"(if(char=? c_67 '#\\space)" +"(if(char=? c_69 '#\\space)" "(void)" "(let-values()" -"(let-values(((in67_1) in_51)" +"(let-values(((in67_1) in_53)" "((config68_1) config_50)" " ((temp69_3) \"expected a single space after `~a`\")" "((extend-str70_0) extend-str_1))" @@ -52696,7 +52776,7 @@ static const char *startup_source = " temp65_5" " extend-str_1" " read-recur_1" -" in_51" +" in_53" " config_50))))))))))))))" "(define-values" "(read-extension-#!16.1)" @@ -52705,27 +52785,27 @@ static const char *startup_source = " 'read-extension-#!16" "(let-values(((read-recur_2) read-recur12_0))" "(let-values(((dispatch-c_4) dispatch-c13_0))" -"(let-values(((in_37) in14_2))" +"(let-values(((in_38) in14_2))" "(let-values(((config_47) config15_3))" "(let-values(((get-info?_1)(if get-info?11_0 get-info?10_0 #f)))" "(let-values()" -"(let-values(((c_68)" -"(let-values(((in_52) in_37)((source_38)(read-config-source config_47)))" -"(read-char-or-special in_52 special1.1 source_38))))" +"(let-values(((c_71)" +"(let-values(((in_54) in_38)((source_39)(read-config-source config_47)))" +"(read-char-or-special in_54 special1.1 source_39))))" "(begin" -"(if(char-lang-nonsep? c_68)" +"(if(char-lang-nonsep? c_71)" "(void)" "(let-values()" -"(let-values(((in78_0) in_37)" +"(let-values(((in78_0) in_38)" "((config79_0) config_47)" "((temp80_5)" -"(if(char? c_68)(string dispatch-c_4 '#\\! c_68)(string dispatch-c_4 '#\\!))))" +"(if(char? c_71)(string dispatch-c_4 '#\\! c_71)(string dispatch-c_4 '#\\!))))" "(bad-syntax-error18.1 #f #f in78_0 config79_0 temp80_5))))" "(let-values(((temp71_2)(string dispatch-c_4 '#\\!))" "((read-recur72_0) read-recur_2)" -"((in73_0) in_37)" +"((in73_0) in_38)" "((config74_0) config_47)" -"((c75_0) c_68)" +"((c75_0) c_71)" "((temp76_1) '|#!|)" "((get-info?77_0) get-info?_1))" "(read-lang29.1" @@ -52745,9 +52825,9 @@ static const char *startup_source = " 'read-lang29" "(let-values(((extend-str_2) extend-str25_0))" "(let-values(((read-recur_3) read-recur26_0))" -"(let-values(((in_53) in27_1))" +"(let-values(((in_55) in27_1))" "(let-values(((config_51) config28_2))" -"(let-values(((init-c_14)(if init-c22_0 init-c19_0 #f)))" +"(let-values(((init-c_13)(if init-c22_0 init-c19_0 #f)))" "(let-values(((get-info?_2)(if get-info?23_0 get-info?20_0 #f)))" "(let-values(((who_27) who21_0))" "(let-values()" @@ -52758,7 +52838,7 @@ static const char *startup_source = " #f)" "(void)" "(let-values()" -"(let-values(((in88_0) in_53)" +"(let-values(((in88_0) in_55)" "((config89_1) config_51)" " ((temp90_2) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" @@ -52777,34 +52857,38 @@ static const char *startup_source = "(let-values(((accum-str_10)(accum-string-init! config_51)))" "(let-values((()" "(begin" -"(if init-c_14" -"(let-values()(accum-string-add! accum-str_10 init-c_14))" +"(if init-c_13" +"(let-values()(accum-string-add! accum-str_10 init-c_13))" "(void))" "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_115)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_93)" -"(let-values(((in_54) in_53)" -"((skip-count_13) 0)" -"((source_39)" +"(let-values(((c_98)" +"(let-values(((in_56) in_55)" +"((skip-count_14) 0)" +"((source_40)" "(read-config-source" " config_51)))" +"(let-values(((c_9)" "(peek-char-or-special" -" in_54" -" skip-count_13" -" special1.1" -" source_39))))" -"(if(eof-object? c_93)" +" in_56" +" skip-count_14" +" 'special" +" source_40)))" +"(if(eq? c_9 'special)" +"(special1.1 'special)" +" c_9)))))" +"(if(eof-object? c_98)" "(let-values()(void))" -"(if(not(char? c_93))" +"(if(not(char? c_98))" "(let-values()" "(begin" -"(consume-char/special in_53 config_51 c_93)" -"(let-values(((c94_1) c_93)" +"(consume-char/special in_55 config_51 c_98)" +"(let-values(((c94_1) c_98)" "((temp95_3)" " \"found non-character while reading `#~a'\")" "((extend-str96_0)" @@ -52816,26 +52900,26 @@ static const char *startup_source = " #t" " #f" " #f" -" in_53" +" in_55" " config_51" " temp95_3" "(list extend-str96_0)))))" -"(if(char-whitespace? c_93)" +"(if(char-whitespace? c_98)" "(let-values()(void))" -"(if(let-values(((or-part_348)" -"(char-lang-nonsep? c_93)))" -"(if or-part_348" -" or-part_348" -"(char=? '#\\/ c_93)))" +"(if(let-values(((or-part_350)" +"(char-lang-nonsep? c_98)))" +"(if or-part_350" +" or-part_350" +"(char=? '#\\/ c_98)))" "(let-values()" "(begin" -"(consume-char in_53 c_93)" -"(accum-string-add! accum-str_10 c_93)" -"(loop_116)))" +"(consume-char in_55 c_98)" +"(accum-string-add! accum-str_10 c_98)" +"(loop_115)))" "(let-values()" "(begin" -"(consume-char in_53 c_93)" -"(let-values(((in97_0) in_53)" +"(consume-char in_55 c_98)" +"(let-values(((in97_0) in_55)" "((config98_0) config_51)" "((temp99_3)" "(string-append" @@ -52843,7 +52927,7 @@ static const char *startup_source = " \" characters for `~a`, found `~a`\"))" "((extend-str100_0)" " extend-str_2)" -"((c101_0) c_93))" +"((c101_0) c_98))" "(reader-error10.1" " #f" " #f" @@ -52857,7 +52941,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_116))" +" loop_115))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))" @@ -52866,7 +52950,7 @@ static const char *startup_source = "(begin" " (if (equal? lang-str_0 \"\")" "(let-values()" -"(let-values(((in104_0) in_53)" +"(let-values(((in104_0) in_55)" "((config105_0) config_51)" "((temp106_3)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" @@ -52888,7 +52972,7 @@ static const char *startup_source = "(begin" "(if(char=? '#\\/(string-ref lang-str_0 0))" "(let-values()" -"(let-values(((in108_0) in_53)" +"(let-values(((in108_0) in_55)" "((config109_0) config_51)" "((temp110_5)" " \"expected a name that does not start `/` after `~a`\")" @@ -52912,7 +52996,7 @@ static const char *startup_source = " '#\\/" "(string-ref lang-str_0(sub1(string-length lang-str_0))))" "(let-values()" -"(let-values(((in112_0) in_53)" +"(let-values(((in112_0) in_55)" "((config113_0) config_51)" "((temp114_2)" " \"expected a name that does not end `/` after `~a`\")" @@ -52937,7 +53021,7 @@ static const char *startup_source = "(let-values(((submod-path81_0) submod-path_0)" "((reader-path82_0) reader-path_0)" "((read-recur83_0) read-recur_3)" -"((in84_1) in_53)" +"((in84_1) in_55)" "((config85_1) config_51)" "((get-info?86_0) get-info?_2)" "((who87_0) who_27))" @@ -52956,74 +53040,74 @@ static const char *startup_source = " config85_1)))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" -"(lambda(c_94)" +"(lambda(c_99)" "(begin" -"(if(<(char->integer c_94) 128)" -"(let-values(((or-part_265)(char-alphabetic? c_94)))" -"(if or-part_265" -" or-part_265" -"(let-values(((or-part_288)(char-numeric? c_94)))" +"(if(<(char->integer c_99) 128)" +"(let-values(((or-part_288)(char-alphabetic? c_99)))" "(if or-part_288" " or-part_288" -"(let-values(((or-part_289)(char=? '#\\- c_94)))" +"(let-values(((or-part_289)(char-numeric? c_99)))" "(if or-part_289" " or-part_289" -"(let-values(((or-part_349)(char=? '#\\+ c_94)))" -"(if or-part_349 or-part_349(char=? '#\\_ c_94)))))))))" +"(let-values(((or-part_351)(char=? '#\\- c_99)))" +"(if or-part_351" +" or-part_351" +"(let-values(((or-part_352)(char=? '#\\+ c_99)))" +"(if or-part_352 or-part_352(char=? '#\\_ c_99)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" -"(lambda(already_0 wanted_0 in_55 config_52)" +"(lambda(already_0 wanted_0 in_57 config_52)" "(begin" "(let-values(((accum-str_11)(accum-string-init! config_52)))" "(begin" -"(let-values(((lst_197) already_0))" +"(let-values(((lst_30) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))" -"((letrec-values(((for-loop_262)" -"(lambda(lst_305)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_30)))" +"((letrec-values(((for-loop_24)" +"(lambda(lst_304)" "(begin" " 'for-loop" -"(if(pair? lst_305)" -"(let-values(((c_95)(unsafe-car lst_305))((rest_104)(unsafe-cdr lst_305)))" +"(if(pair? lst_304)" +"(let-values(((c_100)(unsafe-car lst_304))((rest_173)(unsafe-cdr lst_304)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(accum-string-add! accum-str_11 c_95))" +"(accum-string-add! accum-str_11 c_100))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_262 rest_104)(values))))" +"(if(not #f)(for-loop_24 rest_173)(values))))" "(values))))))" -" for-loop_262)" -" lst_197)))" +" for-loop_24)" +" lst_30)))" "(void)" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_116)" "(lambda(wanted_1)" "(begin" " 'loop" "(if(null? wanted_1)" "(void)" "(let-values()" -"(let-values(((c_26)" -"(let-values(((in_56) in_55)" -"((source_40)(read-config-source config_52)))" -"(read-char-or-special in_56 special1.1 source_40))))" +"(let-values(((c_101)" +"(let-values(((in_58) in_57)" +"((source_41)(read-config-source config_52)))" +"(read-char-or-special in_58 special1.1 source_41))))" "(begin" -"(if(char? c_26)(let-values()(accum-string-add! accum-str_11 c_26))(void))" -"(if(eqv? c_26(car wanted_1))" +"(if(char? c_101)(let-values()(accum-string-add! accum-str_11 c_101))(void))" +"(if(eqv? c_101(car wanted_1))" "(void)" "(let-values()" "(let-values(((temp120_2)" "(let-values(((accum-str122_0) accum-str_11)" "((config123_0) config_52))" "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" -"((c121_0) c_26))" -"(bad-syntax-error18.1 c121_0 #t in_55 config_52 temp120_2))))" -"(loop_117(cdr wanted_1))))))))))" -" loop_117)" +"((c121_0) c_101))" +"(bad-syntax-error18.1 c121_0 #t in_57 config_52 temp120_2))))" +"(loop_116(cdr wanted_1))))))))))" +" loop_116)" " wanted_0)" "(let-values(((accum-str116_0) accum-str_11)((config117_0) config_52))" "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))" @@ -53046,7 +53130,7 @@ static const char *startup_source = "(let-values(((try-first-mod-path_0)(if try-first-mod-path36_0 try-first-mod-path32_0 #f)))" "(let-values(((mod-path-datum_0) mod-path-datum40_0))" "(let-values(((read-recur_4) read-recur41_0))" -"(let-values(((in_57) in42_1))" +"(let-values(((in_59) in42_1))" "(let-values(((config_53) config43_1))" "(let-values(((mod-path-wrapped_1)" "(if mod-path-wrapped37_0" @@ -53058,7 +53142,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_53)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_350)" +"(let-values(((or-part_303)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_53)" @@ -53066,7 +53150,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_350 or-part_350(guard_0 mod-path-datum_0)))))" +"(if or-part_303 or-part_303(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))" "(let-values(((no-value_0)(gensym)))" @@ -53095,7 +53179,7 @@ static const char *startup_source = "(let-values()" "(extension_0" "(read-config-source config_53)" -" in_57" +" in_59" " mod-path-wrapped_1" "(read-config-line config_53)" "(read-config-col config_53)" @@ -53113,7 +53197,7 @@ static const char *startup_source = "(let-values()" "(extension_0" "(read-config-source config_53)" -" in_57))))" +" in_59))))" "(let-values()" "(raise-argument-error" " who_28" @@ -53130,7 +53214,7 @@ static const char *startup_source = " config_53)" "(let-values()" "(extension_0" -" in_57" +" in_59" " mod-path-wrapped_1" "(read-config-line config_53)" "(read-config-col config_53)" @@ -53151,7 +53235,7 @@ static const char *startup_source = " parameterization-key)" " current-read-config" " config_53)" -"(let-values()(extension_0 in_57))))" +"(let-values()(extension_0 in_59))))" "(let-values()" "(raise-argument-error" " who_28" @@ -53171,9 +53255,9 @@ static const char *startup_source = " result-v_1)))" " result-v_1))" "(if(1/special-comment? result-v_1)" -"(let-values()(read-recur_4 #f in_57 config_53))" +"(let-values()(read-recur_4 #f in_59 config_53))" "(let-values()" -"(coerce result-v_1 in_57 config_53))))))))))))))))))))))))))" +"(coerce result-v_1 in_59 config_53))))))))))))))))))))))))))" "(define-values" "(read-language/get-info)" "(lambda(read-one_3 in_2 config_7 fail-k_5)" @@ -53186,40 +53270,39 @@ static const char *startup_source = " (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_33)))" "(let-values()" "(let-values(((c2_6)" -"(let-values(((in_49) in_2)((source_41)(read-config-source l-config_0)))" -"(read-char-or-special in_49 special1.1 source_41))))" +"(let-values(((in_51) in_2)((source_42)(read-config-source l-config_0)))" +"(read-char-or-special in_51 special1.1 source_42))))" "(if(eqv? c2_6 '#\\l)" "(let-values()" -"(let-values(((temp5_10) #t))" -"(read-extension-lang7.1 temp5_10 #t read-one_3 c_33 in_2 l-config_0)))" +"(let-values(((temp5_9) #t))(read-extension-lang7.1 temp5_9 #t read-one_3 c_33 in_2 l-config_0)))" "(if(eqv? c2_6 '#\\!)" "(let-values()" -"(let-values(((temp10_6) #t))" -"(read-extension-#!16.1 temp10_6 #t read-one_3 c_33 in_2 l-config_0)))" +"(let-values(((temp10_5) #t))" +"(read-extension-#!16.1 temp10_5 #t read-one_3 c_33 in_2 l-config_0)))" "(let-values()" "(if fail-k_5(fail-k_5)(lang-error in_2 l-config_0(string c_33) c2_6))))))))))))))" "(define-values" "(lang-error)" -"(lambda(in_25 config_37 prefix_7 c_86)" +"(lambda(in_26 config_37 prefix_7 c_91)" "(begin" "(let-values(((add-prefix_0)" "(lambda(s_10)" "(begin" " 'add-prefix" " (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_10) s_10)))))" -"(let-values(((c13_3) c_86)" +"(let-values(((c13_3) c_91)" "((temp14_0) 'read-language)" "((temp15_0)" "(string-append" " \"expected (after whitespace and comments) `#lang ` or `#!` followed\"" " \" immediately by a language name, found ~a\"))" "((temp16_0)" -"(if(eof-object? c_86)" +"(if(eof-object? c_91)" " (let-values () (add-prefix_0 \"end-of-file\"))" -"(if(not(char? c_86))" +"(if(not(char? c_91))" " (let-values () (add-prefix_0 \"non-character\"))" -" (let-values () (format \"`~a~a`\" prefix_7 c_86))))))" -"(reader-error10.1 #f #f c13_3 #t temp14_0 #t in_25 config_37 temp15_0(list temp16_0)))))))" +" (let-values () (format \"`~a~a`\" prefix_7 c_91))))))" +"(reader-error10.1 #f #f c13_3 #t temp14_0 #t in_26 config_37 temp15_0(list temp16_0)))))))" "(define-values" "(read30.1)" "(lambda(coerce12_1" @@ -53253,14 +53336,14 @@ static const char *startup_source = " in29_3)" "(begin" " 'read30" -"(let-values(((in_21) in29_3))" +"(let-values(((in_12) in29_3))" "(let-values(((wrap_7)(if wrap15_0 wrap1_0 #f)))" -"(let-values(((init-c_6)(if init-c16_0 init-c2_0 #f)))" +"(let-values(((init-c_5)(if init-c16_0 init-c2_0 #f)))" "(let-values(((next-readtable_3)(if next-readtable17_0 next-readtable3_0(1/current-readtable))))" "(let-values(((readtable_3)(if readtable18_0 readtable4_0 next-readtable_3)))" "(let-values(((recursive?_0)(if recursive?19_0 recursive?5_0 #f)))" "(let-values(((local-graph?_1)(if local-graph?20_0 local-graph?6_0 #f)))" -"(let-values(((source_8)(if source21_0 source7_0 #f)))" +"(let-values(((source_43)(if source21_0 source7_0 #f)))" "(let-values(((for-syntax?_9)(if for-syntax?22_0 for-syntax?8_0 #f)))" "(let-values(((read-compiled_2)(if read-compiled23_0 read-compiled9_1 #f)))" "(let-values(((dynamic-require_3)(if dynamic-require24_0 dynamic-require10_1 #f)))" @@ -53293,7 +53376,7 @@ static const char *startup_source = "(let-values()" "(let-values(((readtable59_0) readtable_3)" "((next-readtable60_0) next-readtable_3)" -"((source61_0) source_8)" +"((source61_0) source_43)" "((for-syntax?62_0) for-syntax?_9)" "((wrap63_0) wrap_7)" "((read-compiled64_0) read-compiled_2)" @@ -53325,7 +53408,7 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_133)(read-one init-c_6 in_21 config_54)))" +"(let-values(((v_133)(read-one init-c_5 in_12 config_54)))" "(if(if(let-values(((or-part_287)(not recursive?_0)))" "(if or-part_287 or-part_287 local-graph?_1))" "(read-config-state-graph(read-config-st config_54))" @@ -53365,7 +53448,7 @@ static const char *startup_source = " fail-k48_0)" "(begin" " 'read-language49" -"(let-values(((in_58) in47_0))" +"(let-values(((in_60) in47_0))" "(let-values(((fail-k_6) fail-k48_0))" "(let-values(((for-syntax?_10)(if for-syntax?40_0 for-syntax?33_0 #f)))" "(let-values(((wrap_8)(if wrap41_0 wrap34_0 #f)))" @@ -53409,47 +53492,49 @@ static const char *startup_source = " wrap73_0" " #t))))" "(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_56 #f)))" -"(read-language/get-info read-undotted in_58 config_56 fail-k_6))))))))))))))))" +"(read-language/get-info read-undotted in_60 config_56 fail-k_6))))))))))))))))" "(define-values" "(read-one)" -"(lambda(init-c_15 in_59 config_57)" +"(lambda(init-c_14 in_61 config_57)" "(begin" "(if(not(check-parameter 1/read-cdot config_57))" -"(let-values()(read-undotted init-c_15 in_59 config_57))" +"(let-values()(read-undotted init-c_14 in_61 config_57))" "(if(check-parameter 1/read-cdot config_57)" "(let-values()" -"(let-values(((line_10 col_9 pos_98)(port-next-location in_59)))" -"(let-values(((v_237)(read-undotted init-c_15 in_59 config_57)))" -"(if(1/special-comment? v_237)" -"(let-values() v_237)" +"(let-values(((line_10 col_9 pos_98)(port-next-location in_61)))" +"(let-values(((v_238)(read-undotted init-c_14 in_61 config_57)))" +"(if(1/special-comment? v_238)" +"(let-values() v_238)" "(let-values()" -"((letrec-values(((loop_118)" -"(lambda(v_238)" +"((letrec-values(((loop_117)" +"(lambda(v_239)" "(begin" " 'loop" -"(let-values(((c_96)" -"(let-values(((in_60) in_59)" -"((skip-count_14) 0)" -"((source_42)(read-config-source config_57)))" +"(let-values(((c_102)" +"(let-values(((in_62) in_61)" +"((skip-count_15) 0)" +"((source_44)(read-config-source config_57)))" +"(let-values(((c_103)" "(peek-char-or-special" -" in_60" -" skip-count_14" -" special1.1" -" source_42))))" -"(let-values(((ec_9)(effective-char c_96 config_57)))" +" in_62" +" skip-count_15" +" 'special" +" source_44)))" +"(if(eq? c_103 'special)(special1.1 'special) c_103)))))" +"(let-values(((ec_9)(effective-char c_102 config_57)))" "(if(not(char? ec_9))" -"(let-values() v_238)" +"(let-values() v_239)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_59 c_96)(loop_118 v_238)))" +"(let-values()(begin(consume-char in_61 c_102)(loop_117 v_239)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" -"(port-next-location in_59)))" -"(let-values((()(begin(consume-char in_59 c_96)(values))))" +"(port-next-location in_61)))" +"(let-values((()(begin(consume-char in_61 c_102)(values))))" "(let-values(((cdot_0)" "(wrap" " '#%dot" -" in_59" +" in_61" "(reading-at" " config_57" " dot-line_2" @@ -53457,46 +53542,46 @@ static const char *startup_source = " dot-pos_5)" " '#\\.)))" "(let-values(((post-v_0)" -"(read-undotted #f in_59 config_57)))" -"(loop_118" +"(read-undotted #f in_61 config_57)))" +"(loop_117" "(wrap" -"(list cdot_0 v_238 post-v_0)" -" in_59" +"(list cdot_0 v_239 post-v_0)" +" in_61" "(reading-at config_57 line_10 col_9 pos_98)" " '#\\.)))))))" -"(let-values() v_238))))))))))" -" loop_118)" -" v_237))))))" +"(let-values() v_239))))))))))" +" loop_117)" +" v_238))))))" "(void))))))" "(define-values" "(read-undotted)" -"(lambda(init-c_16 in_61 config_58)" +"(lambda(init-c_15 in_63 config_58)" "(begin" -"(let-values(((c_97)(read-char/skip-whitespace-and-comments init-c_16 read-one in_61 config_58)))" -"(let-values(((line_11 col_10 pos_117)(port-next-location* in_61 c_97)))" -"(if(eof-object? c_97)" +"(let-values(((c_104)(read-char/skip-whitespace-and-comments init-c_15 read-one in_63 config_58)))" +"(let-values(((line_11 col_10 pos_118)(port-next-location* in_63 c_104)))" +"(if(eof-object? c_104)" "(let-values() eof)" -"(if(not(char? c_97))" +"(if(not(char? c_104))" "(let-values()" -"(let-values(((v_239)(special-value c_97)))" -"(if(1/special-comment? v_239)" -"(let-values()(if(read-config-keep-comment? config_58) v_239(read-undotted #f in_61 config_58)))" -"(let-values()(coerce v_239 in_61(reading-at config_58 line_11 col_10 pos_117))))))" -"(let-values(((c2_7)(readtable-handler config_58 c_97)))" +"(let-values(((v_240)(special-value c_104)))" +"(if(1/special-comment? v_240)" +"(let-values()(if(read-config-keep-comment? config_58) v_240(read-undotted #f in_63 config_58)))" +"(let-values()(coerce v_240 in_63(reading-at config_58 line_11 col_10 pos_118))))))" +"(let-values(((c2_7)(readtable-handler config_58 c_104)))" "(if c2_7" "((lambda(handler_3)" -"(let-values(((v_240)(readtable-apply handler_3 c_97 in_61 config_58 line_11 col_10 pos_117)))" -"(retry-special-comment v_240 in_61 config_58)))" +"(let-values(((v_241)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" +"(retry-special-comment v_241 in_63 config_58)))" " c2_7)" "(let-values()" -"(let-values(((ec_10)(effective-char c_97 config_58)))" +"(let-values(((ec_10)(effective-char c_104 config_58)))" "(let-values((()" "(begin" "(if(not(char-closer? ec_10 config_58))" "(let-values()(track-indentation! config_58 line_11 col_10))" "(void))" "(values))))" -"(let-values(((r-config_0)(reading-at(discard-comment config_58) line_11 col_10 pos_117)))" +"(let-values(((r-config_0)(reading-at(discard-comment config_58) line_11 col_10 pos_118)))" "(let-values(((tmp_55) ec_10))" "(let-values(((index_4)" "(if(char? tmp_55)" @@ -53555,11 +53640,11 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_141)" +"(let-values(((v_242)" "(let-values(((temp82_4)" -"(if(let-values(((or-part_351)(eq? c_97 ec_10)))" -"(if or-part_351" -" or-part_351" +"(if(let-values(((or-part_353)(eq? c_104 ec_10)))" +"(if or-part_353" +" or-part_353" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -53570,23 +53655,23 @@ static const char *startup_source = " #f" " temp82_4" " #t" -" c_97" -" in_61" +" c_104" +" in_63" " r-config_0))))" -"(retry-special-comment v_141 in_61 config_58)))" -"(let-values()(read-dispatch c_97 in_61 r-config_0 config_58)))" +"(retry-special-comment v_242 in_63 config_58)))" +"(let-values()(read-dispatch c_104 in_63 r-config_0 config_58)))" "(if(unsafe-fx< index_4 3)" -" (let-values () (read-quote read-one 'quote \"quoting '\" c_97 in_61 r-config_0))" +" (let-values () (read-quote read-one 'quote \"quoting '\" c_104 in_63 r-config_0))" "(if(unsafe-fx< index_4 4)" "(let-values()" "(if(check-parameter 1/read-accept-quasiquote config_58)" "(let-values()" -" (read-quote read-one 'quasiquote \"quasiquoting `\" c_97 in_61 r-config_0))" +" (read-quote read-one 'quasiquote \"quasiquoting `\" c_104 in_63 r-config_0))" "(let-values()" -"(let-values(((in83_0) in_61)" +"(let-values(((in83_0) in_63)" "((r-config84_0) r-config_0)" " ((temp85_1) \"illegal use of `~a`\")" -"((c86_0) c_97))" +"((c86_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53602,31 +53687,35 @@ static const char *startup_source = "(let-values()" "(if(check-parameter 1/read-accept-quasiquote config_58)" "(let-values()" -"(let-values(((c2_8)" -"(let-values(((in_62) in_61)" -"((skip-count_15) 0)" -"((source_43)(read-config-source config_58)))" +"(let-values(((c2_1)" +"(let-values(((in_64) in_63)" +"((skip-count_16) 0)" +"((source_45)(read-config-source config_58)))" +"(let-values(((c_105)" "(peek-char-or-special" -" in_62" -" skip-count_15" -" special1.1" -" source_43))))" -"(if(eqv? c2_8 '#\\@)" +" in_64" +" skip-count_16" +" 'special" +" source_45)))" +"(if(eq? c_105 'special)" +"(special1.1 'special)" +" c_105)))))" +"(if(eqv? c2_1 '#\\@)" "(begin" -"(consume-char in_61 c2_8)" +"(consume-char in_63 c2_1)" "(read-quote" " read-one" " 'unquote-splicing" " \"unquoting ,@\"" -" c_97" -" in_61" +" c_104" +" in_63" " r-config_0))" -" (read-quote read-one 'unquote \"unquoting ,\" c_97 in_61 r-config_0))))" +" (read-quote read-one 'unquote \"unquoting ,\" c_104 in_63 r-config_0))))" "(let-values()" -"(let-values(((in87_0) in_61)" +"(let-values(((in87_0) in_63)" "((r-config88_0) r-config_0)" " ((temp89_5) \"illegal use of `~a`\")" -"((c90_0) c_97))" +"((c90_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53642,7 +53731,7 @@ static const char *startup_source = "(wrap" "(let-values(((temp93_4) '#\\()" "((temp94_3) '#\\))" -"((in95_0) in_61)" +"((in95_0) in_63)" "((r-config96_0) r-config_0)" "((temp97_4) #t))" "(read-unwrapped-sequence17.1" @@ -53662,17 +53751,17 @@ static const char *startup_source = " temp94_3" " in95_0" " r-config96_0))" -" in_61" +" in_63" " r-config_0" " ec_10))))))" "(if(unsafe-fx< index_4 9)" "(if(unsafe-fx< index_4 7)" "(let-values()" -"(let-values(((in98_0) in_61)" +"(let-values(((in98_0) in_63)" "((r-config99_0) r-config_0)" " ((temp100_2) \"~a\")" "((temp101_3)" -"(indentation-unexpected-closer-message ec_10 c_97 r-config_0)))" +"(indentation-unexpected-closer-message ec_10 c_104 r-config_0)))" "(reader-error10.1" " #f" " #f" @@ -53686,16 +53775,16 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_352)" +"(if(let-values(((or-part_278)" "(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_352" -" or-part_352" +"(if or-part_278" +" or-part_278" "(check-parameter 1/read-square-bracket-with-tag config_58)))" "(let-values()" "(wrap" "(let-values(((temp104_3) '#\\[)" "((temp105_3) '#\\])" -"((in106_0) in_61)" +"((in106_0) in_63)" "((r-config107_0) r-config_0)" "((temp108_4) #t))" "(read-unwrapped-sequence17.1" @@ -53715,14 +53804,14 @@ static const char *startup_source = " temp105_3" " in106_0" " r-config107_0))" -" in_61" +" in_63" " r-config_0" " ec_10))" "(let-values()" -"(let-values(((in109_0) in_61)" +"(let-values(((in109_0) in_63)" "((r-config110_0) r-config_0)" " ((temp111_2) \"illegal use of `~a`\")" -"((c112_0) c_97))" +"((c112_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53735,19 +53824,19 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_354)" "(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_353" -" or-part_353" +"(if or-part_354" +" or-part_354" "(check-parameter 1/read-square-bracket-with-tag config_58)))" "(let-values()" -"(let-values(((in113_0) in_61)" +"(let-values(((in113_0) in_63)" "((r-config114_0) r-config_0)" " ((temp115_1) \"~a\")" "((temp116_2)" "(indentation-unexpected-closer-message" " ec_10" -" c_97" +" c_104" " r-config_0)))" "(reader-error10.1" " #f" @@ -53761,10 +53850,10 @@ static const char *startup_source = " temp115_1" "(list temp116_2))))" "(let-values()" -"(let-values(((in117_0) in_61)" +"(let-values(((in117_0) in_63)" "((r-config118_0) r-config_0)" " ((temp119_0) \"illegal use of `~a`\")" -"((c120_0) c_97))" +"((c120_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53778,16 +53867,16 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_355)" "(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_354" -" or-part_354" +"(if or-part_355" +" or-part_355" "(check-parameter 1/read-curly-brace-with-tag config_58)))" "(let-values()" "(wrap" "(let-values(((temp123_3) '#\\{)" "((temp124_4) '#\\})" -"((in125_0) in_61)" +"((in125_0) in_63)" "((r-config126_0) r-config_0)" "((temp127_4) #t))" "(read-unwrapped-sequence17.1" @@ -53807,14 +53896,14 @@ static const char *startup_source = " temp124_4" " in125_0" " r-config126_0))" -" in_61" +" in_63" " r-config_0" " ec_10))" "(let-values()" -"(let-values(((in128_0) in_61)" +"(let-values(((in128_0) in_63)" "((r-config129_0) r-config_0)" " ((temp130_3) \"illegal use of `~a`\")" -"((c131_0) c_97))" +"((c131_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53828,19 +53917,19 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_356)" "(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_355" -" or-part_355" +"(if or-part_356" +" or-part_356" "(check-parameter 1/read-curly-brace-with-tag config_58)))" "(let-values()" -"(let-values(((in132_0) in_61)" +"(let-values(((in132_0) in_63)" "((r-config133_0) r-config_0)" " ((temp134_2) \"~a\")" "((temp135_1)" "(indentation-unexpected-closer-message" " ec_10" -" c_97" +" c_104" " r-config_0)))" "(reader-error10.1" " #f" @@ -53854,10 +53943,10 @@ static const char *startup_source = " temp134_2" "(list temp135_1))))" "(let-values()" -"(let-values(((in136_0) in_61)" +"(let-values(((in136_0) in_63)" "((r-config137_0) r-config_0)" " ((temp138_2) \"illegal use of `~a`\")" -"((c139_0) c_97))" +"((c139_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53871,7 +53960,7 @@ static const char *startup_source = "(list c139_0))))))" "(if(unsafe-fx< index_4 12)" "(let-values()" -"(let-values(((in140_0) in_61)((r-config141_0) r-config_0))" +"(let-values(((in140_0) in_63)((r-config141_0) r-config_0))" "(read-string5.1 #f #f in140_0 r-config141_0)))" "(let-values()" "(let-values(((temp145_1) 'symbol))" @@ -53880,36 +53969,37 @@ static const char *startup_source = " #f" " temp145_1" " #t" -" c_97" -" in_61" +" c_104" +" in_63" " r-config_0)))))))))))))))))))))))" "(define-values" "(read-dispatch)" -"(lambda(dispatch-c_5 in_63 config_59 orig-config_0)" +"(lambda(dispatch-c_5 in_65 config_59 orig-config_0)" "(begin" -"(let-values(((c_98)" -"(let-values(((in_64) in_63)((source_44)(read-config-source config_59)))" -"(read-char-or-special in_64 special1.1 source_44))))" -"(if(eof-object? c_98)" +"(let-values(((c_106)" +"(let-values(((in_66) in_65)((source_46)(read-config-source config_59)))" +"(read-char-or-special in_66 special1.1 source_46))))" +"(if(eof-object? c_106)" "(let-values()" -" (let-values (((c148_0) c_98) ((temp149_0) \"bad syntax `~a`\") ((dispatch-c150_0) dispatch-c_5))" -"(reader-error10.1 #f #f c148_0 #t #f #f in_63 config_59 temp149_0(list dispatch-c150_0))))" -"(if(not(char? c_98))" +" (let-values (((c148_0) c_106) ((temp149_0) \"bad syntax `~a`\") ((dispatch-c150_0) dispatch-c_5))" +"(reader-error10.1 #f #f c148_0 #t #f #f in_65 config_59 temp149_0(list dispatch-c150_0))))" +"(if(not(char? c_106))" "(let-values()" -" (let-values (((c153_0) c_98) ((temp154_1) \"bad syntax `~a`\") ((dispatch-c155_0) dispatch-c_5))" -"(reader-error10.1 #f #f c153_0 #t #f #f in_63 config_59 temp154_1(list dispatch-c155_0))))" -"(let-values(((c3_8)(readtable-dispatch-handler orig-config_0 c_98)))" +" (let-values (((c153_0) c_106) ((temp154_1) \"bad syntax `~a`\") ((dispatch-c155_0) dispatch-c_5))" +"(reader-error10.1 #f #f c153_0 #t #f #f in_65 config_59 temp154_1(list dispatch-c155_0))))" +"(let-values(((c3_8)(readtable-dispatch-handler orig-config_0 c_106)))" "(if c3_8" "((lambda(handler_4)" "(let-values(((line_12)(read-config-line config_59)))" "(let-values(((col_11)(read-config-col config_59)))" -"(let-values(((pos_118)(read-config-pos config_59)))" -"(let-values(((v_144)(readtable-apply handler_4 c_98 in_63 config_59 line_12 col_11 pos_118)))" -"(retry-special-comment v_144 in_63 orig-config_0))))))" +"(let-values(((pos_119)(read-config-pos config_59)))" +"(let-values(((v_243)" +"(readtable-apply handler_4 c_106 in_65 config_59 line_12 col_11 pos_119)))" +"(retry-special-comment v_243 in_65 orig-config_0))))))" " c3_8)" "(let-values()" "(let-values()" -"(let-values(((tmp_56) c_98))" +"(let-values(((tmp_56) c_106))" "(let-values(((index_5)" "(if(char? tmp_56)" "(let-values(((codepoint_3)(char->integer tmp_56)))" @@ -54017,11 +54107,11 @@ static const char *startup_source = "(if(unsafe-fx< index_5 3)" "(if(unsafe-fx< index_5 1)" "(let-values()" -"(let-values(((in156_0) in_63)" +"(let-values(((in156_0) in_65)" "((config157_0) config_59)" " ((temp158_1) \"bad syntax `~a~a`\")" "((dispatch-c159_0) dispatch-c_5)" -"((c160_0) c_98))" +"((c160_0) c_106))" "(reader-error10.1" " #f" " #f" @@ -54034,13 +54124,13 @@ static const char *startup_source = " temp158_1" "(list dispatch-c159_0 c160_0))))" "(if(unsafe-fx< index_5 2)" -"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_98 in_63 config_59))" +"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_106 in_65 config_59))" "(let-values()" "(let-values(((read-one161_0) read-one)" "((temp162_2) '#\\()" "((temp163_1) '#\\()" "((temp164_0) '#\\))" -"((in165_0) in_63)" +"((in165_0) in_65)" "((config166_0) config_59))" "(read-vector11.1" " #f" @@ -54062,7 +54152,7 @@ static const char *startup_source = "((temp168_0) '#\\[)" "((temp169_0) '#\\[)" "((temp170_2) '#\\])" -"((in171_0) in_63)" +"((in171_0) in_65)" "((config172_0) config_59))" "(read-vector11.1" " #f" @@ -54076,9 +54166,9 @@ static const char *startup_source = " in171_0" " config172_0)))" "(let-values()" -"(let-values(((in173_0) in_63)" +"(let-values(((in173_0) in_65)" "((config174_0) config_59)" -" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_98)))" +" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_106)))" "(bad-syntax-error18.1 #f #f in173_0 config174_0 temp175_0)))))" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_59)" @@ -54087,7 +54177,7 @@ static const char *startup_source = "((temp177_0) '#\\{)" "((temp178_0) '#\\{)" "((temp179_0) '#\\})" -"((in180_0) in_63)" +"((in180_0) in_65)" "((config181_0) config_59))" "(read-vector11.1" " #f" @@ -54101,49 +54191,67 @@ static const char *startup_source = " in180_0" " config181_0)))" "(let-values()" -"(let-values(((in182_0) in_63)" +"(let-values(((in182_0) in_65)" "((config183_0) config_59)" -" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_98)))" +" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_106)))" "(bad-syntax-error18.1 #f #f in182_0 config183_0 temp184_0))))))" "(if(unsafe-fx< index_5 6)" -"(let-values()(read-struct read-one dispatch-c_5 in_63 config_59))" +"(let-values()(read-struct read-one dispatch-c_5 in_65 config_59))" "(if(unsafe-fx< index_5 7)" -"(let-values()(read-box read-one dispatch-c_5 in_63 config_59))" -" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_98 in_63 config_59))))))" +"(let-values()(read-box read-one dispatch-c_5 in_65 config_59))" +" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_106 in_65 config_59))))))" "(if(unsafe-fx< index_5 12)" "(if(unsafe-fx< index_5 9)" "(let-values()" -" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_98 in_63 config_59))" +" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_106 in_65 config_59))" "(if(unsafe-fx< index_5 10)" "(let-values()" -"(let-values(((c2_9)" -"(let-values(((in_65) in_63)" -"((skip-count_16) 0)" -"((source_45)(read-config-source config_59)))" -"(peek-char-or-special in_65 skip-count_16 special1.1 source_45))))" -"(if(eqv? c2_9 '#\\@)" +"(let-values(((c2_8)" +"(let-values(((in_67) in_65)" +"((skip-count_17) 0)" +"((source_47)(read-config-source config_59)))" +"(let-values(((c_107)" +"(peek-char-or-special" +" in_67" +" skip-count_17" +" 'special" +" source_47)))" +"(if(eq? c_107 'special)(special1.1 'special) c_107)))))" +"(if(eqv? c2_8 '#\\@)" "(begin" -"(consume-char in_63 c2_9)" -" (read-quote read-one 'unsyntax-splicing \"unquoting #,@\" c_98 in_63 config_59))" -" (read-quote read-one 'unsyntax \"unquoting #,\" c_98 in_63 config_59))))" +"(consume-char in_65 c2_8)" +"(read-quote" +" read-one" +" 'unsyntax-splicing" +" \"unquoting #,@\"" +" c_106" +" in_65" +" config_59))" +" (read-quote read-one 'unsyntax \"unquoting #,\" c_106 in_65 config_59))))" "(if(unsafe-fx< index_5 11)" -"(let-values()(read-character in_63 config_59))" +"(let-values()(read-character in_65 config_59))" "(let-values()" "(let-values(((temp187_1) '|byte string|))" -"(read-string5.1 temp187_1 #t in_63 config_59))))))" +"(read-string5.1 temp187_1 #t in_65 config_59))))))" "(if(unsafe-fx< index_5 14)" "(if(unsafe-fx< index_5 13)" "(let-values()" -"(let-values(((c2_10)" -"(let-values(((in_66) in_63)" -"((skip-count_17) 0)" -"((source_46)(read-config-source config_59)))" -"(peek-char-or-special in_66 skip-count_17 special1.1 source_46))))" -"(if(eqv? '#\\< c2_10)" +"(let-values(((c2_9)" +"(let-values(((in_68) in_65)" +"((skip-count_18) 0)" +"((source_48)(read-config-source config_59)))" +"(let-values(((c_108)" +"(peek-char-or-special" +" in_68" +" skip-count_18" +" 'special" +" source_48)))" +"(if(eq? c_108 'special)(special1.1 'special) c_108)))))" +"(if(eqv? '#\\< c2_9)" "(let-values()" -"(begin(consume-char in_63 '#\\<)(read-here-string in_63 config_59)))" +"(begin(consume-char in_65 '#\\<)(read-here-string in_65 config_59)))" "(let-values()" -"(let-values(((c2190_0) c2_10)" +"(let-values(((c2190_0) c2_9)" " ((temp191_1) \"bad syntax `~a<`\")" "((dispatch-c192_0) dispatch-c_5))" "(reader-error10.1" @@ -54153,89 +54261,108 @@ static const char *startup_source = " #t" " #f" " #f" -" in_63" +" in_65" " config_59" " temp191_1" "(list dispatch-c192_0)))))))" "(let-values()" "(let-values(((dispatch-c196_0) dispatch-c_5)((temp197_0) 'symbol))" -"(read-symbol-or-number8.1 dispatch-c196_0 #t temp197_0 #t c_98 in_63 config_59))))" +"(read-symbol-or-number8.1" +" dispatch-c196_0" +" #t" +" temp197_0" +" #t" +" c_106" +" in_65" +" config_59))))" "(if(unsafe-fx< index_5 15)" "(let-values()" "(let-values(((temp198_0) #f)" -"((in199_0) in_63)" +"((in199_0) in_65)" "((config200_0) config_59)" "((temp201_0) 'keyword))" "(read-symbol-or-number8.1 #f #f temp201_0 #t temp198_0 in199_0 config200_0)))" "(if(unsafe-fx< index_5 16)" "(let-values()" -"(let-values(((c2_11)" -"(let-values(((in_67) in_63)" -"((skip-count_18) 0)" -"((source_47)(read-config-source config_59)))" -"(peek-char-or-special in_67 skip-count_18 special1.1 source_47))))" -"(if(char-delimiter? c2_11 config_59)" -"(let-values()(wrap #t in_63 config_59 c_98))" +"(let-values(((c2_10)" +"(let-values(((in_69) in_65)" +"((skip-count_19) 0)" +"((source_49)(read-config-source config_59)))" +"(let-values(((c_109)" +"(peek-char-or-special" +" in_69" +" skip-count_19" +" 'special" +" source_49)))" +"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" +"(if(char-delimiter? c2_10 config_59)" +"(let-values()(wrap #t in_65 config_59 c_106))" "(let-values()" "(read-delimited-constant" -" c_98" -"(char=? c_98 '#\\t)" +" c_106" +"(char=? c_106 '#\\t)" " '(#\\r #\\u #\\e)" " #t" -" in_63" +" in_65" " config_59)))))" "(let-values()" -"(let-values(((c2_12)" -"(let-values(((in_68) in_63)" -"((skip-count_19) 0)" -"((source_48)(read-config-source config_59)))" -"(peek-char-or-special in_68 skip-count_19 special1.1 source_48))))" -"(if(char-delimiter? c2_12 config_59)" -"(let-values()(wrap #f in_63 config_59 c_98))" -"(if(let-values(((or-part_356)(char=? c2_12 '#\\x)))" -"(if or-part_356 or-part_356(char=? c2_12 '#\\l)))" +"(let-values(((c2_11)" +"(let-values(((in_70) in_65)" +"((skip-count_20) 0)" +"((source_50)(read-config-source config_59)))" +"(let-values(((c_110)" +"(peek-char-or-special" +" in_70" +" skip-count_20" +" 'special" +" source_50)))" +"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" +"(if(char-delimiter? c2_11 config_59)" +"(let-values()(wrap #f in_65 config_59 c_106))" +"(if(let-values(((or-part_340)(char=? c2_11 '#\\x)))" +"(if or-part_340 or-part_340(char=? c2_11 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" " dispatch-c_5" -" c_98" -" c2_12" -" in_63" +" c_106" +" c2_11" +" in_65" " config_59))" "(let-values()" "(read-delimited-constant" -" c_98" -"(char=? c_98 '#\\f)" +" c_106" +"(char=? c_106 '#\\f)" " '(#\\a #\\l #\\s #\\e)" " #f" -" in_63" +" in_65" " config_59)))))))))))" "(if(unsafe-fx< index_5 26)" "(if(unsafe-fx< index_5 21)" "(if(unsafe-fx< index_5 18)" "(let-values()" "(let-values(((temp202_0) #f)" -"((in203_0) in_63)" +"((in203_0) in_65)" "((config204_0) config_59)" " ((temp205_0) \"#e\"))" "(read-symbol-or-number8.1 #f #f temp205_0 #t temp202_0 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" "(let-values(((temp206_0) #f)" -"((in207_0) in_63)" +"((in207_0) in_65)" "((config208_0) config_59)" " ((temp209_0) \"#E\"))" "(read-symbol-or-number8.1 #f #f temp209_0 #t temp206_0 in207_0 config208_0)))" "(if(unsafe-fx< index_5 20)" "(let-values()" "(let-values(((temp210_0) #f)" -"((in211_0) in_63)" +"((in211_0) in_65)" "((config212_0) config_59)" " ((temp213_0) \"#i\"))" "(read-symbol-or-number8.1 #f #f temp213_0 #t temp210_0 in211_0 config212_0)))" "(let-values()" "(let-values(((temp214_0) #f)" -"((in215_0) in_63)" +"((in215_0) in_65)" "((config216_0) config_59)" " ((temp217_0) \"#I\"))" "(read-symbol-or-number8.1 #f #f temp217_0 #t temp214_0 in215_0 config216_0))))))" @@ -54243,33 +54370,33 @@ static const char *startup_source = "(if(unsafe-fx< index_5 22)" "(let-values()" "(let-values(((temp218_0) #f)" -"((in219_0) in_63)" +"((in219_0) in_65)" "((config220_0) config_59)" " ((temp221_1) \"#d\"))" "(read-symbol-or-number8.1 #f #f temp221_1 #t temp218_0 in219_0 config220_0)))" "(let-values()" "(let-values(((temp222_0) #f)" -"((in223_0) in_63)" +"((in223_0) in_65)" "((config224_0) config_59)" " ((temp225_1) \"#B\"))" "(read-symbol-or-number8.1 #f #f temp225_1 #t temp222_0 in223_0 config224_0))))" "(if(unsafe-fx< index_5 24)" "(let-values()" "(let-values(((temp226_1) #f)" -"((in227_0) in_63)" +"((in227_0) in_65)" "((config228_0) config_59)" " ((temp229_1) \"#o\"))" "(read-symbol-or-number8.1 #f #f temp229_1 #t temp226_1 in227_0 config228_0)))" "(if(unsafe-fx< index_5 25)" "(let-values()" "(let-values(((temp230_0) #f)" -"((in231_0) in_63)" +"((in231_0) in_65)" "((config232_0) config_59)" " ((temp233_1) \"#O\"))" "(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_0 in231_0 config232_0)))" "(let-values()" "(let-values(((temp234_0) #f)" -"((in235_0) in_63)" +"((in235_0) in_65)" "((config236_0) config_59)" " ((temp237_1) \"#D\"))" "(read-symbol-or-number8.1" @@ -54284,44 +54411,44 @@ static const char *startup_source = "(if(unsafe-fx< index_5 27)" "(let-values()" "(let-values(((temp238_0) #f)" -"((in239_0) in_63)" +"((in239_0) in_65)" "((config240_0) config_59)" " ((temp241_1) \"#b\"))" "(read-symbol-or-number8.1 #f #f temp241_1 #t temp238_0 in239_0 config240_0)))" "(if(unsafe-fx< index_5 28)" "(let-values()" "(let-values(((temp242_0) #f)" -"((in243_0) in_63)" +"((in243_0) in_65)" "((config244_0) config_59)" " ((temp245_0) \"#x\"))" "(read-symbol-or-number8.1 #f #f temp245_0 #t temp242_0 in243_0 config244_0)))" "(if(unsafe-fx< index_5 29)" "(let-values()" "(let-values(((temp246_0) #f)" -"((in247_0) in_63)" +"((in247_0) in_65)" "((config248_0) config_59)" " ((temp249_0) \"#X\"))" "(read-symbol-or-number8.1 #f #f temp249_0 #t temp246_0 in247_0 config248_0)))" "(let-values()" -"(let-values(((c2_13)" -"(let-values(((in_69) in_63)" -"((source_49)(read-config-source config_59)))" -"(read-char-or-special in_69 special1.1 source_49))))" -"(let-values(((tmp_57) c2_13))" +"(let-values(((c2_12)" +"(let-values(((in_71) in_65)" +"((source_51)(read-config-source config_59)))" +"(read-char-or-special in_71 special1.1 source_51))))" +"(let-values(((tmp_57) c2_12))" "(if(if(equal? tmp_57 '#\\s) #t(equal? tmp_57 '#\\S))" "(let-values()" -"(read-one #f in_63(override-parameter read-case-sensitive config_59 #t)))" +"(read-one #f in_65(override-parameter read-case-sensitive config_59 #t)))" "(if(if(equal? tmp_57 '#\\i) #t(equal? tmp_57 '#\\I))" "(let-values()" "(read-one" " #f" -" in_63" +" in_65" "(override-parameter read-case-sensitive config_59 #f)))" "(let-values()" -"(let-values(((c2252_0) c2_13)" +"(let-values(((c2252_0) c2_12)" " ((temp253_0) \"expected `s', `S`, `i', or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" -"((c255_0) c_98))" +"((c255_0) c_106))" "(reader-error10.1" " #f" " #f" @@ -54329,38 +54456,38 @@ static const char *startup_source = " #t" " #f" " #f" -" in_63" +" in_65" " config_59" " temp253_0" "(list dispatch-c254_0 c255_0))))))))))))" "(if(unsafe-fx< index_5 32)" "(if(unsafe-fx< index_5 31)" -"(let-values()(read-hash read-one dispatch-c_5 c_98 in_63 config_59))" +"(let-values()(read-hash read-one dispatch-c_5 c_106 in_65 config_59))" "(let-values()" "(let-values(((accum-str_12)(accum-string-init! config_59)))" "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_12 c_98)(values))))" -"(let-values(((c2_14)" -"(let-values(((in_70) in_63)" -"((source_50)(read-config-source config_59)))" -"(read-char-or-special in_70 special1.1 source_50))))" +"(let-values((()(begin(accum-string-add! accum-str_12 c_106)(values))))" +"(let-values(((c2_13)" +"(let-values(((in_72) in_65)" +"((source_52)(read-config-source config_59)))" +"(read-char-or-special in_72 special1.1 source_52))))" "(begin" -"(if(char? c2_14)" -"(let-values()(accum-string-add! accum-str_12 c2_14))" +"(if(char? c2_13)" +"(let-values()(accum-string-add! accum-str_12 c2_13))" "(void))" -"(let-values(((tmp_58) c2_14))" +"(let-values(((tmp_58) c2_13))" "(if(equal? tmp_58 '#\\x)" -"(let-values()(read-regexp c_98 accum-str_12 in_63 config_59))" +"(let-values()(read-regexp c_106 accum-str_12 in_65 config_59))" "(if(equal? tmp_58 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" " read-undotted" " dispatch-c_5" -" in_63" +" in_65" " config_59))" "(let-values()" -"(let-values(((c2258_0) c2_14)" +"(let-values(((c2258_0) c2_13)" "((temp259_0)" "(let-values(((accum-str260_0) accum-str_12)" "((config261_0) config_59))" @@ -54372,27 +54499,27 @@ static const char *startup_source = "(bad-syntax-error18.1" " c2258_0" " #t" -" in_63" +" in_65" " config_59" " temp259_0)))))))))))))" "(if(unsafe-fx< index_5 33)" "(let-values()" "(let-values(((accum-str_13)(accum-string-init! config_59)))" "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_13 c_98)(values))))" -"(let-values(((c2_15)" -"(let-values(((in_71) in_63)" -"((source_51)(read-config-source config_59)))" -"(read-char-or-special in_71 special1.1 source_51))))" +"(let-values((()(begin(accum-string-add! accum-str_13 c_106)(values))))" +"(let-values(((c2_14)" +"(let-values(((in_73) in_65)" +"((source_53)(read-config-source config_59)))" +"(read-char-or-special in_73 special1.1 source_53))))" "(begin" -"(if(char? c2_15)" -"(let-values()(accum-string-add! accum-str_13 c2_15))" +"(if(char? c2_14)" +"(let-values()(accum-string-add! accum-str_13 c2_14))" "(void))" -"(let-values(((tmp_59) c2_15))" -"(if(equal? tmp_59 '#\\x)" -"(let-values()(read-regexp c_98 accum-str_13 in_63 config_59))" +"(let-values(((tmp_13) c2_14))" +"(if(equal? tmp_13 '#\\x)" +"(let-values()(read-regexp c_106 accum-str_13 in_65 config_59))" "(let-values()" -"(let-values(((c2264_0) c2_15)" +"(let-values(((c2264_0) c2_14)" "((temp265_0)" "(let-values(((accum-str266_0) accum-str_13)" "((config267_0) config_59))" @@ -54404,14 +54531,14 @@ static const char *startup_source = "(bad-syntax-error18.1" " c2264_0" " #t" -" in_63" +" in_65" " config_59" " temp265_0)))))))))))" "(if(unsafe-fx< index_5 34)" "(let-values()" "(let-values(((read-undotted268_0) read-undotted)" "((dispatch-c269_0) dispatch-c_5)" -"((in270_0) in_63)" +"((in270_0) in_65)" "((config271_0) config_59))" "(read-extension-lang7.1" " #f" @@ -54424,7 +54551,7 @@ static const char *startup_source = "(let-values()" "(let-values(((read-undotted272_0) read-undotted)" "((dispatch-c273_0) dispatch-c_5)" -"((in274_0) in_63)" +"((in274_0) in_65)" "((config275_0) config_59))" "(read-extension-#!16.1" " #f" @@ -54436,9 +54563,9 @@ static const char *startup_source = "(let-values()" "(if(check-parameter 1/read-accept-compiled config_59)" "(let-values()" -"(wrap((read-config-read-compiled config_59) in_63) in_63 config_59 c_98))" +"(wrap((read-config-read-compiled config_59) in_65) in_65 config_59 c_106))" "(let-values()" -"(let-values(((in276_0) in_63)" +"(let-values(((in276_0) in_65)" "((config277_0) config_59)" " ((temp278_0) \"`~a~~` compiled expressions not enabled\")" "((dispatch-c279_0) dispatch-c_5))" @@ -54455,11 +54582,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_241 in_72 config_60)" +"(lambda(v_244 in_74 config_60)" "(begin" -"(if(1/special-comment? v_241)" -"(let-values()(if(read-config-keep-comment? config_60) v_241(read-undotted #f in_72 config_60)))" -"(let-values() v_241)))))" +"(if(1/special-comment? v_244)" +"(let-values()(if(read-config-keep-comment? config_60) v_244(read-undotted #f in_74 config_60)))" +"(let-values() v_244)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -54477,10 +54604,10 @@ static const char *startup_source = "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" "(let-values(((ns_110)(1/current-namespace)))" -"(let-values(((name_68)" +"(let-values(((name_69)" "(let-values(((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod_4))))" -"(if(namespace->module ns_110 name_68) #t #f)))))))))))" +"(if(namespace->module ns_110 name_69) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -54686,13 +54813,13 @@ static const char *startup_source = " \"namespace?\"" " ns_112)))" "(values))))" -"(let-values(((name_69)" +"(let-values(((name_70)" "(let-values(((temp50_4) #f))" "(reference->resolved-module-path32.1 temp50_4 mod_21))))" "(let-values(((phase_95)(namespace-phase ns_112)))" "(let-values(((m-ns_18)" "(let-values(((ns51_1) ns_112)" -"((name52_0) name_69)" +"((name52_0) name_70)" "((phase53_0) phase_95))" "(namespace->module-namespace82.1" " #f" @@ -54712,7 +54839,7 @@ static const char *startup_source = " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_69)))" +" name_70)))" "(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" "(let-values()" "(set-namespace-inspector!" @@ -54755,28 +54882,28 @@ static const char *startup_source = "(1/module-path-index-resolve mpi_47 load?_6))))))))))" "(define-values" "(read-syntax$1)" -"(lambda(src_0 in_73)" +"(lambda(src_0 in_75)" "(begin" " 'read-syntax" -"(if(default-read-handler? in_73)" +"(if(default-read-handler? in_75)" "(let-values()" "(begin" -"(maybe-flush-stdout in_73)" +"(maybe-flush-stdout in_75)" "(let-values(((temp24_11) #t)((src25_0) src_0))" -"(read*14.1 temp24_11 #f #f #f #f #f #f #f #f src25_0 #t in_73))))" -"(let-values()(values((port-read-handler in_73) in_73 src_0)))))))" +"(read*14.1 temp24_11 #f #f #f #f #f #f #f #f src25_0 #t in_75))))" +"(let-values()(values((port-read-handler in_75) in_75 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" -"(lambda(src_1 in_49 start_42 readtable_4 graph?_1)" +"(lambda(src_1 in_51 start_42 readtable_4 graph?_1)" "(begin" " 'read-syntax/recursive" -"(let-values(((temp27_8) #t)" +"(let-values(((temp27_7) #t)" "((temp28_4) #t)" "((src29_0) src_1)" "((start30_0) start_42)" "((readtable31_1) readtable_4)" -"((temp32_4)(not graph?_1)))" -"(read*14.1 temp27_8 start30_0 #t temp32_4 #t readtable31_1 #t temp28_4 #t src29_0 #t in_49)))))" +"((temp32_5)(not graph?_1)))" +"(read*14.1 temp27_7 start30_0 #t temp32_5 #t readtable31_1 #t temp28_4 #t src29_0 #t in_51)))))" "(define-values" "(read$1)" "(lambda(in_10)" @@ -54790,7 +54917,7 @@ static const char *startup_source = "(let-values()(values((port-read-handler in_10) in_10)))))))" "(define-values" "(read/recursive$1)" -"(lambda(in_74 start_58 readtable_5 graph?_2)" +"(lambda(in_76 start_58 readtable_5 graph?_2)" "(begin" " 'read/recursive" "(let-values(((temp36_6) #f)" @@ -54798,7 +54925,7 @@ static const char *startup_source = "((start38_0) start_58)" "((readtable39_0) readtable_5)" "((temp40_3)(not graph?_2)))" -"(read*14.1 temp36_6 start38_0 #t temp40_3 #t readtable39_0 #t temp37_3 #t #f #f in_74)))))" +"(read*14.1 temp36_6 start38_0 #t temp40_3 #t readtable39_0 #t temp37_3 #t #f #f in_76)))))" "(define-values" "(read*14.1)" "(lambda(for-syntax?1_0" @@ -54815,20 +54942,20 @@ static const char *startup_source = " in13_1)" "(begin" " 'read*14" -"(let-values(((in_14) in13_1))" +"(let-values(((in_77) in13_1))" "(let-values(((for-syntax?_11) for-syntax?1_0))" "(let-values(((recursive?_1)(if recursive?8_0 recursive?2_0 #f)))" -"(let-values(((source_34)(if source9_0 source3_0 #f)))" -"(let-values(((init-c_17)(if init-c10_0 init-c4_0 #f)))" +"(let-values(((source_54)(if source9_0 source3_0 #f)))" +"(let-values(((init-c_16)(if init-c10_0 init-c4_0 #f)))" "(let-values(((readtable_6)(if readtable11_0 readtable5_0(1/current-readtable))))" "(let-values(((local-graph?_2)(if local-graph?12_0 local-graph?6_1 #f)))" "(let-values()" "(let-values()" "(let-values(((for-syntax?42_0) for-syntax?_11)" "((recursive?43_0) recursive?_1)" -"((source44_0) source_34)" +"((source44_0) source_54)" "((temp45_2)(if for-syntax?_11 read-to-syntax #f))" -"((init-c46_0) init-c_17)" +"((init-c46_0) init-c_16)" "((readtable47_0) readtable_6)" "((local-graph?48_0) local-graph?_2)" "((read-compiled-linklet49_0) 1/read-compiled-linklet)" @@ -54865,10 +54992,10 @@ static const char *startup_source = " #t" " temp45_2" " #t" -" in_14))))))))))))))" +" in_77))))))))))))))" "(define-values" "(read-language$1)" -"(lambda(in_75 fail-thunk_0)" +"(lambda(in_78 fail-thunk_0)" "(begin" " 'read-language" "(let-values(((temp56_1) #t)" @@ -54893,7 +55020,7 @@ static const char *startup_source = " #t" " read-to-syntax57_0" " #t" -" in_75" +" in_78" " fail-thunk_0)))))" "(define-values" "(read-to-syntax)" @@ -54904,10 +55031,10 @@ static const char *startup_source = "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_10)" "((props65_0)" -"(let-values(((tmp_60) rep_1))" -"(if(equal? tmp_60 '#\\[)" +"(let-values(((tmp_59) rep_1))" +"(if(equal? tmp_59 '#\\[)" "(let-values() original-square-props)" -"(if(equal? tmp_60 '#\\{)" +"(if(equal? tmp_59 '#\\{)" "(let-values() original-curly-props)" "(let-values() original-props))))))" "(syntax1.1" @@ -54930,11 +55057,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_242 srcloc_11)" +"(lambda(for-syntax?_12 v_245 srcloc_11)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_242)(let-values()(syntax->datum$1 v_242))(let-values() v_242)))" -"(let-values()(datum->syntax$1 #f v_242(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))" +"(let-values()(if(syntax?$1 v_245)(let-values()(syntax->datum$1 v_245))(let-values() v_245)))" +"(let-values()(datum->syntax$1 #f v_245(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -54942,19 +55069,19 @@ static const char *startup_source = "(define-values(default-read-handler) #f)" "(define-values" "(default-read-handler?)" -"(lambda(in_76)" +"(lambda(in_79)" "(begin" "(if(not default-read-handler)" -"(let-values()(begin(set! default-read-handler(port-read-handler in_76)) #t))" -"(let-values()(eq? default-read-handler(port-read-handler in_76)))))))" +"(let-values()(begin(set! default-read-handler(port-read-handler in_79)) #t))" +"(let-values()(eq? default-read-handler(port-read-handler in_79)))))))" "(define-values(orig-input-port)(current-input-port))" "(define-values(orig-output-port)(current-output-port))" "(define-values(orig-error-port)(current-error-port))" "(define-values" "(maybe-flush-stdout)" -"(lambda(in_77)" +"(lambda(in_80)" "(begin" -"(if(eq? in_77 orig-input-port)" +"(if(eq? in_80 orig-input-port)" "(let-values()(begin(flush-output orig-output-port)(flush-output orig-error-port)))" "(void)))))" "(define-values" @@ -54988,13 +55115,13 @@ static const char *startup_source = "(begin" " 'read-syntax5" "(let-values(((src_0)(if src3_0 src1_0(object-name(current-input-port)))))" -"(let-values(((in_73)(if in4_2 in2_0(current-input-port))))" +"(let-values(((in_75)(if in4_2 in2_0(current-input-port))))" "(let-values()" "(begin" -"(if(input-port? in_73)" +"(if(input-port? in_75)" "(void)" -" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_73)))" -"(read-syntax$1 src_0 in_73)))))))))" +" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_75)))" +"(read-syntax$1 src_0 in_75)))))))))" "(case-lambda" "(()(begin 'read-syntax(read-syntax5_0 #f #f #f #f)))" "((src_2 in2_1)(read-syntax5_0 src_2 in2_1 #t #t))" @@ -55015,15 +55142,15 @@ static const char *startup_source = "(begin" " 'read-syntax/recursive17" "(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))" -"(let-values(((in_74)(if in13_2 in8_1(current-input-port))))" +"(let-values(((in_76)(if in13_2 in8_1(current-input-port))))" "(let-values(((start_58)(if start14_0 start9_0 #f)))" "(let-values(((readtable_5)(if readtable15_0 readtable10_0(1/current-readtable))))" "(let-values(((graph?_2)(if graph?16_0 graph?11_0 #t)))" "(let-values()" "(begin" -"(if(input-port? in_74)" +"(if(input-port? in_76)" "(void)" -" (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_74)))" +" (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_76)))" "(if(let-values(((or-part_259)(char? start_58)))" "(if or-part_259 or-part_259(not start_58)))" "(void)" @@ -55034,14 +55161,14 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_5)))" -"(read-syntax/recursive$1 src_3 in_74 start_58 readtable_5 graph?_2))))))))))))" +"(read-syntax/recursive$1 src_3 in_76 start_58 readtable_5 graph?_2))))))))))))" "(case-lambda" "(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))" -"((src_4 in_21 start_59 readtable_7 graph?11_1)" -"(read-syntax/recursive17_0 src_4 in_21 start_59 readtable_7 graph?11_1 #t #t #t #t #t))" -"((src_5 in_78 start_60 readtable10_1)" -"(read-syntax/recursive17_0 src_5 in_78 start_60 readtable10_1 #f #t #t #t #t #f))" -"((src_6 in_13 start9_1)(read-syntax/recursive17_0 src_6 in_13 start9_1 #f #f #t #t #t #f #f))" +"((src_4 in_12 start_59 readtable_7 graph?11_1)" +"(read-syntax/recursive17_0 src_4 in_12 start_59 readtable_7 graph?11_1 #t #t #t #t #t))" +"((src_5 in_81 start_60 readtable10_1)" +"(read-syntax/recursive17_0 src_5 in_81 start_60 readtable10_1 #f #t #t #t #t #f))" +"((src_6 in_82 start9_1)(read-syntax/recursive17_0 src_6 in_82 start9_1 #f #f #t #t #t #f #f))" "((src_7 in8_2)(read-syntax/recursive17_0 src_7 in8_2 #f #f #f #t #t #f #f #f))" "((src7_1)(read-syntax/recursive17_0 src7_1 #f #f #f #f #t #f #f #f #f)))))" "(define-values" @@ -55050,13 +55177,13 @@ static const char *startup_source = "(lambda(in19_0 in20_2)" "(begin" " 'read21" -"(let-values(((in_79)(if in20_2 in19_0(current-input-port))))" +"(let-values(((in_24)(if in20_2 in19_0(current-input-port))))" "(let-values()" "(begin" -"(if(input-port? in_79)" +"(if(input-port? in_24)" "(void)" -" (let-values () (raise-argument-error 'read \"input-port?\" in_79)))" -"(read$1 in_79))))))))" +" (let-values () (raise-argument-error 'read \"input-port?\" in_24)))" +"(read$1 in_24))))))))" "(case-lambda(()(begin 'read(read21_0 #f #f)))((in19_1)(read21_0 in19_1 #t)))))" "(define-values" "(1/read/recursive)" @@ -55064,15 +55191,15 @@ static const char *startup_source = "(lambda(in23_1 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" "(begin" " 'read/recursive31" -"(let-values(((in_15)(if in27_2 in23_1(current-input-port))))" +"(let-values(((in_83)(if in27_2 in23_1(current-input-port))))" "(let-values(((start_61)(if start28_1 start24_0 #f)))" "(let-values(((readtable_8)(if readtable29_0 readtable25_0(1/current-readtable))))" "(let-values(((graph?_3)(if graph?30_0 graph?26_0 #t)))" "(let-values()" "(begin" -"(if(input-port? in_15)" +"(if(input-port? in_83)" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_15)))" +" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_83)))" "(if(let-values(((or-part_168)(char? start_61)))" "(if or-part_168 or-part_168(not start_61)))" "(void)" @@ -55082,12 +55209,12 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_8)))" -"(read/recursive$1 in_15 start_61 readtable_8 graph?_3)))))))))))" +"(read/recursive$1 in_83 start_61 readtable_8 graph?_3)))))))))))" "(case-lambda" "(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))" -"((in_16 start_62 readtable_9 graph?26_1)(read/recursive31_0 in_16 start_62 readtable_9 graph?26_1 #t #t #t #t))" -"((in_34 start_63 readtable25_1)(read/recursive31_0 in_34 start_63 readtable25_1 #f #t #t #t #f))" -"((in_80 start24_1)(read/recursive31_0 in_80 start24_1 #f #f #t #t #f #f))" +"((in_35 start_62 readtable_9 graph?26_1)(read/recursive31_0 in_35 start_62 readtable_9 graph?26_1 #t #t #t #t))" +"((in_17 start_63 readtable25_1)(read/recursive31_0 in_17 start_63 readtable25_1 #f #t #t #t #f))" +"((in_43 start24_1)(read/recursive31_0 in_43 start24_1 #f #f #t #t #f #f))" "((in23_2)(read/recursive31_0 in23_2 #f #f #f #t #f #f #f)))))" "(define-values" "(1/read-language)" @@ -55111,7 +55238,7 @@ static const char *startup_source = "(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))" "(case-lambda" "(()(begin 'read-language(read-language37_0 #f #f #f #f)))" -"((in_81 fail-thunk34_1)(read-language37_0 in_81 fail-thunk34_1 #t #t))" +"((in_84 fail-thunk34_1)(read-language37_0 in_84 fail-thunk34_1 #t #t))" "((in33_2)(read-language37_0 in33_2 #f #t #f)))))" " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" @@ -55194,9 +55321,9 @@ static const char *startup_source = "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" "(define-values" "(declare-primitive-module!)" -"(lambda(name_70 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_71 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_70) #f)))" +"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_71) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_6)(1/current-module-declare-source))" @@ -55228,7 +55355,7 @@ static const char *startup_source = "(let-values(((binding_27)" "(let-values(((mpi10_0)" " mpi_48)" -"((temp11_5)" +"((temp11_6)" " 0)" "((sym12_0)" " sym_93))" @@ -55252,7 +55379,7 @@ static const char *startup_source = " #f" " #f" " mpi10_0" -" temp11_5" +" temp11_6" " sym12_0))))" "(values" " sym_93" @@ -55359,7 +55486,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp3_9)(substitute-module-declare-name name_70)))" +"((temp3_9)(substitute-module-declare-name name_71)))" "(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))" "(define-values" "(1/prop:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" @@ -55437,7 +55564,7 @@ static const char *startup_source = " v_180))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_71 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" "(let-values(((path_11)(1/current-module-path-for-load)))" "(if path_11" @@ -55453,7 +55580,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_71)" +"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_72)" "(syntax->datum$1 path_11)" " filename_0" " pre_0" @@ -55472,7 +55599,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_71" +" name_72" " path_11" " filename_0" " pre_0" @@ -56564,8 +56691,8 @@ static const char *startup_source = " name25_0)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_72) name25_0))" -"(let-values(((to-name_0)(if to18_0 to11_0 name_72)))" +"(let-values(((name_73) name25_0))" +"(let-values(((to-name_0)(if to18_0 to11_0 name_73)))" "(let-values(((ns_118) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" @@ -56573,7 +56700,7 @@ static const char *startup_source = "(let-values(((primitive?_9)(if primitive?23_0 primitive?16_0 #t)))" "(let-values(((protected?_2)(if protected?24_0 protected?17_0 #f)))" "(let-values()" -"(let-values(((prims_0)(1/primitive-table name_72)))" +"(let-values(((prims_0)(1/primitive-table name_73)))" "(let-values((()" "(begin" "(let-values(((ht_154) prims_0))" @@ -56666,7 +56793,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_263)" +"((letrec-values(((for-loop_262)" "(lambda(ht_158 i_180)" "(begin" " 'for-loop" @@ -56686,12 +56813,12 @@ static const char *startup_source = " v_40))))" "(values ht_160)))))" "(if(not #f)" -"(for-loop_263" +"(for-loop_262" " ht_159" "(hash-iterate-next ht_157 i_180))" " ht_159)))" " ht_158)))))" -" for-loop_263)" +" for-loop_262)" " ht_155" "(hash-iterate-first ht_157))))))" "(let-values(((ns63_0) ns_118)" @@ -56724,7 +56851,7 @@ static const char *startup_source = " ht40_0)" "(begin" " 'declare-hash-based-module!41" -"(let-values(((name_73) name39_0))" +"(let-values(((name_74) name39_0))" "(let-values(((ht_161) ht40_0))" "(let-values(((ns_119) namespace29_0))" "(let-values(((primitive?_6)(if primitive?35_0 primitive?30_0 #f)))" @@ -56732,7 +56859,7 @@ static const char *startup_source = "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" -"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_73) #f)))" +"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_74) #f)))" "(let-values(((ns66_1) ns_119)" "((temp67_3)" "(let-values(((temp69_5) #t)" @@ -56850,7 +56977,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_263)" "(lambda(i_182)" "(begin" " 'for-loop" @@ -56873,13 +57000,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_264" +"(for-loop_263" "(hash-iterate-next" " ht_125" " i_182))" "(values))))" "(values))))))" -" for-loop_264)" +" for-loop_263)" "(hash-iterate-first ht_125))))" "(void)))" "(void)))))" @@ -56924,12 +57051,12 @@ static const char *startup_source = "(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_0 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_74) name48_0))" +"(let-values(((name_75) name48_0))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" "(let-values(((ns_121) namespace45_0))" "(let-values()" -"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" "(let-values(((lst_150) require-names_0))" @@ -56938,12 +57065,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_150)))" "((letrec-values(((for-loop_244)" -"(lambda(fold-var_273 lst_306)" +"(lambda(fold-var_273 lst_305)" "(begin" " 'for-loop" -"(if(pair? lst_306)" -"(let-values(((require-name_0)(unsafe-car lst_306))" -"((rest_175)(unsafe-cdr lst_306)))" +"(if(pair? lst_305)" +"(let-values(((require-name_0)(unsafe-car lst_305))" +"((rest_175)(unsafe-cdr lst_305)))" "(let-values(((fold-var_138)" "(let-values(((fold-var_274) fold-var_273))" "(let-values(((fold-var_275)" @@ -56974,20 +57101,20 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_307) require-mpis_0))" +"(let-values(((lst_306) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" +"(let-values()(check-list lst_306)))" "((letrec-values(((for-loop_120)" -"(lambda(table_211 lst_308)" +"(lambda(table_211 lst_307)" "(begin" " 'for-loop" -"(if(pair? lst_308)" +"(if(pair? lst_307)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_308))" +"(unsafe-car lst_307))" "((rest_176)" -"(unsafe-cdr lst_308)))" +"(unsafe-cdr lst_307)))" "(let-values(((table_212)" "(let-values(((m_29)" "(namespace->module" @@ -56996,7 +57123,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(table_213)" "(begin" " 'for-loop" @@ -57060,7 +57187,7 @@ static const char *startup_source = "(hash-iterate-first" " ht_163))))))" " table_214))))))" -" for-loop_265)" +" for-loop_264)" " table_211)))))" "(if(not #f)" "(for-loop_120 table_212 rest_176)" @@ -57068,7 +57195,7 @@ static const char *startup_source = " table_211)))))" " for-loop_120)" " '#hash()" -" lst_307))))" +" lst_306))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -57537,9 +57664,9 @@ static const char *startup_source = "(lambda()" "(let-values(((c1_30)(linklet-directory-start i_184)))" "(if c1_30" -"((lambda(pos_119)" +"((lambda(pos_120)" "(let-values(((b-pos_0)" -"(search-directory i_184 pos_119(encode-symbols expected-mod_0))))" +"(search-directory i_184 pos_120(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" @@ -57568,9 +57695,9 @@ static const char *startup_source = " c1_30)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_16)(cached-bundle i_184)))" -"(if c2_16" -"((lambda(thunk_6) thunk_6) c2_16)" +"(let-values(((c2_15)(cached-bundle i_184)))" +"(if c2_15" +"((lambda(thunk_6) thunk_6) c2_15)" "(let-values()" "(let-values(((s_170)(1/read-syntax(object-name i_184) i_184)))" "(let-values((()" @@ -57616,7 +57743,7 @@ static const char *startup_source = " 'temp2" "(begin" "(maybe-count-lines!_0 i_74)" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_118)" "(lambda(vals_7)" "(begin" " 'loop" @@ -57652,7 +57779,7 @@ static const char *startup_source = " i_74))))))" "(if(eof-object? s_302)" "(apply values vals_7)" -"(loop_119" +"(loop_118" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" @@ -57665,7 +57792,7 @@ static const char *startup_source = " abort-current-continuation" "(default-continuation-prompt-tag)" " args_10))))))))))" -" loop_119)" +" loop_118)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))" "(define-values" @@ -57700,11 +57827,11 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_220)" -"(lambda(result_116 pos_120)" +"(lambda(result_116 pos_121)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_120 len_40)" -"(let-values(((c_52)(unsafe-bytes-ref vec_66 pos_120)))" +"(if(unsafe-fx< pos_121 len_40)" +"(let-values(((c_52)(unsafe-bytes-ref vec_66 pos_121)))" "(let-values(((result_117)" "(let-values()" "(let-values(((result_118)" @@ -57712,7 +57839,7 @@ static const char *startup_source = "(let-values()(not(eq? c_52 0))))))" "(values result_118)))))" "(if(if(not((lambda x_90 result_117) c_52))(not #f) #f)" -"(for-loop_220 result_117(unsafe-fx+ 1 pos_120))" +"(for-loop_220 result_117(unsafe-fx+ 1 pos_121))" " result_117)))" " result_116)))))" " for-loop_220)" @@ -57738,7 +57865,7 @@ static const char *startup_source = "(lambda(i_187)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_243)(read-byte i_187)))(if(eof-object? v_243) 0 v_243))))))" +"(let-values(((v_246)(read-byte i_187)))(if(eof-object? v_246) 0 v_246))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -57746,16 +57873,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_188 pos_121 bstr_5)" +"(lambda(i_188 pos_122 bstr_5)" "(begin" -"(if(zero? pos_121)" +"(if(zero? pos_122)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_188 pos_121)(values))))" +"(let-values((()(begin(file-position i_188 pos_122)(values))))" "(let-values(((name-len_0)(read-number i_188)))" -"(let-values(((v_244)(read-bytes name-len_0 i_188)))" +"(let-values(((v_247)(read-bytes name-len_0 i_188)))" "(begin" -"(if(if(bytes? v_244)(=(bytes-length v_244) name-len_0) #f)" +"(if(if(bytes? v_247)(=(bytes-length v_247) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -57767,12 +57894,12 @@ static const char *startup_source = " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" "(object-name i_188)" -" pos_121" +" pos_122" " name-len_0" -" v_244)))" -"(if(bytes=? bstr_5 v_244)" +" v_247)))" +"(if(bytes=? bstr_5 v_247)" "(let-values()(read-number i_188))" -"(if(bytes=?_0" " modes_3" @@ -58083,7 +58210,7 @@ static const char *startup_source = " alt-so_0" " alt-path-d_0)" " #f)))" -"(if c2_17" +"(if c2_16" "((lambda(so-d_1)" "(with-continuation-mark" " parameterization-key" @@ -58099,7 +58226,7 @@ static const char *startup_source = "((current-load-extension)" "(car so-d_1)" " expect-module_0))))))" -" c2_17)" +" c2_16)" "(let-values(((c3_10)" "(if try-main?_0" "(date>=?_0" @@ -58112,7 +58239,7 @@ static const char *startup_source = "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_75" +" name_76" " ns-hts_0" "(car zo-d_0)" " #f" @@ -58144,7 +58271,7 @@ static const char *startup_source = "((lambda(zo-d_1)" "(begin" "(register-zo-path" -" name_75" +" name_76" " ns-hts_0" "(car zo-d_1)" " alt-path_0" @@ -58204,8 +58331,8 @@ static const char *startup_source = "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_26)" -"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_26)))(void)))))" +"(lambda(name_77 ns-hts_1 path_17 src-path_0 base_26)" +"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_77(list path_17 src-path_0 base_26)))(void)))))" "(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))" "(define-values(-module-hash-table-table)(make-weak-hasheq))" "(define-values" @@ -58246,7 +58373,7 @@ static const char *startup_source = "(lambda(s_467 coll-mode?_0)" "(begin" "(let-values(((l_19)" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_119)" "(lambda(s_472)" "(begin" " 'loop" @@ -58261,11 +58388,11 @@ static const char *startup_source = "(let-values()" "(cons" "(substring s_472 0 i_190)" -"(loop_120(substring s_472(add1 i_190)))))" +"(loop_119(substring s_472(add1 i_190)))))" "(let-values()(iloop_2(add1 i_190)))))))))" " iloop_2)" " 0))))))" -" loop_120)" +" loop_119)" " s_467)))" "(if coll-mode?_0" " l_19" @@ -58275,8 +58402,8 @@ static const char *startup_source = " 'loop" "(if(null?(cdr l_79))" "(values null(car l_79))" -"(let-values(((c_99 f_39)(loop_96(cdr l_79))))" -"(values(cons(car l_79) c_99) f_39)))))))" +"(let-values(((c_111 f_39)(loop_96(cdr l_79))))" +"(values(cons(car l_79) c_111) f_39)))))))" " loop_96)" " l_19))))))" "(define-values" @@ -58405,7 +58532,7 @@ static const char *startup_source = "(lambda(base_27 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_121)" +"((letrec-values(((loop_120)" "(lambda(a_73 l_33)" "(begin" " 'loop" @@ -58432,12 +58559,12 @@ static const char *startup_source = " 'file)" " base_27)))" " orig-l_10))" -"(loop_121(cdr a_73)(cdr l_33))))" +"(loop_120(cdr a_73)(cdr l_33))))" "(let-values()" -"(loop_121" +"(loop_120" "(cons(car l_33) a_73)" "(cdr l_33)))))))))" -" loop_121)" +" loop_120)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -58592,16 +58719,16 @@ static const char *startup_source = "(lambda(p_77)" "(begin" " 'path-ss->rkt" -"(let-values(((base_29 name_77 dir?_8)" +"(let-values(((base_29 name_78 dir?_8)" "(split-path p_77)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" +" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" " (path-replace-extension p_77 #\".rkt\")" " p_77)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((v_245)(cadr s_26)))" -" (if (let-values (((or-part_359) (equal? v_245 \".\")))" -" (if or-part_359 or-part_359 (equal? v_245 \"..\")))" +"(let-values(((v_248)(cadr s_26)))" +" (if (let-values (((or-part_359) (equal? v_248 \".\")))" +" (if or-part_359 or-part_359 (equal? v_248 \"..\")))" "(if relto_1" "(let-values(((p_78)" "(1/resolved-module-path-name" @@ -58611,7 +58738,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_26))" -" v_245))" +" v_248))" " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" @@ -58791,7 +58918,7 @@ static const char *startup_source = "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 1)" "(normal-case-path filename_2))))" -"(let-values(((base_30 name_78 dir?_9)" +"(let-values(((base_30 name_79 dir?_9)" "(if(vector? s-parsed_0)" "(values" " 'ignored" @@ -58801,7 +58928,7 @@ static const char *startup_source = "(let-values(((no-sfx_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 3)" -" (path-replace-extension name_78 #\"\"))))" +" (path-replace-extension name_79 #\"\"))))" "(let-values(((root-modname_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 4)" @@ -58867,7 +58994,7 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_121)" "(lambda(l_82)" "(begin" " 'loop" @@ -58879,10 +59006,10 @@ static const char *startup_source = "(path->string" "(cdar" " l_82))" -"(loop_122" +"(loop_121" "(cdr" " l_82))))))))" -" loop_122)" +" loop_121)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" @@ -58974,7 +59101,7 @@ static const char *startup_source = "(vector" " filename_2" " normal-filename_0" -" name_78" +" name_79" " no-sfx_0" " root-modname_0)))" "(void))" @@ -58987,14 +59114,14 @@ static const char *startup_source = "(1/eval" " s_61" "(1/current-namespace)" -"(let-values(((c_100)(1/current-compile)))" +"(let-values(((c_112)(1/current-compile)))" "(lambda(e_83 ns_122)" "(if(eq? ns_122(1/current-namespace))" -"(c_100 e_83 #t)" +"(c_112 e_83 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_122)" -"(let-values()(c_100 e_83 #t))))))))))" +"(let-values()(c_112 e_83 #t))))))))))" "(define-values" "(default-compile-handler)" "(lambda(s_62 immediate-eval?_0)(begin(1/compile s_62(1/current-namespace)(not immediate-eval?_0)))))" @@ -59066,7 +59193,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_266)" +"((letrec-values(((for-loop_265)" "(lambda(fold-var_65 lst_168)" "(begin" " 'for-loop" @@ -59085,10 +59212,10 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_266 fold-var_11 rest_140)" +"(for-loop_265 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_65)))))" -" for-loop_266)" +" for-loop_265)" " null" " lst_264))))))" "(let-values((()" @@ -59108,8 +59235,8 @@ static const char *startup_source = "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_246) ctx_14))" -"(let-values(((the-struct_90) v_246))" +"(let-values(((v_249) ctx_14))" +"(let-values(((the-struct_90) v_249))" "(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" @@ -59125,7 +59252,7 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_246)))" +"((inner61_0)(root-expand-context/outer-inner v_249)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -59155,8 +59282,8 @@ static const char *startup_source = "(expand-context-binding-layer ctx_14))" "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_79)(expand-context-name ctx_14)))" -"((letrec-values(((loop_123)" +"(let-values(((name_80)(expand-context-name ctx_14)))" +"((letrec-values(((loop_122)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -59179,7 +59306,7 @@ static const char *startup_source = "((temp70_3)(reverse$1 done-bodys_0))" "((s71_0) s_40)" "((stratified?72_0) stratified?_0)" -"((name73_0) name_79)" +"((name73_0) name_80)" "((temp74_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp74_3" @@ -59213,7 +59340,7 @@ static const char *startup_source = "(let-values(((exp-body_0)" "(let-values(((temp75_3)(car bodys_8))" "((temp76_3)" -"(if(if name_79" +"(if(if name_80" "(null?" "(cdr bodys_8))" " #f)" @@ -59224,7 +59351,7 @@ static const char *startup_source = "(if(expand-context/outer?" " the-struct_91)" "(let-values(((name77_0)" -" name_79)" +" name_80)" "((inner78_0)" "(root-expand-context/outer-inner" " v_85)))" @@ -59271,11 +59398,11 @@ static const char *startup_source = " temp76_3))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" -"(let-values(((tmp_61)" +"(let-values(((tmp_60)" "(core-form-sym" " disarmed-exp-body_0" " phase_138)))" -"(if(equal? tmp_61 'begin)" +"(if(equal? tmp_60 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -59366,7 +59493,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_123" +"(loop_122" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -59377,7 +59504,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0)))))))" -"(if(equal? tmp_61 'define-values)" +"(if(equal? tmp_60 'define-values)" "(let-values()" "(let-values((()" "(begin" @@ -59451,7 +59578,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_16)" -"(let-values(((lst_310)" +"(let-values(((lst_309)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -59459,20 +59586,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_310)))" -"((letrec-values(((for-loop_267)" +" lst_309)))" +"((letrec-values(((for-loop_266)" "(lambda(id_100" -" lst_311)" +" lst_310)" "(begin" " 'for-loop" "(if(pair?" -" lst_311)" +" lst_310)" "(let-values(((s_314)" "(unsafe-car" -" lst_311))" +" lst_310))" "((rest_177)" "(unsafe-cdr" -" lst_311)))" +" lst_310)))" "(let-values(((id_101)" "(let-values(((id_80)" " id_100))" @@ -59504,14 +59631,14 @@ static const char *startup_source = " id_81)))))" "(if(not" " #f)" -"(for-loop_267" +"(for-loop_266" " id_101" " rest_177)" " id_101)))" " id_100)))))" -" for-loop_267)" +" for-loop_266)" " null" -" lst_310)))))" +" lst_309)))))" "(reverse$1" " id_16))))))))" "((rhs90_0)" @@ -59629,17 +59756,17 @@ static const char *startup_source = " lst_191)))" "((letrec-values(((for-loop_12)" "(lambda(fold-var_276" -" lst_312)" +" lst_311)" "(begin" " 'for-loop" "(if(pair?" -" lst_312)" +" lst_311)" "(let-values(((id_102)" "(unsafe-car" -" lst_312))" +" lst_311))" "((rest_178)" "(unsafe-cdr" -" lst_312)))" +" lst_311)))" "(let-values(((fold-var_242)" "(let-values(((fold-var_243)" " fold-var_276))" @@ -59673,7 +59800,7 @@ static const char *startup_source = " null" " lst_191))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_313)" +"(let-values(((lst_312)" " keys_5)" "((lst_221)" " ids_4))" @@ -59683,7 +59810,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_313)))" +" lst_312)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -59736,13 +59863,13 @@ static const char *startup_source = " for-loop_229)" "(expand-context-env" " body-ctx_2)" -" lst_313" +" lst_312" " lst_221)))))" -"(loop_123" -"(let-values(((v_247)" +"(loop_122" +"(let-values(((v_250)" " body-ctx_2))" "(let-values(((the-struct_52)" -" v_247))" +" v_250))" "(if(expand-context/outer?" " the-struct_52)" "(let-values(((env102_0)" @@ -59753,7 +59880,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_247)))" +" v_250)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -59840,7 +59967,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_314)" +"(let-values(((lst_313)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -59848,20 +59975,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" -"((letrec-values(((for-loop_268)" +" lst_313)))" +"((letrec-values(((for-loop_267)" "(lambda(fold-var_190" -" lst_315)" +" lst_314)" "(begin" " 'for-loop" "(if(pair?" -" lst_315)" +" lst_314)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_315))" +" lst_314))" "((rest_181)" "(unsafe-cdr" -" lst_315)))" +" lst_314)))" "(let-values(((fold-var_280)" "(let-values(((fold-var_281)" " fold-var_190))" @@ -59875,14 +60002,14 @@ static const char *startup_source = " fold-var_282)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_267" " fold-var_280" " rest_181)" " fold-var_280)))" " fold-var_190)))))" -" for-loop_268)" +" for-loop_267)" " null" -" lst_314))))" +" lst_313))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -59899,17 +60026,17 @@ static const char *startup_source = " lst_148)))" "((letrec-values(((for-loop_115)" "(lambda(fold-var_283" -" lst_316)" +" lst_315)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_315)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_316))" +" lst_315))" "((rest_182)" "(unsafe-cdr" -" lst_316)))" +" lst_315)))" "(let-values(((fold-var_41)" "(let-values(((fold-var_284)" " fold-var_283))" @@ -59986,7 +60113,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " new-dups_0))))))))))" -"(if(equal? tmp_61 'define-syntaxes)" +"(if(equal? tmp_60 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" @@ -60089,15 +60216,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_351)" +"(if(let-values(((or-part_369)" "(if(syntax?$1" " s_67)" "(symbol?" "(syntax-e$1" " s_67))" " #f)))" -"(if or-part_351" -" or-part_351" +"(if or-part_369" +" or-part_369" "(symbol?" " s_67)))" " s_67" @@ -60227,7 +60354,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_317)" +"(let-values(((lst_316)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60235,20 +60362,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" -"((letrec-values(((for-loop_269)" +" lst_316)))" +"((letrec-values(((for-loop_268)" "(lambda(fold-var_285" -" lst_318)" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" +" lst_317)" "(let-values(((id_109)" "(unsafe-car" -" lst_318))" +" lst_317))" "((rest_183)" "(unsafe-cdr" -" lst_318)))" +" lst_317)))" "(let-values(((fold-var_286)" "(let-values(((fold-var_287)" " fold-var_285))" @@ -60273,14 +60400,14 @@ static const char *startup_source = " fold-var_288)))))" "(if(not" " #f)" -"(for-loop_269" +"(for-loop_268" " fold-var_286" " rest_183)" " fold-var_286)))" " fold-var_285)))))" -" for-loop_269)" +" for-loop_268)" " null" -" lst_317))))))" +" lst_316))))))" "(let-values((()" "(begin" "(let-values(((obs_65)" @@ -60318,11 +60445,11 @@ static const char *startup_source = " ids_29" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_319)" +"(let-values(((lst_318)" " keys_6)" -"((lst_320)" +"((lst_319)" " vals_8)" -"((lst_321)" +"((lst_320)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60330,6 +60457,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_318)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_319)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -60337,45 +60470,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_320)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_321)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_269)" "(lambda(env_21" +" lst_321" " lst_322" -" lst_323" -" lst_324)" +" lst_323)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_322)" +" lst_321)" "(if(pair?" -" lst_323)" +" lst_322)" "(pair?" -" lst_324)" +" lst_323)" " #f)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_322))" +" lst_321))" "((rest_184)" "(unsafe-cdr" -" lst_322))" +" lst_321))" "((val_83)" "(unsafe-car" -" lst_323))" +" lst_322))" "((rest_185)" "(unsafe-cdr" -" lst_323))" +" lst_322))" "((id_110)" "(unsafe-car" -" lst_324))" +" lst_323))" "((rest_186)" "(unsafe-cdr" -" lst_324)))" +" lst_323)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -60395,19 +60522,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_270" +"(for-loop_269" " env_22" " rest_184" " rest_185" " rest_186)" " env_22)))" " env_21)))))" -" for-loop_270)" +" for-loop_269)" "(expand-context-env" " body-ctx_2)" +" lst_318" " lst_319" -" lst_320" -" lst_321)))))" +" lst_320)))))" "(begin" "(let-values(((obs_67)" "(expand-context-observer" @@ -60419,11 +60546,11 @@ static const char *startup_source = " obs_67" " 'exit-bind)))" "(void)))" -"(loop_123" -"(let-values(((v_248)" +"(loop_122" +"(let-values(((v_251)" " body-ctx_2))" "(let-values(((the-struct_92)" -" v_248))" +" v_251))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((env124_0)" @@ -60434,7 +60561,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_248)))" +" v_251)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -60494,7 +60621,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_123" +"(loop_122" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -60522,7 +60649,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_123" +"(loop_122" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -60533,7 +60660,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_123)" +" loop_122)" " body-ctx_0" " init-bodys_0" " null" @@ -60572,7 +60699,7 @@ static const char *startup_source = "(let-values(((done-bodys_1) done-bodys26_0))" "(let-values(((s_484) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_80) name12_0))" +"(let-values(((name_81) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -60586,11 +60713,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_249)" +"(let-values(((v_252)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_93) v_249))" +"(let-values(((the-struct_93) v_252))" "(if(expand-context/outer? the-struct_93)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -60604,7 +60731,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_249)))" +"(root-expand-context/outer-inner v_252)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -60667,14 +60794,14 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_325) done-bodys_1)" +"(let-values(((lst_324) done-bodys_1)" "((start_64) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_325)))" +"(check-list lst_324)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -60682,22 +60809,22 @@ static const char *startup_source = "(check-naturals start_64)))" "((letrec-values(((for-loop_132)" "(lambda(fold-var_289" -" lst_326" -" pos_122)" +" lst_325" +" pos_123)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_326)" +" lst_325)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_326))" +" lst_325))" "((rest_187)" "(unsafe-cdr" -" lst_326))" +" lst_325))" "((i_167)" -" pos_122))" +" pos_123))" "(let-values(((fold-var_290)" "(let-values(((fold-var_203)" " fold-var_289))" @@ -60719,22 +60846,22 @@ static const char *startup_source = "(let-values(((done-body134_0)" " done-body_4)" "((temp135_2)" -"(if(if name_80" +"(if(if name_81" "(=" " i_167" " last-i_1)" " #f)" -"(let-values(((v_250)" +"(let-values(((v_253)" " finish-ctx_0))" "(let-values(((the-struct_94)" -" v_250))" +" v_253))" "(if(expand-context/outer?" " the-struct_94)" "(let-values(((name136_0)" -" name_80)" +" name_81)" "((inner137_1)" "(root-expand-context/outer-inner" -" v_250)))" +" v_253)))" "(expand-context/outer1.1" " inner137_1" "(root-expand-context/outer-post-expansion-scope" @@ -60785,13 +60912,13 @@ static const char *startup_source = " fold-var_290" " rest_187" "(+" -" pos_122" +" pos_123" " 1))" " fold-var_290)))" " fold-var_289)))))" " for-loop_132)" " null" -" lst_325" +" lst_324" " start_64))))))" "(begin" "(let-values(((obs_71)" @@ -60900,7 +61027,7 @@ static const char *startup_source = "(let-values(((track?_1) track?36_0))" "(let-values()" "(let-values(((phase_139)(expand-context-phase ctx_72)))" -"((letrec-values(((loop_124)" +"((letrec-values(((loop_123)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -61026,7 +61153,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_124" +"(loop_123" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61092,14 +61219,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_369) split?_0))" -"(if or-part_369" -" or-part_369" +"(let-values(((or-part_370) split?_0))" +"(if or-part_370" +" or-part_370" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_124" +"(loop_123" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61178,7 +61305,7 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_124" +"(loop_123" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61190,7 +61317,7 @@ static const char *startup_source = " track?_2" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_124)" +" loop_123)" " idss_1" " keyss_0" " rhss_1" @@ -61232,28 +61359,28 @@ static const char *startup_source = "(let-values(((phase_141)(expand-context-phase ctx_74)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_327) val-idss_2)((lst_328) val-rhss_2)((lst_329) track-stxs_4))" +"(let-values(((lst_326) val-idss_2)((lst_327) val-rhss_2)((lst_328) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_326)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_327)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_328)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_329)))" -"((letrec-values(((for-loop_271)" -"(lambda(fold-var_291 lst_238 lst_330 lst_331)" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_291 lst_238 lst_329 lst_330)" "(begin" " 'for-loop" -"(if(if(pair? lst_238)(if(pair? lst_330)(pair? lst_331) #f) #f)" +"(if(if(pair? lst_238)(if(pair? lst_329)(pair? lst_330) #f) #f)" "(let-values(((val-ids_0)(unsafe-car lst_238))" "((rest_188)(unsafe-cdr lst_238))" -"((val-rhs_0)(unsafe-car lst_330))" -"((rest_189)(unsafe-cdr lst_330))" -"((track-stx_2)(unsafe-car lst_331))" -"((rest_190)(unsafe-cdr lst_331)))" +"((val-rhs_0)(unsafe-car lst_329))" +"((rest_189)(unsafe-cdr lst_329))" +"((track-stx_2)(unsafe-car lst_330))" +"((rest_190)(unsafe-cdr lst_330)))" "(let-values(((fold-var_292)" "(let-values(((fold-var_293) fold-var_291))" "(let-values(((fold-var_294)" @@ -61267,14 +61394,14 @@ static const char *startup_source = " fold-var_293))))" "(values fold-var_294)))))" "(if(not #f)" -"(for-loop_271 fold-var_292 rest_188 rest_189 rest_190)" +"(for-loop_270 fold-var_292 rest_188 rest_189 rest_190)" " fold-var_292)))" " fold-var_291)))))" -" for-loop_271)" +" for-loop_270)" " null" +" lst_326" " lst_327" -" lst_328" -" lst_329))))))" +" lst_328))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" "(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_141)))" "(let-values(((lv-s_0)" @@ -61339,7 +61466,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_271)" "(lambda(fold-var_63 lst_38)" "(begin" " 'for-loop" @@ -61365,10 +61492,10 @@ static const char *startup_source = " fold-var_64))))" "(values fold-var_150)))))" "(if(not #f)" -"(for-loop_272 fold-var_295 rest_191)" +"(for-loop_271 fold-var_295 rest_191)" " fold-var_295)))" " fold-var_63)))))" -" for-loop_272)" +" for-loop_271)" " null" " lst_269))))))" "(let-values(((body-env_0)" @@ -61455,15 +61582,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_251) ctx_75))" -"(let-values(((the-struct_95) v_251))" +"(let-values(((v_254) ctx_75))" +"(let-values(((the-struct_95) v_254))" "(if(expand-context/outer? the-struct_95)" "(let-values(((env42_0) body-env_0)" "((scopes43_0)(cons sc_31(expand-context-scopes ctx_75)))" "((binding-layer44_0)" "(increment-binding-layer ids_32 ctx_75 sc_31))" "((frame-id45_0) #f)" -"((inner46_1)(root-expand-context/outer-inner v_251)))" +"((inner46_1)(root-expand-context/outer-inner v_254)))" "(expand-context/outer1.1" " inner46_1" "(root-expand-context/outer-post-expansion-scope the-struct_95)" @@ -61604,14 +61731,14 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_311) flat-s_28))" +"(let-values(((lst_310) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_311)))" -"((letrec-values(((for-loop_273)" +"(check-list lst_310)))" +"((letrec-values(((for-loop_272)" "(lambda(formals_4" " body_15" " lst_98)" @@ -61698,7 +61825,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_273" +"(for-loop_272" " formals_5" " body_16" " rest_192)" @@ -61708,10 +61835,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_273)" +" for-loop_272)" " null" " null" -" lst_311)))))" +" lst_310)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -61755,19 +61882,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_274)" -"(lambda(fold-var_298 lst_332 lst_333 lst_334)" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_298 lst_331 lst_332 lst_333)" "(begin" " 'for-loop" -"(if(if(pair? lst_332)" -"(if(pair? lst_333)(pair? lst_334) #f)" +"(if(if(pair? lst_331)" +"(if(pair? lst_332)(pair? lst_333) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_332))" -"((rest_193)(unsafe-cdr lst_332))" -"((body_19)(unsafe-car lst_333))" -"((rest_194)(unsafe-cdr lst_333))" -"((clause_3)(unsafe-car lst_334))" -"((rest_195)(unsafe-cdr lst_334)))" +"(let-values(((formals_8)(unsafe-car lst_331))" +"((rest_193)(unsafe-cdr lst_331))" +"((body_19)(unsafe-car lst_332))" +"((rest_194)(unsafe-cdr lst_332))" +"((clause_3)(unsafe-car lst_333))" +"((rest_195)(unsafe-cdr lst_333)))" "(let-values(((fold-var_299)" "(let-values(((fold-var_300) fold-var_298))" "(let-values(((fold-var_187)" @@ -61829,10 +61956,10 @@ static const char *startup_source = " fold-var_300))))" "(values fold-var_187)))))" "(if(not #f)" -"(for-loop_274 fold-var_299 rest_193 rest_194 rest_195)" +"(for-loop_273 fold-var_299 rest_193 rest_194 rest_195)" " fold-var_299)))" " fold-var_298)))))" -" for-loop_274)" +" for-loop_273)" " null" " lst_192" " lst_223" @@ -61845,7 +61972,7 @@ static const char *startup_source = "(parse-and-flatten-formals)" "(lambda(all-formals_0 sc_32 s_320)" "(begin" -"((letrec-values(((loop_125)" +"((letrec-values(((loop_124)" "(lambda(formals_9)" "(begin" " 'loop" @@ -61855,7 +61982,7 @@ static const char *startup_source = "(let-values()" "(let-values(((p_83)(syntax-e$1 formals_9)))" "(if(pair? p_83)" -"(let-values()(loop_125 p_83))" +"(let-values()(loop_124 p_83))" "(if(null? p_83)" "(let-values() null)" " (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_320 p_83))))))" @@ -61866,29 +61993,29 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-syntax-error$1 #f \"not an identifier\" s_320 (car formals_9))))" -"(cons(add-scope(car formals_9) sc_32)(loop_125(cdr formals_9)))))" +"(cons(add-scope(car formals_9) sc_32)(loop_124(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" " (raise-syntax-error$1 \"bad argument sequence\" s_320 all-formals_0))))))))))" -" loop_125)" +" loop_124)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_126)" +"((letrec-values(((loop_125)" "(lambda(keys_9 formals_11)" "(begin" " 'loop" "(if(null? formals_11)" "(let-values() null)" "(if(pair? formals_11)" -"(let-values()(cons(car keys_9)(loop_126(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_125(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_126 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_125 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_126)" +" loop_125)" " keys_8" " formals_10))))" "(define-values" @@ -61977,7 +62104,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_335)" +"(let-values(((lst_334)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61985,21 +62112,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_335)))" -"((letrec-values(((for-loop_275)" +" lst_334)))" +"((letrec-values(((for-loop_274)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_336)" +" lst_335)" "(begin" " 'for-loop" "(if(pair?" -" lst_336)" +" lst_335)" "(let-values(((s_497)" "(unsafe-car" -" lst_336))" +" lst_335))" "((rest_196)" "(unsafe-cdr" -" lst_336)))" +" lst_335)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -62042,7 +62169,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_337)" +"(let-values(((lst_336)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62050,20 +62177,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_337)))" -"((letrec-values(((for-loop_276)" +" lst_336)))" +"((letrec-values(((for-loop_275)" "(lambda(id:trans_6" -" lst_338)" +" lst_337)" "(begin" " 'for-loop" "(if(pair?" -" lst_338)" +" lst_337)" "(let-values(((s_499)" "(unsafe-car" -" lst_338))" +" lst_337))" "((rest_197)" "(unsafe-cdr" -" lst_338)))" +" lst_337)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -62071,15 +62198,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans134_0)" "(let-values()" -"(if(let-values(((or-part_370)" +"(if(let-values(((or-part_371)" "(if(syntax?$1" " s_499)" "(symbol?" "(syntax-e$1" " s_499))" " #f)))" -"(if or-part_370" -" or-part_370" +"(if or-part_371" +" or-part_371" "(symbol?" " s_499)))" " s_499" @@ -62095,14 +62222,14 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_276" +"(for-loop_275" " id:trans_7" " rest_197)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_276)" +" for-loop_275)" " null" -" lst_337)))))" +" lst_336)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs107_0)" @@ -62164,7 +62291,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_274" " id:trans_2" " trans-rhs_2" " rest_196)" @@ -62174,10 +62301,10 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_275)" +" for-loop_274)" " null" " null" -" lst_335)))))" +" lst_334)))))" "(values" "(reverse$1" " id:trans_0)" @@ -62229,7 +62356,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_201)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_276)" "(lambda(id:val_1" " val-rhs_2" " lst_204)" @@ -62285,7 +62412,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_339)" +"(let-values(((lst_338)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62293,20 +62420,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_278)" +" lst_338)))" +"((letrec-values(((for-loop_277)" "(lambda(id:val_6" -" lst_340)" +" lst_339)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" +" lst_339)" "(let-values(((s_340)" "(unsafe-car" -" lst_340))" +" lst_339))" "((rest_199)" "(unsafe-cdr" -" lst_340)))" +" lst_339)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -62338,14 +62465,14 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_277" " id:val_7" " rest_199)" " id:val_7)))" " id:val_6)))))" -" for-loop_278)" +" for-loop_277)" " null" -" lst_339)))))" +" lst_338)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs113_0)" @@ -62407,7 +62534,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_276" " id:val_2" " val-rhs_3" " rest_198)" @@ -62417,7 +62544,7 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_277)" +" for-loop_276)" " null" " null" " lst_201)))))" @@ -62534,7 +62661,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_341)" +"(let-values(((lst_340)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62542,8 +62669,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_279)" +" lst_340)))" +"((letrec-values(((for-loop_278)" "(lambda(id:val_11" " val-rhs_7" " lst_212)" @@ -62599,7 +62726,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_342)" +"(let-values(((lst_341)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62607,20 +62734,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_342)))" -"((letrec-values(((for-loop_280)" +" lst_341)))" +"((letrec-values(((for-loop_279)" "(lambda(id:val_16" -" lst_343)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" +" lst_342)" "(let-values(((s_517)" "(unsafe-car" -" lst_343))" +" lst_342))" "((rest_201)" "(unsafe-cdr" -" lst_343)))" +" lst_342)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -62628,15 +62755,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val140_0)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_372)" "(if(syntax?$1" " s_517)" "(symbol?" "(syntax-e$1" " s_517))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_372" +" or-part_372" "(symbol?" " s_517)))" " s_517" @@ -62652,14 +62779,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_280" +"(for-loop_279" " id:val_17" " rest_201)" " id:val_17)))" " id:val_16)))))" -" for-loop_280)" +" for-loop_279)" " null" -" lst_342)))))" +" lst_341)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs127_0)" @@ -62721,7 +62848,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_279" +"(for-loop_278" " id:val_12" " val-rhs_8" " rest_200)" @@ -62731,10 +62858,10 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_279)" +" for-loop_278)" " null" " null" -" lst_341)))))" +" lst_340)))))" "(values" "(reverse$1" " id:val_10)" @@ -62790,20 +62917,20 @@ static const char *startup_source = "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_344)(if syntaxes?_0 id:trans90_0 null)))" +"(let-values(((lst_343)(if syntaxes?_0 id:trans90_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_344)))" -"((letrec-values(((for-loop_281)" -"(lambda(fold-var_301 lst_345)" +"(let-values()(check-list lst_343)))" +"((letrec-values(((for-loop_280)" +"(lambda(fold-var_301 lst_344)" "(begin" " 'for-loop" -"(if(pair? lst_345)" +"(if(pair? lst_344)" "(let-values(((ids_33)" -"(unsafe-car lst_345))" +"(unsafe-car lst_344))" "((rest_202)" -"(unsafe-cdr lst_345)))" +"(unsafe-cdr lst_344)))" "(let-values(((fold-var_302)" "(let-values(((fold-var_303)" " fold-var_301))" @@ -62812,7 +62939,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_346)" +"(let-values(((lst_345)" " ids_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62820,20 +62947,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" -"((letrec-values(((for-loop_282)" +" lst_345)))" +"((letrec-values(((for-loop_281)" "(lambda(fold-var_304" -" lst_347)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" +" lst_346)" "(let-values(((id_113)" "(unsafe-car" -" lst_347))" +" lst_346))" "((rest_203)" "(unsafe-cdr" -" lst_347)))" +" lst_346)))" "(let-values(((fold-var_305)" "(let-values(((fold-var_306)" " fold-var_304))" @@ -62849,40 +62976,40 @@ static const char *startup_source = " fold-var_307)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_281" " fold-var_305" " rest_203)" " fold-var_305)))" " fold-var_304)))))" -" for-loop_282)" +" for-loop_281)" " null" -" lst_346)))))" +" lst_345)))))" " fold-var_303))))" "(values" " fold-var_269)))))" "(if(not #f)" -"(for-loop_281 fold-var_302 rest_202)" +"(for-loop_280 fold-var_302 rest_202)" " fold-var_302)))" " fold-var_301)))))" -" for-loop_281)" +" for-loop_280)" " null" -" lst_344))))))" +" lst_343))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_348)(if syntaxes?_0 id:val92_0 id:val116_0)))" +"(let-values(((lst_347)(if syntaxes?_0 id:val92_0 id:val116_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_348)))" -"((letrec-values(((for-loop_283)" -"(lambda(fold-var_308 lst_349)" +"(let-values()(check-list lst_347)))" +"((letrec-values(((for-loop_282)" +"(lambda(fold-var_308 lst_348)" "(begin" " 'for-loop" -"(if(pair? lst_349)" +"(if(pair? lst_348)" "(let-values(((ids_20)" -"(unsafe-car lst_349))" +"(unsafe-car lst_348))" "((rest_204)" -"(unsafe-cdr lst_349)))" +"(unsafe-cdr lst_348)))" "(let-values(((fold-var_309)" "(let-values(((fold-var_310)" " fold-var_308))" @@ -62891,7 +63018,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_350)" +"(let-values(((lst_349)" " ids_20))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62899,20 +63026,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" -"((letrec-values(((for-loop_284)" +" lst_349)))" +"((letrec-values(((for-loop_283)" "(lambda(fold-var_312" -" lst_351)" +" lst_350)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" +" lst_350)" "(let-values(((id_114)" "(unsafe-car" -" lst_351))" +" lst_350))" "((rest_205)" "(unsafe-cdr" -" lst_351)))" +" lst_350)))" "(let-values(((fold-var_313)" "(let-values(((fold-var_314)" " fold-var_312))" @@ -62928,44 +63055,44 @@ static const char *startup_source = " fold-var_315)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_283" " fold-var_313" " rest_205)" " fold-var_313)))" " fold-var_312)))))" -" for-loop_284)" +" for-loop_283)" " null" -" lst_350)))))" +" lst_349)))))" " fold-var_310))))" "(values" " fold-var_311)))))" "(if(not #f)" -"(for-loop_283" +"(for-loop_282" " fold-var_309" " rest_204)" " fold-var_309)))" " fold-var_308)))))" -" for-loop_283)" +" for-loop_282)" " null" -" lst_348))))))" +" lst_347))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_352)" +"(let-values(((lst_351)" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_352)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_316 lst_353)" +"(let-values()(check-list lst_351)))" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_316 lst_352)" "(begin" " 'for-loop" -"(if(pair? lst_353)" +"(if(pair? lst_352)" "(let-values(((rhs_20)" -"(unsafe-car lst_353))" +"(unsafe-car lst_352))" "((rest_206)" -"(unsafe-cdr lst_353)))" +"(unsafe-cdr lst_352)))" "(let-values(((fold-var_317)" "(let-values(((fold-var_318)" " fold-var_316))" @@ -62980,14 +63107,14 @@ static const char *startup_source = "(values" " fold-var_319)))))" "(if(not #f)" -"(for-loop_285" +"(for-loop_284" " fold-var_317" " rest_206)" " fold-var_317)))" " fold-var_316)))))" -" for-loop_285)" +" for-loop_284)" " null" -" lst_352))))" +" lst_351))))" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))" "(let-values((()" "(begin" @@ -63006,23 +63133,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_80)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_354) trans-idss_2))" +"(let-values(((lst_353) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_320 lst_355)" +"(let-values()(check-list lst_353)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_320 lst_354)" "(begin" " 'for-loop" -"(if(pair? lst_355)" +"(if(pair? lst_354)" "(let-values(((ids_34)" "(unsafe-car" -" lst_355))" +" lst_354))" "((rest_207)" "(unsafe-cdr" -" lst_355)))" +" lst_354)))" "(let-values(((fold-var_321)" "(let-values(((fold-var_322)" " fold-var_320))" @@ -63031,7 +63158,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_356)" +"(let-values(((lst_355)" " ids_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63039,20 +63166,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_356)))" -"((letrec-values(((for-loop_287)" +" lst_355)))" +"((letrec-values(((for-loop_286)" "(lambda(fold-var_324" -" lst_357)" +" lst_356)" "(begin" " 'for-loop" "(if(pair?" -" lst_357)" +" lst_356)" "(let-values(((id_115)" "(unsafe-car" -" lst_357))" +" lst_356))" "((rest_208)" "(unsafe-cdr" -" lst_357)))" +" lst_356)))" "(let-values(((fold-var_325)" "(let-values(((fold-var_98)" " fold-var_324))" @@ -63077,45 +63204,45 @@ static const char *startup_source = " fold-var_99)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_286" " fold-var_325" " rest_208)" " fold-var_325)))" " fold-var_324)))))" -" for-loop_287)" +" for-loop_286)" " null" -" lst_356)))))" +" lst_355)))))" " fold-var_322))))" "(values" " fold-var_323)))))" "(if(not #f)" -"(for-loop_286" +"(for-loop_285" " fold-var_321" " rest_207)" " fold-var_321)))" " fold-var_320)))))" -" for-loop_286)" +" for-loop_285)" " null" -" lst_354))))))" +" lst_353))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_358) val-idss_3))" +"(let-values(((lst_357) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_326 lst_359)" +"(let-values()(check-list lst_357)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_326 lst_358)" "(begin" " 'for-loop" -"(if(pair? lst_359)" +"(if(pair? lst_358)" "(let-values(((ids_35)" "(unsafe-car" -" lst_359))" +" lst_358))" "((rest_209)" "(unsafe-cdr" -" lst_359)))" +" lst_358)))" "(let-values(((fold-var_327)" "(let-values(((fold-var_328)" " fold-var_326))" @@ -63124,7 +63251,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_359)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63132,20 +63259,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_360)))" -"((letrec-values(((for-loop_289)" +" lst_359)))" +"((letrec-values(((for-loop_288)" "(lambda(fold-var_330" -" lst_361)" +" lst_360)" "(begin" " 'for-loop" "(if(pair?" -" lst_361)" +" lst_360)" "(let-values(((id_116)" "(unsafe-car" -" lst_361))" +" lst_360))" "((rest_210)" "(unsafe-cdr" -" lst_361)))" +" lst_360)))" "(let-values(((fold-var_331)" "(let-values(((fold-var_332)" " fold-var_330))" @@ -63170,46 +63297,46 @@ static const char *startup_source = " fold-var_333)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_288" " fold-var_331" " rest_210)" " fold-var_331)))" " fold-var_330)))))" -" for-loop_289)" +" for-loop_288)" " null" -" lst_360)))))" +" lst_359)))))" " fold-var_328))))" "(values" " fold-var_329)))))" "(if(not #f)" -"(for-loop_288" +"(for-loop_287" " fold-var_327" " rest_209)" " fold-var_327)))" " fold-var_326)))))" -" for-loop_288)" +" for-loop_287)" " null" -" lst_358))))))" +" lst_357))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_362)" +"(let-values(((lst_361)" "(if syntaxes?_0 body94_0 body118_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_334 lst_363)" +"(let-values()(check-list lst_361)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_334 lst_362)" "(begin" " 'for-loop" -"(if(pair? lst_363)" +"(if(pair? lst_362)" "(let-values(((body_20)" "(unsafe-car" -" lst_363))" +" lst_362))" "((rest_211)" "(unsafe-cdr" -" lst_363)))" +" lst_362)))" "(let-values(((fold-var_335)" "(let-values(((fold-var_336)" " fold-var_334))" @@ -63224,14 +63351,14 @@ static const char *startup_source = "(values" " fold-var_337)))))" "(if(not #f)" -"(for-loop_290" +"(for-loop_289" " fold-var_335" " rest_211)" " fold-var_335)))" " fold-var_334)))))" -" for-loop_290)" +" for-loop_289)" " null" -" lst_362))))))" +" lst_361))))))" "(let-values((()" "(begin" "(let-values(((obs_84)" @@ -63269,26 +63396,26 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_364)" +"(let-values(((lst_363)" "(if syntaxes?_0 trans-rhs91_0 '()))" -"((lst_365) trans-idss_2))" +"((lst_364) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_363)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_364)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_365)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_338" " lst_231" -" lst_366)" +" lst_365)" "(begin" " 'for-loop" "(if(if(pair? lst_231)" -"(pair? lst_366)" +"(pair? lst_365)" " #f)" "(let-values(((rhs_19)" "(unsafe-car" @@ -63298,10 +63425,10 @@ static const char *startup_source = " lst_231))" "((ids_36)" "(unsafe-car" -" lst_366))" +" lst_365))" "((rest_213)" "(unsafe-cdr" -" lst_366)))" +" lst_365)))" "(let-values(((fold-var_339)" "(let-values(((fold-var_340)" " fold-var_338))" @@ -63349,29 +63476,29 @@ static const char *startup_source = "(values" " fold-var_341)))))" "(if(not #f)" -"(for-loop_291" +"(for-loop_290" " fold-var_339" " rest_212" " rest_213)" " fold-var_339)))" " fold-var_338)))))" -" for-loop_291)" +" for-loop_290)" " null" -" lst_364" -" lst_365))))))" +" lst_363" +" lst_364))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_367) val-keyss_2)" +"(let-values(((lst_366) val-keyss_2)" "((lst_120) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_367)))" +"(let-values()(check-list lst_366)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_120)))" -"((letrec-values(((for-loop_292)" +"((letrec-values(((for-loop_291)" "(lambda(env_29" " lst_234" " lst_235)" @@ -63395,9 +63522,9 @@ static const char *startup_source = "(let-values(((env_6)" "(let-values(((env_30)" " env_29))" -"(let-values(((lst_327)" +"(let-values(((lst_326)" " keys_10)" -"((lst_328)" +"((lst_327)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63405,30 +63532,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" +" lst_326)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_328)))" -"((letrec-values(((for-loop_293)" +" lst_327)))" +"((letrec-values(((for-loop_292)" "(lambda(env_31" -" lst_368" +" lst_367" " lst_238)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_368)" +" lst_367)" "(pair?" " lst_238)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_368))" +" lst_367))" "((rest_215)" "(unsafe-cdr" -" lst_368))" +" lst_367))" "((id_117)" "(unsafe-car" " lst_238))" @@ -63449,57 +63576,57 @@ static const char *startup_source = " env_34)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_292" " env_32" " rest_215" " rest_188)" " env_32)))" " env_31)))))" -" for-loop_293)" +" for-loop_292)" " env_30" -" lst_327" -" lst_328))))))" +" lst_326" +" lst_327))))))" "(if(not #f)" -"(for-loop_292" +"(for-loop_291" " env_6" " rest_156" " rest_214)" " env_6)))" " env_29)))))" -" for-loop_292)" +" for-loop_291)" "(expand-context-env ctx_80)" -" lst_367" +" lst_366" " lst_120)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_369) trans-keyss_0)" -"((lst_370) trans-valss_0)" -"((lst_371) trans-idss_2))" +"(let-values(((lst_368) trans-keyss_0)" +"((lst_369) trans-valss_0)" +"((lst_370) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_368)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_369)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_370)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_371)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_293)" "(lambda(env_35" " lst_241" -" lst_372" -" lst_373)" +" lst_371" +" lst_372)" "(begin" " 'for-loop" "(if(if(pair?" " lst_241)" "(if(pair?" -" lst_372)" +" lst_371)" "(pair?" -" lst_373)" +" lst_372)" " #f)" " #f)" "(let-values(((keys_11)" @@ -63510,16 +63637,16 @@ static const char *startup_source = " lst_241))" "((vals_9)" "(unsafe-car" -" lst_372))" +" lst_371))" "((rest_217)" "(unsafe-cdr" -" lst_372))" +" lst_371))" "((ids_38)" "(unsafe-car" -" lst_373))" +" lst_372))" "((rest_218)" "(unsafe-cdr" -" lst_373)))" +" lst_372)))" "(let-values(((env_36)" "(let-values(((env_37)" " env_35))" @@ -63527,9 +63654,9 @@ static const char *startup_source = "(let-values()" "(let-values(((lst_121)" " keys_11)" -"((lst_374)" +"((lst_373)" " vals_9)" -"((lst_375)" +"((lst_374)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63543,46 +63670,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_374)))" +" lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_375)))" -"((letrec-values(((for-loop_295)" +" lst_374)))" +"((letrec-values(((for-loop_294)" "(lambda(env_39" +" lst_375" " lst_376" -" lst_377" -" lst_378)" +" lst_377)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_376)" +" lst_375)" "(if(pair?" -" lst_377)" +" lst_376)" "(pair?" -" lst_378)" +" lst_377)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_376))" +" lst_375))" "((rest_219)" "(unsafe-cdr" -" lst_376))" +" lst_375))" "((val_84)" "(unsafe-car" -" lst_377))" +" lst_376))" "((rest_220)" "(unsafe-cdr" -" lst_377))" +" lst_376))" "((id_118)" "(unsafe-car" -" lst_378))" +" lst_377))" "((rest_221)" "(unsafe-cdr" -" lst_378)))" +" lst_377)))" "(let-values(((env_40)" "(let-values(((env_41)" " env_39))" @@ -63602,40 +63729,40 @@ static const char *startup_source = " env_42)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_294" " env_40" " rest_219" " rest_220" " rest_221)" " env_40)))" " env_39)))))" -" for-loop_295)" +" for-loop_294)" " env_37" " lst_121" -" lst_374" -" lst_375))))))" +" lst_373" +" lst_374))))))" "(values" " env_38)))))" "(if(not #f)" -"(for-loop_294" +"(for-loop_293" " env_36" " rest_216" " rest_217" " rest_218)" " env_36)))" " env_35)))))" -" for-loop_294)" +" for-loop_293)" " rec-val-env_0" +" lst_368" " lst_369" -" lst_370" -" lst_371)))))" +" lst_370)))))" "(let-values(((expr-ctx_0)(as-expression-context ctx_80)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_252) expr-ctx_0))" -"(let-values(((the-struct_96) v_252))" +"(let-values(((v_255) expr-ctx_0))" +"(let-values(((the-struct_96) v_255))" "(if(expand-context/outer?" " the-struct_96)" "(let-values(((env151_1) rec-env_0)" @@ -63659,7 +63786,7 @@ static const char *startup_source = " sc_7))" "((inner155_1)" "(root-expand-context/outer-inner" -" v_252)))" +" v_255)))" "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" @@ -63712,27 +63839,27 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_80)" "(reverse$1" -"(let-values(((lst_379)" +"(let-values(((lst_378)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_379)))" -"((letrec-values(((for-loop_296)" +"(check-list lst_378)))" +"((letrec-values(((for-loop_295)" "(lambda(fold-var_106" -" lst_380)" +" lst_379)" "(begin" " 'for-loop" "(if(pair?" -" lst_380)" +" lst_379)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_380))" +" lst_379))" "((rest_222)" "(unsafe-cdr" -" lst_380)))" +" lst_379)))" "(let-values(((fold-var_342)" "(let-values(((fold-var_343)" " fold-var_106))" @@ -63741,7 +63868,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_381)" +"(let-values(((lst_380)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63749,20 +63876,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_381)))" -"((letrec-values(((for-loop_297)" +" lst_380)))" +"((letrec-values(((for-loop_296)" "(lambda(fold-var_345" -" lst_382)" +" lst_381)" "(begin" " 'for-loop" "(if(pair?" -" lst_382)" +" lst_381)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_382))" +" lst_381))" "((rest_223)" "(unsafe-cdr" -" lst_382)))" +" lst_381)))" "(let-values(((fold-var_109)" "(let-values(((fold-var_346)" " fold-var_345))" @@ -63781,27 +63908,27 @@ static const char *startup_source = " fold-var_347)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_296" " fold-var_109" " rest_223)" " fold-var_109)))" " fold-var_345)))))" -" for-loop_297)" +" for-loop_296)" " null" -" lst_381)))))" +" lst_380)))))" " fold-var_343))))" "(values" " fold-var_344)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_295" " fold-var_342" " rest_222)" " fold-var_342)))" " fold-var_106)))))" -" for-loop_296)" +" for-loop_295)" " null" -" lst_379))))" +" lst_378))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -63844,17 +63971,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_253)" +"(let-values(((v_256)" " rec-ctx_0))" "(let-values(((the-struct_97)" -" v_253))" +" v_256))" "(if(expand-context/outer?" " the-struct_97)" "(let-values(((reference-records162_0)" " orig-rrs_0)" "((inner163_0)" "(root-expand-context/outer-inner" -" v_253)))" +" v_256)))" "(expand-context/outer1.1" " inner163_0" "(root-expand-context/outer-post-expansion-scope" @@ -63908,11 +64035,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_383)" +"(let-values(((lst_382)" " val-name-idss_0)" -"((lst_384)" +"((lst_383)" " val-keyss_2)" -"((lst_385)" +"((lst_384)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63920,6 +64047,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_382)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_383)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -63927,45 +64060,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_384)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_385)))" "((letrec-values(((for-loop_158)" "(lambda(fold-var_116" +" lst_385" " lst_386" -" lst_387" -" lst_388)" +" lst_387)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_386)" +" lst_385)" "(if(pair?" -" lst_387)" +" lst_386)" "(pair?" -" lst_388)" +" lst_387)" " #f)" " #f)" "(let-values(((ids_39)" "(unsafe-car" -" lst_386))" +" lst_385))" "((rest_224)" "(unsafe-cdr" -" lst_386))" +" lst_385))" "((keys_12)" "(unsafe-car" -" lst_387))" +" lst_386))" "((rest_225)" "(unsafe-cdr" -" lst_387))" +" lst_386))" "((rhs_21)" "(unsafe-car" -" lst_388))" +" lst_387))" "((rest_226)" "(unsafe-cdr" -" lst_388)))" +" lst_387)))" "(let-values(((fold-var_348)" "(let-values(((fold-var_119)" " fold-var_116))" @@ -64026,9 +64153,9 @@ static const char *startup_source = " fold-var_116)))))" " for-loop_158)" " null" +" lst_382" " lst_383" -" lst_384" -" lst_385))))))" +" lst_384))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -64065,7 +64192,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp173_0)" "(reverse$1" -"(let-values(((lst_389)" +"(let-values(((lst_388)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64073,20 +64200,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_389)))" -"((letrec-values(((for-loop_298)" +" lst_388)))" +"((letrec-values(((for-loop_297)" "(lambda(fold-var_349" -" lst_390)" +" lst_389)" "(begin" " 'for-loop" "(if(pair?" -" lst_390)" +" lst_389)" "(let-values(((rhs_22)" "(unsafe-car" -" lst_390))" +" lst_389))" "((rest_227)" "(unsafe-cdr" -" lst_390)))" +" lst_389)))" "(let-values(((fold-var_350)" "(let-values(((fold-var_351)" " fold-var_349))" @@ -64100,14 +64227,14 @@ static const char *startup_source = " fold-var_352)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_297" " fold-var_350" " rest_227)" " fold-var_350)))" " fold-var_349)))))" -" for-loop_298)" +" for-loop_297)" " null" -" lst_389)))))" +" lst_388)))))" "((temp174_0)" " #t)" "((frame-id175_0)" @@ -64146,23 +64273,23 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_391) val-idss_4)((lst_59) val-rhss_4))" +"(let-values(((lst_390) val-idss_4)((lst_59) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_391)))" +"(let-values()(check-list lst_390)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_353 lst_392 lst_393)" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_353 lst_391 lst_392)" "(begin" " 'for-loop" -"(if(if(pair? lst_392)(pair? lst_393) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_392))" -"((rest_228)(unsafe-cdr lst_392))" -"((val-rhs_11)(unsafe-car lst_393))" -"((rest_229)(unsafe-cdr lst_393)))" +"(if(if(pair? lst_391)(pair? lst_392) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_391))" +"((rest_228)(unsafe-cdr lst_391))" +"((val-rhs_11)(unsafe-car lst_392))" +"((rest_229)(unsafe-cdr lst_392)))" "(let-values(((fold-var_354)" "(let-values(((fold-var_355) fold-var_353))" "(let-values(((fold-var_356)" @@ -64175,12 +64302,12 @@ static const char *startup_source = " fold-var_355))))" "(values fold-var_356)))))" "(if(not #f)" -"(for-loop_299 fold-var_354 rest_228 rest_229)" +"(for-loop_298 fold-var_354 rest_228 rest_229)" " fold-var_354)))" " fold-var_353)))))" -" for-loop_299)" +" for-loop_298)" " null" -" lst_391" +" lst_390" " lst_59))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" @@ -64190,23 +64317,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_62) trans-idss_3)((lst_394) trans-rhss_0))" +"(let-values(((lst_62) trans-idss_3)((lst_393) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_62)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_394)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_357 lst_395 lst_396)" +"(let-values()(check-list lst_393)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_357 lst_394 lst_395)" "(begin" " 'for-loop" -"(if(if(pair? lst_395)(pair? lst_396) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_395))" -"((rest_230)(unsafe-cdr lst_395))" -"((trans-rhs_5)(unsafe-car lst_396))" -"((rest_231)(unsafe-cdr lst_396)))" +"(if(if(pair? lst_394)(pair? lst_395) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_394))" +"((rest_230)(unsafe-cdr lst_394))" +"((trans-rhs_5)(unsafe-car lst_395))" +"((rest_231)(unsafe-cdr lst_395)))" "(let-values(((fold-var_122)" "(let-values(((fold-var_358) fold-var_357))" "(let-values(((fold-var_359)" @@ -64220,12 +64347,12 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_33))))" " fold-var_358))))" "(values fold-var_359)))))" -"(if(not #f)(for-loop_300 fold-var_122 rest_230 rest_231) fold-var_122)))" +"(if(not #f)(for-loop_299 fold-var_122 rest_230 rest_231) fold-var_122)))" " fold-var_357)))))" -" for-loop_300)" +" for-loop_299)" " null" " lst_62" -" lst_394))))" +" lst_393))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -64415,19 +64542,19 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_397) rest-es_0))" +"(let-values(((lst_396) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_56 lst_398)" +"(let-values()(check-list lst_396)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_56 lst_397)" "(begin" " 'for-loop" -"(if(pair? lst_398)" -"(let-values(((e_85)(unsafe-car lst_398))" +"(if(pair? lst_397)" +"(let-values(((e_85)(unsafe-car lst_397))" "((rest_232)" -"(unsafe-cdr lst_398)))" +"(unsafe-cdr lst_397)))" "(let-values(((fold-var_360)" "(let-values(((fold-var_361)" " fold-var_56))" @@ -64461,17 +64588,17 @@ static const char *startup_source = "(values" " fold-var_362)))))" "(if(not #f)" -"(for-loop_301 fold-var_360 rest_232)" +"(for-loop_300 fold-var_360 rest_232)" " fold-var_360)))" " fold-var_56)))))" -" for-loop_301)" +" for-loop_300)" " null" -" lst_397))))))" +" lst_396))))))" "(if(expand-context-to-parsed? ctx_83)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_372) rebuild-prefixless_0))" -"(if or-part_372 or-part_372 rebuild-s_8))" +"(let-values(((or-part_373) rebuild-prefixless_0))" +"(if or-part_373 or-part_373 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -65125,7 +65252,7 @@ static const char *startup_source = "(let-values(((ctx321_0) ctx_88)((s322_0) s_631))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_127)" +"((letrec-values(((loop_126)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -65179,8 +65306,8 @@ static const char *startup_source = " #f" " temp323_0" " temp324_0))" -"(loop_127 rest-es_1(sub1 index_6))))))))))))" -" loop_127)" +"(loop_126 rest-es_1(sub1 index_6))))))))))))" +" loop_126)" " e318_0" " list-start-index_0)))" "(begin" @@ -65208,8 +65335,8 @@ static const char *startup_source = "(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))" "(lambda(s_637 ctx_89)" "(let-values(((context_24)(expand-context-context ctx_89)))" -"(if(let-values(((or-part_373)(eq? context_24 'top-level)))" -"(if or-part_373 or-part_373(eq? context_24 'module)))" +"(if(let-values(((or-part_374)(eq? context_24 'top-level)))" +"(if or-part_374 or-part_374(eq? context_24 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_637)))" "(let-values(((ok?_50 begin333_0)" @@ -65300,15 +65427,15 @@ static const char *startup_source = "(let-values(((s_651)" "(cdr" " s_649)))" -"(if(let-values(((or-part_374)" +"(if(let-values(((or-part_375)" "(if(syntax?$1" " s_651)" "(symbol?" "(syntax-e$1" " s_651))" " #f)))" -"(if or-part_374" -" or-part_374" +"(if or-part_375" +" or-part_375" "(symbol?" " s_651)))" " s_651" @@ -65417,15 +65544,15 @@ static const char *startup_source = "(let-values(((s_655)" "(cdr" " s_653)))" -"(if(let-values(((or-part_375)" +"(if(let-values(((or-part_376)" "(if(syntax?$1" " s_655)" "(symbol?" "(syntax-e$1" " s_655))" " #f)))" -"(if or-part_375" -" or-part_375" +"(if or-part_376" +" or-part_376" "(symbol?" " s_655)))" " s_655" @@ -65478,14 +65605,14 @@ static const char *startup_source = "(if(pair? s_663)" "(let-values(((id366_0)" "(let-values(((s_664)(car s_663)))" -"(if(let-values(((or-part_376)" +"(if(let-values(((or-part_377)" "(if(syntax?$1 s_664)" "(symbol?" "(syntax-e$1" " s_664))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_377" +" or-part_377" "(symbol? s_664)))" " s_664" "(raise-syntax-error$1" @@ -65572,14 +65699,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_112 'resolve id_122)))" "(void)))" -"(if(let-values(((or-part_377)(variable? t_57)))" -"(if or-part_377" -" or-part_377" -"(if(not binding_30)" -"(let-values(((or-part_378)" -"(register-eventual-variable!? id_122 ctx_94)))" +"(if(let-values(((or-part_378)(variable? t_57)))" "(if or-part_378" " or-part_378" +"(if(not binding_30)" +"(let-values(((or-part_379)" +"(register-eventual-variable!? id_122 ctx_94)))" +"(if or-part_379" +" or-part_379" "(expand-context-allow-unbound? ctx_94)))" " #f)))" "(let-values()" @@ -65738,8 +65865,8 @@ static const char *startup_source = "(let-values(((ctx_95) ctx31_0))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_379) t_58))" -"(if or-part_379 or-part_379 from-rename?_1))" +"(if(let-values(((or-part_380) t_58))" +"(if or-part_380 or-part_380 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_58" @@ -65779,9 +65906,9 @@ static const char *startup_source = "(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" "(if(pair? s_678)" "(if(let-values(((s_679)(car s_678)))" -"(let-values(((or-part_380)" +"(let-values(((or-part_381)" "(if(syntax?$1 s_679)(symbol?(syntax-e$1 s_679)) #f)))" -"(if or-part_380 or-part_380(symbol? s_679))))" +"(if or-part_381 or-part_381(symbol? s_679))))" "(let-values(((s_680)(cdr s_678)))" "(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" "(null? s_681)))" @@ -65828,11 +65955,11 @@ static const char *startup_source = "(if(pair? s_695)" "(if(let-values(((s_696)(car s_695))) #t)" "(let-values(((s_697)(cdr s_695)))" -"(let-values(((or-part_381)" +"(let-values(((or-part_382)" "(if(syntax?$1 s_697)" "(symbol?(syntax-e$1 s_697))" " #f)))" -"(if or-part_381 or-part_381(symbol? s_697))))" +"(if or-part_382 or-part_382(symbol? s_697))))" " #f)" " #f)))" "(let-values(((s_698)(cdr s_693)))" @@ -65884,7 +66011,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference406_0)" "(let-values(((s_710) disarmed-s_22))" -"(if(if(not(let-values(((or-part_382) ok?_54))(if or-part_382 or-part_382 ok?_55)))" +"(if(if(not(let-values(((or-part_383) ok?_54))(if or-part_383 or-part_383 ok?_55)))" " #t" " #f)" "(let-values(((orig-s_59) s_710))" @@ -65909,7 +66036,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference406_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_383) ok?_54))(if or-part_383 or-part_383 ok?_55))" +"(if(let-values(((or-part_384) ok?_54))(if or-part_384 or-part_384 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))" "(let-values(((binding_31)" @@ -65923,8 +66050,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_384) binding_31))" -"(if or-part_384 or-part_384(expand-context-allow-unbound? ctx_98)))" +"(if(let-values(((or-part_385) binding_31))" +"(if or-part_385 or-part_385(expand-context-allow-unbound? ctx_98)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -66014,9 +66141,9 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp424_0 temp425_0))))" "(if(expand-context-to-parsed? ctx_99)" " exp-e_0" -"(let-values(((tmp_62)" +"(let-values(((tmp_61)" "(if(not(expand-context-in-local-expand? ctx_99))(expand-context-context ctx_99) #f)))" -"(if(equal? tmp_62 'expression)" +"(if(equal? tmp_61 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" @@ -66061,7 +66188,7 @@ static const char *startup_source = "(lambda(specs_0 orig-s_61 rp_1 self_28 phase_41 ctx_102)" "(begin" "(let-values(((ns_124)(expand-context-namespace ctx_102)))" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_114)" "(lambda(specs_1 at-phase_13 protected?_4 layer_6)" "(begin" " 'loop" @@ -66076,16 +66203,16 @@ static const char *startup_source = "((letrec-values(((for-loop_91)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_399)" +" lst_398)" "(begin" " 'for-loop" -"(if(pair? lst_399)" +"(if(pair? lst_398)" "(let-values(((spec_0)" "(unsafe-car" -" lst_399))" +" lst_398))" "((rest_233)" "(unsafe-cdr" -" lst_399)))" +" lst_398)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -66133,11 +66260,11 @@ static const char *startup_source = " fm_2)" " orig-s_61" " spec_0)))))))" -"(let-values(((tmp_63)" +"(let-values(((tmp_62)" " fm_2))" "(let-values(((index_7)" "(if(symbol?" -" tmp_63)" +" tmp_62)" "(hash-ref" " '#hasheq((all-defined" " ." @@ -66177,7 +66304,7 @@ static const char *startup_source = "(struct" " ." " 6))" -" tmp_63" +" tmp_62" "(lambda()" " 0))" " 0)))" @@ -66321,7 +66448,7 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_115" +"(loop_114" " spec5_0" "(phase+" " p_68" @@ -66335,7 +66462,7 @@ static const char *startup_source = " track-stxes_5" "(let-values(((spec11_0)" " spec_0)" -"((temp12_7)" +"((temp12_6)" "(list*" " for-meta3_0" " phase-level4_0" @@ -66344,7 +66471,7 @@ static const char *startup_source = " #f" " #f" " spec11_0" -" temp12_7))))))))))))" +" temp12_6))))))))))))" "(if(unsafe-fx<" " index_7" " 3)" @@ -66411,7 +66538,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_115" +"(loop_114" " spec14_0" "(phase+" " 1" @@ -66500,7 +66627,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_115" +"(loop_114" " spec20_0" " #f" " protected?_4" @@ -66598,7 +66725,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_115" +"(loop_114" " p-spec26_0" " at-phase_13" " #t" @@ -66888,17 +67015,17 @@ static const char *startup_source = " lst_100)))" "((letrec-values(((for-loop_116)" "(lambda(id:field_1" -" lst_400)" +" lst_399)" "(begin" " 'for-loop" "(if(pair?" -" lst_400)" +" lst_399)" "(let-values(((s_66)" "(unsafe-car" -" lst_400))" +" lst_399))" "((rest_234)" "(unsafe-cdr" -" lst_400)))" +" lst_399)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -66906,15 +67033,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_385)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" " s_66)" "(symbol?" "(syntax-e$1" " s_66))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_386" +" or-part_386" "(symbol?" " s_66)))" " s_66" @@ -67163,7 +67290,7 @@ static const char *startup_source = " orig-s_67))" "(let-values()" "(let-values(((id_127)" -"(let-values(((lst_401)" +"(let-values(((lst_400)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67171,20 +67298,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_401)))" -"((letrec-values(((for-loop_302)" +" lst_400)))" +"((letrec-values(((for-loop_301)" "(lambda(id_128" -" lst_402)" +" lst_401)" "(begin" " 'for-loop" "(if(pair?" -" lst_402)" +" lst_401)" "(let-values(((s_325)" "(unsafe-car" -" lst_402))" +" lst_401))" "((rest_235)" "(unsafe-cdr" -" lst_402)))" +" lst_401)))" "(let-values(((id_109)" "(let-values(((id_129)" " id_128))" @@ -67192,15 +67319,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_386)" +"(if(let-values(((or-part_387)" "(if(syntax?$1" " s_325)" "(symbol?" "(syntax-e$1" " s_325))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_387" +" or-part_387" "(symbol?" " s_325)))" " s_325" @@ -67216,14 +67343,14 @@ static const char *startup_source = " id_130)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " id_109" " rest_235)" " id_109)))" " id_128)))))" -" for-loop_302)" +" for-loop_301)" " null" -" lst_401)))))" +" lst_400)))))" "(reverse$1" " id_127)))))))))" "(values" @@ -67384,7 +67511,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id_131)" -"(let-values(((lst_403)" +"(let-values(((lst_402)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67392,20 +67519,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_403)))" -"((letrec-values(((for-loop_303)" +" lst_402)))" +"((letrec-values(((for-loop_302)" "(lambda(id_132" -" lst_404)" +" lst_403)" "(begin" " 'for-loop" "(if(pair?" -" lst_404)" +" lst_403)" "(let-values(((s_498)" "(unsafe-car" -" lst_404))" +" lst_403))" "((rest_236)" "(unsafe-cdr" -" lst_404)))" +" lst_403)))" "(let-values(((id_133)" "(let-values(((id_134)" " id_132))" @@ -67413,15 +67540,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_387)" +"(if(let-values(((or-part_388)" "(if(syntax?$1" " s_498)" "(symbol?" "(syntax-e$1" " s_498))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_388" +" or-part_388" "(symbol?" " s_498)))" " s_498" @@ -67437,14 +67564,14 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_303" +"(for-loop_302" " id_133" " rest_236)" " id_133)))" " id_132)))))" -" for-loop_303)" +" for-loop_302)" " null" -" lst_403)))))" +" lst_402)))))" "(reverse$1" " id_131)))))))))" "(values" @@ -67520,15 +67647,15 @@ static const char *startup_source = "(let-values(((s_742)" "(car" " s_741)))" -"(if(let-values(((or-part_388)" +"(if(let-values(((or-part_389)" "(if(syntax?$1" " s_742)" "(symbol?" "(syntax-e$1" " s_742))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_389" +" or-part_389" "(symbol?" " s_742)))" " s_742" @@ -67637,15 +67764,15 @@ static const char *startup_source = "(let-values(((s_509)" "(car" " s_345)))" -"(if(let-values(((or-part_389)" +"(if(let-values(((or-part_390)" "(if(syntax?$1" " s_509)" "(symbol?" "(syntax-e$1" " s_509))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_390" +" or-part_390" "(symbol?" " s_509)))" " s_509" @@ -67685,19 +67812,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_304)" +"((letrec-values(((for-loop_303)" "(lambda(id_136" -" lst_405)" +" lst_404)" "(begin" " 'for-loop" "(if(pair?" -" lst_405)" +" lst_404)" "(let-values(((s_744)" "(unsafe-car" -" lst_405))" +" lst_404))" "((rest_237)" "(unsafe-cdr" -" lst_405)))" +" lst_404)))" "(let-values(((id_137)" "(let-values(((id_138)" " id_136))" @@ -67705,15 +67832,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_390)" +"(if(let-values(((or-part_391)" "(if(syntax?$1" " s_744)" "(symbol?" "(syntax-e$1" " s_744))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_391" +" or-part_391" "(symbol?" " s_744)))" " s_744" @@ -67729,12 +67856,12 @@ static const char *startup_source = " id_139)))))" "(if(not" " #f)" -"(for-loop_304" +"(for-loop_303" " id_137" " rest_237)" " id_137)))" " id_136)))))" -" for-loop_304)" +" for-loop_303)" " null" " lst_4)))))" "(reverse$1" @@ -67830,15 +67957,15 @@ static const char *startup_source = "(let-values(((s_747)" "(car" " s_252)))" -"(if(let-values(((or-part_391)" +"(if(let-values(((or-part_392)" "(if(syntax?$1" " s_747)" "(symbol?" "(syntax-e$1" " s_747))" " #f)))" -"(if or-part_391" -" or-part_391" +"(if or-part_392" +" or-part_392" "(symbol?" " s_747)))" " s_747" @@ -67973,10 +68100,10 @@ static const char *startup_source = "(let-values(((temp104_4)" " form96_0)" "((temp105_4)" -"(let-values(((v_254)" +"(let-values(((v_257)" " ctx_102))" "(let-values(((the-struct_98)" -" v_254))" +" v_257))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((def-ctx-scopes106_0)" @@ -67985,7 +68112,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_99)" "(root-expand-context/outer-inner" -" v_254)))" +" v_257)))" "(if(expand-context/inner?" " the-struct_99)" "(let-values(((stops108_0)" @@ -68168,7 +68295,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_115" +"(loop_114" " spec101_0" " at-phase_13" " protected?_4" @@ -68206,7 +68333,7 @@ static const char *startup_source = " lst_73)))))" "(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_114)" " specs_0" " phase_41" " #f" @@ -68261,17 +68388,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" "(begin" -" (let-values (((lst_406) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_405) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_406)))" -"((letrec-values(((for-loop_305)" -"(lambda(lst_407)" +"(let-values()(check-list lst_405)))" +"((letrec-values(((for-loop_304)" +"(lambda(lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_407)" -"(let-values(((fmt_3)(unsafe-car lst_407))((rest_238)(unsafe-cdr lst_407)))" +"(if(pair? lst_406)" +"(let-values(((fmt_3)(unsafe-car lst_406))((rest_238)(unsafe-cdr lst_406)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68289,22 +68416,22 @@ static const char *startup_source = " protected?_6)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_305 rest_238)(values))))" +"(if(not #f)(for-loop_304 rest_238)(values))))" "(values))))))" -" for-loop_305)" -" lst_406)))" +" for-loop_304)" +" lst_405)))" "(void)" -"(let-values(((lst_408) fields_0))" +"(let-values(((lst_407) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_408)))" -"((letrec-values(((for-loop_306)" -"(lambda(lst_409)" +"(let-values()(check-list lst_407)))" +"((letrec-values(((for-loop_305)" +"(lambda(lst_408)" "(begin" " 'for-loop" -"(if(pair? lst_409)" -"(let-values(((field_0)(unsafe-car lst_409))((rest_239)(unsafe-cdr lst_409)))" +"(if(pair? lst_408)" +"(let-values(((field_0)(unsafe-car lst_408))((rest_239)(unsafe-cdr lst_408)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68336,10 +68463,10 @@ static const char *startup_source = " protected?_6)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_306 rest_239)(values))))" +"(if(not #f)(for-loop_305 rest_239)(values))))" "(values))))))" -" for-loop_306)" -" lst_408)))" +" for-loop_305)" +" lst_407)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -68387,12 +68514,12 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_410) requireds_2))" +"(let-values(((lst_409) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_410)))" -"((letrec-values(((for-loop_307)" +"(let-values()(check-list lst_409)))" +"((letrec-values(((for-loop_306)" "(lambda(lst_283)" "(begin" " 'for-loop" @@ -68410,7 +68537,7 @@ static const char *startup_source = "(let-values(((phase_145)" "(required-phase" " i_191)))" -"(if(let-values(((or-part_392)" +"(if(let-values(((or-part_393)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -68426,8 +68553,8 @@ static const char *startup_source = " phase_145)" " #f))" " #f)))" -"(if or-part_392" -" or-part_392" +"(if or-part_393" +" or-part_393" "(let-values(((lst_234)" " except-ids_1))" "(begin" @@ -68437,19 +68564,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_234)))" -"((letrec-values(((for-loop_308)" +"((letrec-values(((for-loop_307)" "(lambda(result_119" -" lst_411)" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_410)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_411))" +" lst_410))" "((rest_214)" "(unsafe-cdr" -" lst_411)))" +" lst_410)))" "(let-values(((result_120)" "(let-values()" "(let-values(((result_121)" @@ -68474,12 +68601,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_308" +"(for-loop_307" " result_120" " rest_214)" " result_120)))" " result_119)))))" -" for-loop_308)" +" for-loop_307)" " #f" " lst_234)))))" "(void)" @@ -68536,27 +68663,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_307 rest_240)(values))))" +"(if(not #f)(for-loop_306 rest_240)(values))))" "(values))))))" -" for-loop_307)" -" lst_410)))" +" for-loop_306)" +" lst_409)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_369) except-ids_1))" +"(let-values(((lst_368) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_369)))" -"((letrec-values(((for-loop_309)" -"(lambda(lst_371)" +"(let-values()(check-list lst_368)))" +"((letrec-values(((for-loop_308)" +"(lambda(lst_370)" "(begin" " 'for-loop" -"(if(pair? lst_371)" -"(let-values(((except-id_1)(unsafe-car lst_371))" -"((rest_241)(unsafe-cdr lst_371)))" +"(if(pair? lst_370)" +"(let-values(((except-id_1)(unsafe-car lst_370))" +"((rest_241)(unsafe-cdr lst_370)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68570,7 +68697,7 @@ static const char *startup_source = " #f)))" "(if or-part_156" " or-part_156" -"(let-values(((lst_372)" +"(let-values(((lst_371)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68578,8 +68705,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_372)))" -"((letrec-values(((for-loop_310)" +" lst_371)))" +"((letrec-values(((for-loop_309)" "(lambda(result_122" " lst_141)" "(begin" @@ -68617,14 +68744,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_310" +"(for-loop_309" " result_123" " rest_217)" " result_123)))" " result_122)))))" -" for-loop_310)" +" for-loop_309)" " #f" -" lst_372)))))" +" lst_371)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68638,10 +68765,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_309 rest_241)(values))))" +"(if(not #f)(for-loop_308 rest_241)(values))))" "(values))))))" -" for-loop_309)" -" lst_369)))" +" for-loop_308)" +" lst_368)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -68652,12 +68779,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_412) bodys_14))" +"(let-values(((lst_411) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_412)))" -"((letrec-values(((for-loop_311)" +"(let-values()(check-list lst_411)))" +"((letrec-values(((for-loop_310)" "(lambda(lst_80)" "(begin" " 'for-loop" @@ -68705,10 +68832,10 @@ static const char *startup_source = " p_34))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_311 rest_38)(values))))" +"(if(not #f)(for-loop_310 rest_38)(values))))" "(values))))))" -" for-loop_311)" -" lst_412)))" +" for-loop_310)" +" lst_411)))" "(void)))))" "((check-expr_0)" "(lambda(e_86 num-results_0 enclosing_15)" @@ -68758,24 +68885,24 @@ static const char *startup_source = " for-loop_70)" " lst_74)))" "(void)" -"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_86))))" -"(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" +"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_86))))" +"(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" -"(if(equal? tmp_64 'make-struct-type)" +"(if(equal? tmp_63 'make-struct-type)" "(let-values()(check-count 5 num-results_0 enclosing_15))" -"(if(equal? tmp_64 'make-struct-type-property)" +"(if(equal? tmp_63 'make-struct-type-property)" "(let-values()(check-count 3 num-results_0 enclosing_15))" -"(if(equal? tmp_64 'gensym)" +"(if(equal? tmp_63 'gensym)" "(let-values()" -"(if(let-values(((or-part_393)(= 0(length rands_1))))" -"(if or-part_393" -" or-part_393" +"(if(let-values(((or-part_394)(= 0(length rands_1))))" +"(if or-part_394" +" or-part_394" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" "(let-values()(disallow e_86))))" -"(if(equal? tmp_64 'string->uninterned-symbol)" +"(if(equal? tmp_63 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" @@ -68796,7 +68923,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_271)" "(lambda(lst_262)" "(begin" " 'for-loop" @@ -68813,9 +68940,9 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_272 rest_243)(values))))" +"(if(not #f)(for-loop_271 rest_243)(values))))" "(values))))))" -" for-loop_272)" +" for-loop_271)" " lst_269)))" "(void)))" "(if(parsed-app? e_73)" @@ -69996,10 +70123,10 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_109)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_255)" +"(let-values(((v_258)" " ctx_109))" "(let-values(((the-struct_105)" -" v_255))" +" v_258))" "(if(expand-context/outer?" " the-struct_105)" "(let-values(((context325_0)" @@ -70011,7 +70138,7 @@ static const char *startup_source = "((inner328_0)" "(let-values(((the-struct_48)" "(root-expand-context/outer-inner" -" v_255)))" +" v_258)))" "(if(expand-context/inner?" " the-struct_48)" "(let-values(((phase329_0)" @@ -70202,12 +70329,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_256)" +"(let-values(((v_259)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_106)" -" v_256))" +" v_259))" "(if(expand-context/outer?" " the-struct_106)" "(let-values(((def-ctx-scopes362_0)" @@ -70217,7 +70344,7 @@ static const char *startup_source = "((inner364_0)" "(let-values(((the-struct_107)" "(root-expand-context/outer-inner" -" v_256)))" +" v_259)))" "(if(expand-context/inner?" " the-struct_107)" "(let-values(((stops365_0)" @@ -70428,10 +70555,10 @@ static const char *startup_source = " #t" " m-ns_19))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_257)" +"(let-values(((v_260)" " ctx_109))" "(let-values(((the-struct_108)" -" v_257))" +" v_260))" "(if(expand-context/outer?" " the-struct_108)" "(let-values(((frame-id379_0)" @@ -70441,7 +70568,7 @@ static const char *startup_source = "((inner381_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_257)))" +" v_260)))" "(if(expand-context/inner?" " the-struct_109)" "(let-values(((namespace382_0)" @@ -70642,10 +70769,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_258)" +"(let-values(((v_261)" " ctx_108))" "(let-values(((the-struct_110)" -" v_258))" +" v_261))" "(if(expand-context/outer?" " the-struct_110)" "(let-values(((context408_0)" @@ -70653,7 +70780,7 @@ static const char *startup_source = "((inner409_0)" "(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_258)))" +" v_261)))" "(if(expand-context/inner?" " the-struct_111)" "(let-values(((module-begin-k410_0)" @@ -70847,18 +70974,18 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_216)))" -"((letrec-values(((for-loop_312)" -"(lambda(lst_413)" +"((letrec-values(((for-loop_311)" +"(lambda(lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_413)" +" lst_412)" "(let-values(((mpi_54)" "(unsafe-car" -" lst_413))" +" lst_412))" "((rest_114)" "(unsafe-cdr" -" lst_413)))" +" lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70871,11 +70998,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_311" " rest_114)" "(values))))" "(values))))))" -" for-loop_312)" +" for-loop_311)" " lst_216)))" "(void)" "(let-values(((result-s_15)" @@ -70965,13 +71092,13 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_259) ctx_110))" -"(let-values(((the-struct_112) v_259))" +"(let-values(((v_262) ctx_110))" +"(let-values(((the-struct_112) v_262))" "(if(expand-context/outer? the-struct_112)" "(let-values(((context427_0) 'module-begin)" "((only-immediate?428_0) #t)" "((def-ctx-scopes429_0) def-ctx-scopes_9)" -"((inner430_0)(root-expand-context/outer-inner v_259)))" +"((inner430_0)(root-expand-context/outer-inner v_262)))" "(expand-context/outer1.1" " inner430_0" "(root-expand-context/outer-post-expansion-scope the-struct_112)" @@ -71216,7 +71343,7 @@ static const char *startup_source = "(let-values()" "(begin" "(namespace-visit-available-modules! m-ns_20 phase_151)" -"((letrec-values(((loop_128)" +"((letrec-values(((loop_127)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" @@ -71262,7 +71389,7 @@ static const char *startup_source = "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_128" +"(loop_127" " #t" "(add-post-expansion-scope" " bodys_22" @@ -71326,12 +71453,12 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_65)" +"(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_1" " phase_151)))" "(if(equal?" -" tmp_65" +" tmp_64" " 'begin)" "(let-values()" "(let-values(((ok?_75" @@ -71414,11 +71541,11 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_128" +"(loop_127" " tail?_53" " spliced-bodys_0))))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'begin-for-syntax)" "(let-values()" "(let-values((()" @@ -71570,19 +71697,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_47)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_312)" "(lambda(fold-var_358" -" lst_414)" +" lst_413)" "(begin" " 'for-loop" "(if(pair?" -" lst_414)" +" lst_413)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_414))" +" lst_413))" "((rest_246)" "(unsafe-cdr" -" lst_414)))" +" lst_413)))" "(let-values(((fold-var_124)" "(let-values(((fold-var_125)" " fold-var_358))" @@ -71597,12 +71724,12 @@ static const char *startup_source = " fold-var_363)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_312" " fold-var_124" " rest_246)" " fold-var_124)))" " fold-var_358)))))" -" for-loop_313)" +" for-loop_312)" " null" " lst_47))))))" "(datum->syntax$1" @@ -71616,11 +71743,11 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'define-values)" "(let-values()" "(let-values((()" @@ -71700,7 +71827,7 @@ static const char *startup_source = " orig-s_84))" "(let-values()" "(let-values(((id_145)" -"(let-values(((lst_415)" +"(let-values(((lst_414)" " flat-s_55))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71708,20 +71835,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" -"((letrec-values(((for-loop_314)" +" lst_414)))" +"((letrec-values(((for-loop_313)" "(lambda(id_146" -" lst_416)" +" lst_415)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" +" lst_415)" "(let-values(((s_771)" "(unsafe-car" -" lst_416))" +" lst_415))" "((rest_247)" "(unsafe-cdr" -" lst_416)))" +" lst_415)))" "(let-values(((id_147)" "(let-values(((id_148)" " id_146))" @@ -71729,15 +71856,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id483_0)" "(let-values()" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" " s_771)" "(symbol?" "(syntax-e$1" " s_771))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_395" +" or-part_395" "(symbol?" " s_771)))" " s_771" @@ -71753,14 +71880,14 @@ static const char *startup_source = " id_149)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_313" " id_147" " rest_247)" " id_147)))" " id_146)))))" -" for-loop_314)" +" for-loop_313)" " null" -" lst_415)))))" +" lst_414)))))" "(reverse$1" " id_145))))))))" "((rhs474_0)" @@ -71904,11 +72031,11 @@ static const char *startup_source = " syms_24" " ids_40" " rhs469_0)" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'define-syntaxes)" "(let-values()" "(let-values((()" @@ -72009,7 +72136,7 @@ static const char *startup_source = " orig-s_85))" "(let-values()" "(let-values(((id_150)" -"(let-values(((lst_417)" +"(let-values(((lst_416)" " flat-s_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72017,20 +72144,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_315)" +" lst_416)))" +"((letrec-values(((for-loop_314)" "(lambda(id_151" -" lst_418)" +" lst_417)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_417)" "(let-values(((s_780)" "(unsafe-car" -" lst_418))" +" lst_417))" "((rest_248)" "(unsafe-cdr" -" lst_418)))" +" lst_417)))" "(let-values(((id_152)" "(let-values(((id_153)" " id_151))" @@ -72038,15 +72165,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id508_0)" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" " s_780)" "(symbol?" "(syntax-e$1" " s_780))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_396" +" or-part_396" "(symbol?" " s_780)))" " s_780" @@ -72062,14 +72189,14 @@ static const char *startup_source = " id_154)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_314" " id_152" " rest_248)" " id_152)))" " id_151)))))" -" for-loop_315)" +" for-loop_314)" " null" -" lst_417)))))" +" lst_416)))))" "(reverse$1" " id_150))))))))" "((rhs499_0)" @@ -72202,10 +72329,10 @@ static const char *startup_source = "((ids519_0)" " ids_41)" "((temp520_0)" -"(let-values(((v_260)" +"(let-values(((v_263)" " partial-body-ctx_1))" "(let-values(((the-struct_113)" -" v_260))" +" v_263))" "(if(expand-context/outer?" " the-struct_113)" "(let-values(((need-eventually-defined522_0)" @@ -72213,7 +72340,7 @@ static const char *startup_source = "((inner523_0)" "(let-values(((the-struct_114)" "(root-expand-context/outer-inner" -" v_260)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_114)" "(let-values(((lifts524_0)" @@ -72315,11 +72442,11 @@ static const char *startup_source = " temp520_0))))" "(let-values((()" "(begin" -"(let-values(((lst_419)" +"(let-values(((lst_418)" " syms_25)" -"((lst_420)" +"((lst_419)" " vals_10)" -"((lst_421)" +"((lst_420)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72327,6 +72454,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_418)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_419)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -72334,44 +72467,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_420)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_421)))" -"((letrec-values(((for-loop_316)" -"(lambda(lst_422" -" lst_423" -" lst_424)" +"((letrec-values(((for-loop_315)" +"(lambda(lst_421" +" lst_422" +" lst_423)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_422)" +" lst_421)" "(if(pair?" -" lst_423)" +" lst_422)" "(pair?" -" lst_424)" +" lst_423)" " #f)" " #f)" "(let-values(((sym_105)" "(unsafe-car" -" lst_422))" +" lst_421))" "((rest_249)" "(unsafe-cdr" -" lst_422))" +" lst_421))" "((val_86)" "(unsafe-car" -" lst_423))" +" lst_422))" "((rest_250)" "(unsafe-cdr" -" lst_423))" +" lst_422))" "((id_155)" "(unsafe-car" -" lst_424))" +" lst_423))" "((rest_251)" "(unsafe-cdr" -" lst_424)))" +" lst_423)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72393,16 +72520,16 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_315" " rest_249" " rest_250" " rest_251)" "(values))))" "(values))))))" -" for-loop_316)" +" for-loop_315)" +" lst_418" " lst_419" -" lst_420" -" lst_421)))" +" lst_420)))" "(values))))" "(let-values()" "(let-values((()" @@ -72449,11 +72576,11 @@ static const char *startup_source = " exp-body527_0" " temp528_0))" " parsed-body_0))" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_65" +" tmp_64" " '#%require)" "(let-values()" "(let-values((()" @@ -72590,20 +72717,20 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1)))))))" "(if(equal?" -" tmp_65" +" tmp_64" " '#%provide)" "(let-values()" "(cons" " exp-body_7" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1)))" "(if(equal?" -" tmp_65" +" tmp_64" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -72640,11 +72767,11 @@ static const char *startup_source = " partial-body-ctx_1))))" "(cons" " submod_2" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1)))))" "(if(equal?" -" tmp_65" +" tmp_64" " 'module*)" "(let-values()" "(begin" @@ -72669,11 +72796,11 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1))))" "(if(equal?" -" tmp_65" +" tmp_64" " '#%declare)" "(let-values()" "(let-values(((ok?_80" @@ -72733,7 +72860,7 @@ static const char *startup_source = " kw551_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_425)" +"(let-values(((lst_424)" " kw551_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72741,19 +72868,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_425)))" -"((letrec-values(((for-loop_317)" -"(lambda(lst_426)" +" lst_424)))" +"((letrec-values(((for-loop_316)" +"(lambda(lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_426)" +" lst_425)" "(let-values(((kw_1)" "(unsafe-car" -" lst_426))" +" lst_425))" "((rest_252)" "(unsafe-cdr" -" lst_426)))" +" lst_425)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72804,12 +72931,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_317" +"(for-loop_316" " rest_252)" "(values))))" "(values))))))" -" for-loop_317)" -" lst_425)))" +" for-loop_316)" +" lst_424)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -72822,13 +72949,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_128" +"(loop_127" " tail?_53" " rest-bodys_1)))))))))))))))))" "(let-values(((l_84)" @@ -72837,7 +72964,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_128" +"(loop_127" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -72849,7 +72976,7 @@ static const char *startup_source = "(append" " l_84" "(finish_2)))))))))))))))))" -" loop_128)" +" loop_127)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" @@ -72859,18 +72986,18 @@ static const char *startup_source = "(lambda(ids_42 rhs_23 phase_152)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_427) ids_42))" +"(let-values(((lst_426) ids_42))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_427)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_364 lst_428)" +"(let-values()(check-list lst_426)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_364 lst_427)" "(begin" " 'for-loop" -"(if(pair? lst_428)" -"(let-values(((id_156)(unsafe-car lst_428))" -"((rest_253)(unsafe-cdr lst_428)))" +"(if(pair? lst_427)" +"(let-values(((id_156)(unsafe-car lst_427))" +"((rest_253)(unsafe-cdr lst_427)))" "(let-values(((fold-var_365)" "(let-values(((fold-var_366) fold-var_364))" "(let-values(((fold-var_367)" @@ -72882,11 +73009,11 @@ static const char *startup_source = " inside-scope_2))" " fold-var_366))))" "(values fold-var_367)))))" -"(if(not #f)(for-loop_318 fold-var_365 rest_253) fold-var_365)))" +"(if(not #f)(for-loop_317 fold-var_365 rest_253) fold-var_365)))" " fold-var_364)))))" -" for-loop_318)" +" for-loop_317)" " null" -" lst_427))))))" +" lst_426))))))" "(let-values(((syms_26)" "(let-values(((frame-id559_0) frame-id_18)((requires+provides560_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" @@ -72921,15 +73048,15 @@ static const char *startup_source = "(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_111)))" "(if sc_34" "(reverse$1" -"(let-values(((lst_429) bodys_23))" +"(let-values(((lst_428) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_429)))" -"((letrec-values(((for-loop_319)" -"(lambda(fold-var_368 lst_430)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_428)))" +"((letrec-values(((for-loop_318)" +"(lambda(fold-var_368 lst_429)" "(begin" " 'for-loop" -"(if(pair? lst_430)" -"(let-values(((body_23)(unsafe-car lst_430))((rest_254)(unsafe-cdr lst_430)))" +"(if(pair? lst_429)" +"(let-values(((body_23)(unsafe-car lst_429))((rest_254)(unsafe-cdr lst_429)))" "(let-values(((fold-var_369)" "(let-values(((fold-var_370) fold-var_368))" "(let-values(((fold-var_371)" @@ -72938,11 +73065,11 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_34))" " fold-var_370))))" "(values fold-var_371)))))" -"(if(not #f)(for-loop_319 fold-var_369 rest_254) fold-var_369)))" +"(if(not #f)(for-loop_318 fold-var_369 rest_254) fold-var_369)))" " fold-var_368)))))" -" for-loop_319)" +" for-loop_318)" " null" -" lst_429))))" +" lst_428))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -72965,7 +73092,7 @@ static const char *startup_source = "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))" "(let-values()" -"((letrec-values(((loop_129)" +"((letrec-values(((loop_128)" "(lambda(tail?_54 bodys_24)" "(begin" " 'loop" @@ -73007,7 +73134,7 @@ static const char *startup_source = "(void)))" " null))" "(let-values()" -"(loop_129" +"(loop_128" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" @@ -73025,14 +73152,14 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_397)" "(parsed? body_24)))" -"(if or-part_396" -" or-part_396" -"(let-values(((or-part_397)" -"(expanded+parsed? body_24)))" "(if or-part_397" " or-part_397" +"(let-values(((or-part_398)" +"(expanded+parsed? body_24)))" +"(if or-part_398" +" or-part_398" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -73244,15 +73371,15 @@ static const char *startup_source = "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_66)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" " phase_153)))" -"(if(if(equal? tmp_66 '#%require)" +"(if(if(equal? tmp_65 '#%require)" " #t" -"(if(equal? tmp_66 '#%provide)" +"(if(equal? tmp_65 '#%provide)" " #t" -"(equal? tmp_66 'module*)))" +"(equal? tmp_65 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" @@ -73343,7 +73470,7 @@ static const char *startup_source = " self_34" " body-ctx_7))))" "(let-values(((exp-lifted-defns_0)" -"(loop_129 #f lifted-defns_1)))" +"(loop_128 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" @@ -73364,10 +73491,10 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_129" +"(loop_128" " tail?_54" " rest-bodys_2)))))))))))))))))))))" -" loop_129)" +" loop_128)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" @@ -73378,7 +73505,7 @@ static const char *startup_source = "(let-values(((ht_164) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_319)" "(lambda(i_193)" "(begin" " 'for-loop" @@ -73391,24 +73518,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_431) l_85))" +"(let-values(((lst_430) l_85))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_431)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_432)" +"(let-values()(check-list lst_430)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_431)" "(begin" " 'for-loop" "(if(pair?" -" lst_432)" +" lst_431)" "(let-values(((id_157)" "(unsafe-car" -" lst_432))" +" lst_431))" "((rest_255)" "(unsafe-cdr" -" lst_432)))" +" lst_431)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73462,18 +73589,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_321" +"(for-loop_320" " rest_255)" "(values))))" "(values))))))" -" for-loop_321)" -" lst_431)))" +" for-loop_320)" +" lst_430)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320(hash-iterate-next ht_164 i_193))(values))))" +"(if(not #f)(for-loop_319(hash-iterate-next ht_164 i_193))(values))))" "(values))))))" -" for-loop_320)" +" for-loop_319)" "(hash-iterate-first ht_164))))" "(void)))))" "(define-values" @@ -73496,20 +73623,20 @@ static const char *startup_source = "(let-values(((ctx_113) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_130)" +"((letrec-values(((loop_129)" "(lambda(bodys_26 phase_156)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_398)(parsed?(car bodys_26))))" -"(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_399)(parsed?(car bodys_26))))" +"(if or-part_399 or-part_399(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_156)))" +"(cons(car bodys_26)(loop_129(cdr bodys_26) phase_156)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_130" +"(loop_129" "(semi-parsed-begin-for-syntax-body(car bodys_26))" "(add1 phase_156))))" "(cons" @@ -73523,12 +73650,12 @@ static const char *startup_source = " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_115)))" -"(loop_130(cdr bodys_26) phase_156))))" +"(loop_129(cdr bodys_26) phase_156))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_67)" +"(let-values(((tmp_66)" "(core-form-sym disarmed-body_1 phase_156)))" -"(if(equal? tmp_67 '#%provide)" +"(if(equal? tmp_66 '#%provide)" "(let-values()" "(let-values((()" "(begin" @@ -73605,9 +73732,9 @@ static const char *startup_source = " requires+provides_9" " self_36" " phase_156" -"(let-values(((v_261) ctx_113))" +"(let-values(((v_264) ctx_113))" "(let-values(((the-struct_116)" -" v_261))" +" v_264))" "(if(expand-context/outer?" " the-struct_116)" "(let-values(((context598_0)" @@ -73615,7 +73742,7 @@ static const char *startup_source = "((inner599_0)" "(let-values(((the-struct_117)" "(root-expand-context/outer-inner" -" v_261)))" +" v_264)))" "(if(expand-context/inner?" " the-struct_117)" "(let-values(((phase600_0)" @@ -73720,7 +73847,7 @@ static const char *startup_source = "(void)))" "(if(expand-context-to-parsed? ctx_113)" "(let-values()" -"(loop_130(cdr bodys_26) phase_156))" +"(loop_129(cdr bodys_26) phase_156))" "(let-values()" "(cons" "(syntax-track-origin*" @@ -73731,12 +73858,12 @@ static const char *startup_source = " #%provide594_0" " specs_2)))" "(rebuild5.1 #f #f temp604_0 temp605_0)))" -"(loop_130(cdr bodys_26) phase_156)))))))))" +"(loop_129(cdr bodys_26) phase_156)))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_130(cdr bodys_26) phase_156))))))))))))))" -" loop_130)" +"(loop_129(cdr bodys_26) phase_156))))))))))))))" +" loop_129)" " expression-expanded-bodys_1" " phase_155)))))))))))))" "(define-values" @@ -73783,8 +73910,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_399) enclosing-self_3))" -"(if or-part_399 or-part_399 self_37)))))" +"(let-values(((or-part_400) enclosing-self_3))" +"(if or-part_400 or-part_400 self_37)))))" "(let-values(((compiled-module_0)" "(let-values(((temp607_0)" "(let-values(((m-ns611_0) m-ns_22)" @@ -73888,7 +74015,7 @@ static const char *startup_source = "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" -"((letrec-values(((loop_131)" +"((letrec-values(((loop_130)" "(lambda(bodys_27 phase_158)" "(begin" " 'loop" @@ -73969,7 +74096,7 @@ static const char *startup_source = " submod-ctx620_0" " body-s621_0))))" "(let-values(((nested-bodys_3)" -"(loop_131" +"(loop_130" "(semi-parsed-begin-for-syntax-body" " body_25)" "(add1 phase_158))))" @@ -73995,21 +74122,21 @@ static const char *startup_source = " rebuild-body-s622_0" " temp623_0))" " parsed-bfs_0))" -"(loop_131 rest-bodys_3 phase_158))))))))" -"(if(let-values(((or-part_400)(parsed? body_25)))" -"(if or-part_400" -" or-part_400" +"(loop_130 rest-bodys_3 phase_158))))))))" +"(if(let-values(((or-part_401)(parsed? body_25)))" +"(if or-part_401" +" or-part_401" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_131 rest-bodys_3 phase_158)))" +"(cons body_25(loop_130 rest-bodys_3 phase_158)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_68)" +"(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_2" " phase_158)))" -"(if(equal? tmp_68 'module*)" +"(if(equal? tmp_67 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -74266,16 +74393,16 @@ static const char *startup_source = " submod-ctx_1))))))" "(cons" " submod_3" -"(loop_131" +"(loop_130" " rest-bodys_3" " phase_158)))))))" "(let-values()" "(cons" " body_25" -"(loop_131" +"(loop_130" " rest-bodys_3" " phase_158)))))))))))))))))" -" loop_131)" +" loop_130)" " fully-expanded-bodys-except-post-submodules_2" " phase_157)))))))))))))))))" "(define-values" @@ -74297,18 +74424,18 @@ static const char *startup_source = "(let-values(((s_836) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_433) ids_44))" +"(let-values(((lst_432) ids_44))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_433)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_434)" +"(let-values()(check-list lst_432)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_433)" "(begin" " 'for-loop" -"(if(pair? lst_434)" -"(let-values(((id_158)(unsafe-car lst_434))" -"((rest_256)(unsafe-cdr lst_434)))" +"(if(pair? lst_433)" +"(let-values(((id_158)(unsafe-car lst_433))" +"((rest_256)(unsafe-cdr lst_433)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74333,25 +74460,25 @@ static const char *startup_source = " phase_159)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_256)(values))))" +"(if(not #f)(for-loop_321 rest_256)(values))))" "(values))))))" -" for-loop_322)" -" lst_433)))" +" for-loop_321)" +" lst_432)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_28 phase_160 m-ns_23 self_39 ctx_116)" "(begin" "(begin" -"(let-values(((lst_435) bodys_28))" +"(let-values(((lst_434) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_435)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_436)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_434)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_435)" "(begin" " 'for-loop" -"(if(pair? lst_436)" -"(let-values(((body_26)(unsafe-car lst_436))((rest_257)(unsafe-cdr lst_436)))" +"(if(pair? lst_435)" +"(let-values(((body_26)(unsafe-car lst_435))((rest_257)(unsafe-cdr lst_435)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74377,59 +74504,59 @@ static const char *startup_source = " m-ns_23" " ctx_116)))" "(begin" -"(let-values(((lst_437) ids_45)" -"((lst_438)" +"(let-values(((lst_436) ids_45)" +"((lst_437)" "(parsed-define-values-syms" " p_84))" -"((lst_439) vals_11))" +"((lst_438) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_436)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_437)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_438)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_439)))" -"((letrec-values(((for-loop_324)" -"(lambda(lst_440" -" lst_441" -" lst_442)" +"((letrec-values(((for-loop_323)" +"(lambda(lst_439" +" lst_440" +" lst_441)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_440)" +" lst_439)" "(if(pair?" -" lst_441)" +" lst_440)" "(pair?" -" lst_442)" +" lst_441)" " #f)" " #f)" "(let-values(((id_159)" "(unsafe-car" -" lst_440))" +" lst_439))" "((rest_258)" "(unsafe-cdr" -" lst_440))" +" lst_439))" "((sym_106)" "(unsafe-car" -" lst_441))" +" lst_440))" "((rest_259)" "(unsafe-cdr" -" lst_441))" +" lst_440))" "((val_87)" "(unsafe-car" -" lst_442))" +" lst_441))" "((rest_260)" "(unsafe-cdr" -" lst_442)))" +" lst_441)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74445,30 +74572,30 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_324" +"(for-loop_323" " rest_258" " rest_259" " rest_260)" "(values))))" "(values))))))" -" for-loop_324)" +" for-loop_323)" +" lst_436" " lst_437" -" lst_438" -" lst_439)))" +" lst_438)))" "(void)))))" -"(if(let-values(((or-part_401)" -"(parsed-define-syntaxes?" -" p_84)))" -"(if or-part_401" -" or-part_401" -"(semi-parsed-begin-for-syntax?" -" p_84)))" -"(let-values()(void))" "(if(let-values(((or-part_402)" -"(parsed-#%declare?" +"(parsed-define-syntaxes?" " p_84)))" "(if or-part_402" " or-part_402" +"(semi-parsed-begin-for-syntax?" +" p_84)))" +"(let-values()(void))" +"(if(let-values(((or-part_403)" +"(parsed-#%declare?" +" p_84)))" +"(if or-part_403" +" or-part_403" "(syntax?$1 p_84)))" "(let-values()(void))" "(let-values()" @@ -74506,10 +74633,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_257)(values))))" +"(if(not #f)(for-loop_322 rest_257)(values))))" "(values))))))" -" for-loop_323)" -" lst_435)))" +" for-loop_322)" +" lst_434)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -74607,23 +74734,23 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_91)))))" "(values #t module661_1 name662_1 _663_1))))))" -"(let-values(((name_81)(syntax-e$1 name662_0)))" +"(let-values(((name_82)(syntax-e$1 name662_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_81 #f)" +"(if(hash-ref declared-submodule-names_8 name_82 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" " s_837" -" name_81))" +" name_82))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_81" +" name_82" "(syntax-e$1 module661_0))" "(values))))" "(let-values((()" @@ -74637,8 +74764,8 @@ static const char *startup_source = "(values))))" "(let-values(((submod_5)" "(let-values(((temp670_0)" -"(let-values(((v_262) ctx_117))" -"(let-values(((the-struct_119) v_262))" +"(let-values(((v_265) ctx_117))" +"(let-values(((the-struct_119) v_265))" "(if(expand-context/outer? the-struct_119)" "(let-values(((context679_0) 'module)" "((post-expansion-scope680_0)" @@ -74646,7 +74773,7 @@ static const char *startup_source = "((inner681_0)" "(let-values(((the-struct_120)" "(root-expand-context/outer-inner" -" v_262)))" +" v_265)))" "(if(expand-context/inner?" " the-struct_120)" "(let-values(((stops682_0)" @@ -74829,7 +74956,7 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_81" +" name_82" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" @@ -74949,30 +75076,30 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_443) bodys_29))" +"(let-values(((lst_442) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_372 lst_444)" +"(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_324)" +"(lambda(fold-var_372 lst_443)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((body_27)(unsafe-car lst_444))" -"((rest_261)(unsafe-cdr lst_444)))" +"(if(pair? lst_443)" +"(let-values(((body_27)(unsafe-car lst_443))" +"((rest_261)(unsafe-cdr lst_443)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_375)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_69)" +"(let-values(((tmp_68)" "(core-form-sym" "(syntax-disarm$1" " body_27)" " phase_161)))" -"(if(equal? tmp_69 'module)" +"(if(equal? tmp_68 'module)" "(let-values()" "(let-values(((temp700_0)" " #f)" @@ -75005,12 +75132,12 @@ static const char *startup_source = " fold-var_374))))" "(values fold-var_375)))))" "(if(not #f)" -"(for-loop_325 fold-var_373 rest_261)" +"(for-loop_324 fold-var_373 rest_261)" " fold-var_373)))" " fold-var_372)))))" -" for-loop_325)" +" for-loop_324)" " null" -" lst_443))))))))))))))))" +" lst_442))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -75112,16 +75239,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_445) lifted-defns_2))" +"(let-values(((lst_444) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_326)" -"(lambda(fold-var_376 lst_446)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_325)" +"(lambda(fold-var_376 lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((lifted-defn_0)(unsafe-car lst_446))" -"((rest_262)(unsafe-cdr lst_446)))" +"(if(pair? lst_445)" +"(let-values(((lifted-defn_0)(unsafe-car lst_445))" +"((rest_262)(unsafe-cdr lst_445)))" "(let-values(((fold-var_377)" "(let-values(((fold-var_378) fold-var_376))" "(let-values(((fold-var_379)" @@ -75131,11 +75258,11 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_378))))" "(values fold-var_379)))))" -"(if(not #f)(for-loop_326 fold-var_377 rest_262) fold-var_377)))" +"(if(not #f)(for-loop_325 fold-var_377 rest_262) fold-var_377)))" " fold-var_376)))))" -" for-loop_326)" +" for-loop_325)" " null" -" lst_445)))))))" +" lst_444)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -75151,18 +75278,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_156 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_447) s-lifted-defns_0))" +"(let-values(((lst_446) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_448)" +"(let-values()(check-list lst_446)))" +"((letrec-values(((for-loop_326)" +"(lambda(lst_447)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_448))" -"((rest_263)(unsafe-cdr lst_448)))" +"(if(pair? lst_447)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_447))" +"((rest_263)(unsafe-cdr lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75268,10 +75395,10 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_327 rest_263)(values))))" +"(if(not #f)(for-loop_326 rest_263)(values))))" "(values))))))" -" for-loop_327)" -" lst_447)))" +" for-loop_326)" +" lst_446)))" "(values))))" "(let-values()" "(let-values(((ok?_88 form-id719_0 _720_0)" @@ -75397,7 +75524,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_94)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_327)" "(lambda(fold-var_217 lst_81)" "(begin" " 'for-loop" @@ -75416,10 +75543,10 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_328 fold-var_382 rest_242)" +"(for-loop_327 fold-var_382 rest_242)" " fold-var_382)))" " fold-var_217)))))" -" for-loop_328)" +" for-loop_327)" " null" " lst_94))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_121)))))))))" @@ -75576,8 +75703,8 @@ static const char *startup_source = "(values #t define-values1_1 id2_2 rhs3_1))))))" "(let-values(((ids_47 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_9)" -"(let-values(((temp11_6) rhs3_0)((temp12_8)(as-named-context ctx_7 ids_47)))" -"(expand7.1 #f #f #f #f temp11_6 temp12_8))))" +"(let-values(((temp11_7) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_47)))" +"(expand7.1 #f #f #f #f temp11_7 temp12_7))))" "(if(expand-context-to-parsed? ctx_7)" "(parsed-define-values19.1 s_0 ids_47 syms_28 exp-rhs_9)" "(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_47 exp-rhs_9)))" @@ -75646,19 +75773,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_177)))" -"((letrec-values(((for-loop_263)" +"((letrec-values(((for-loop_262)" "(lambda(id_165" -" lst_449)" +" lst_448)" "(begin" " 'for-loop" "(if(pair?" -" lst_449)" +" lst_448)" "(let-values(((s_489)" "(unsafe-car" -" lst_449))" +" lst_448))" "((rest_264)" "(unsafe-cdr" -" lst_449)))" +" lst_448)))" "(let-values(((id_75)" "(let-values(((id_95)" " id_165))" @@ -75690,12 +75817,12 @@ static const char *startup_source = " id_166)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_262" " id_75" " rest_264)" " id_75)))" " id_165)))))" -" for-loop_263)" +" for-loop_262)" " null" " lst_177)))))" "(reverse$1 id_93))))))))" @@ -75799,13 +75926,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_12)))" -"((letrec-values(((for-loop_329)" -"(lambda(fold-var_383 lst_450)" +"((letrec-values(((for-loop_328)" +"(lambda(fold-var_383 lst_449)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((req_20)(unsafe-car lst_450))" -"((rest_265)(unsafe-cdr lst_450)))" +"(if(pair? lst_449)" +"(let-values(((req_20)(unsafe-car lst_449))" +"((rest_265)(unsafe-cdr lst_449)))" "(let-values(((fold-var_384)" "(let-values(((fold-var_385) fold-var_383))" "(let-values(((fold-var_36)" @@ -75818,10 +75945,10 @@ static const char *startup_source = " fold-var_385))))" "(values fold-var_36)))))" "(if(not #f)" -"(for-loop_329 fold-var_384 rest_265)" +"(for-loop_328 fold-var_384 rest_265)" " fold-var_384)))" " fold-var_383)))))" -" for-loop_329)" +" for-loop_328)" " null" " lst_12)))))" "((s34_0) s_45)" @@ -75871,15 +75998,15 @@ static const char *startup_source = "(declare-core-module! ns)" "(let-values(((temp1_4) '#%read)((read-primitives2_0) read-primitives)((ns3_1) ns))" "(declare-hash-based-module!41.1 ns3_1 #f #f #f #f #f #f #f #f temp1_4 read-primitives2_0))" -"(let-values(((temp4_9) '#%main)((main-primitives5_0) main-primitives)((ns6_1) ns))" -"(declare-hash-based-module!41.1 ns6_1 #f #f #f #f #f #f #f #f temp4_9 main-primitives5_0))" +"(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_1) ns))" +"(declare-hash-based-module!41.1 ns6_1 #f #f #f #f #f #f #f #f temp4_8 main-primitives5_0))" "(let-values(((temp7_4) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_1) ns))" "(declare-hash-based-module!41.1 ns9_1 #f #f #f #f #f #f #f #f temp7_4 utils-primitives8_0))" -"(let-values(((temp10_7) '#%place-struct)" +"(let-values(((temp10_6) '#%place-struct)" "((place-struct-primitives11_0) place-struct-primitives)" "((ns12_1) ns)" "((temp13_3) '(dynamic-place)))" -"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_7 place-struct-primitives11_0))" +"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_6 place-struct-primitives11_0))" "(let-values(((temp14_8) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_1) ns))" "(declare-hash-based-module!41.1 ns16_1 #f #f #f #f #f #f #f #f temp14_8 boot-primitives15_0))" "(let-values(((linklet-primitives_0)" @@ -75904,7 +76031,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_80" -"(let-values(((name_82)(hash-iterate-key ht_66 i_80)))" +"(let-values(((name_83)(hash-iterate-key ht_66 i_80)))" "(let-values(((table_102)" "(let-values(((table_217) table_216))" "(let-values(((table_218)" @@ -75912,7 +76039,7 @@ static const char *startup_source = "(let-values(((key_67 val_88)" "(let-values()" "(values" -"(let-values() name_82)" +"(let-values() name_83)" " #t))))" "(hash-set table_217 key_67 val_88)))))" "(values table_218)))))" @@ -75929,12 +76056,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_165)))" -"((letrec-values(((for-loop_266)" +"((letrec-values(((for-loop_265)" "(lambda(table_202 i_36)" "(begin" " 'for-loop" "(if i_36" -"(let-values(((name_83)(hash-iterate-key ht_165 i_36)))" +"(let-values(((name_84)(hash-iterate-key ht_165 i_36)))" "(let-values(((table_219)" "(let-values(((table_175) table_202))" "(let-values(((table_95)" @@ -75942,15 +76069,15 @@ static const char *startup_source = "(let-values(((key_95 val_89)" "(let-values()" "(values" -"(let-values() name_83)" +"(let-values() name_84)" " #t))))" "(hash-set table_175 key_95 val_89)))))" "(values table_95)))))" "(if(not #f)" -"(for-loop_266 table_219(hash-iterate-next ht_165 i_36))" +"(for-loop_265 table_219(hash-iterate-next ht_165 i_36))" " table_219)))" " table_202)))))" -" for-loop_266)" +" for-loop_265)" " '#hash()" "(hash-iterate-first ht_165))))))" "(declare-kernel-module!8.1 eval27_0 temp28_6 temp29_4 ns))" @@ -75958,15 +76085,15 @@ static const char *startup_source = "(let-values(((lst_270) runtime-instances))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_270)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_329)" "(lambda(lst_54)" "(begin" " 'for-loop" "(if(pair? lst_54)" -"(let-values(((name_84)(unsafe-car lst_54))((rest_171)(unsafe-cdr lst_54)))" +"(let-values(((name_85)(unsafe-car lst_54))((rest_171)(unsafe-cdr lst_54)))" "(let-values((()" "(let-values()" -"(if(eq? name_84 '#%kernel)" +"(if(eq? name_85 '#%kernel)" "(values)" "(let-values()" "(let-values((()" @@ -75977,18 +76104,18 @@ static const char *startup_source = "((temp32_1)" "(let-values(((or-part_53)" "(eq?" -" name_84" +" name_85" " '#%foreign)))" "(if or-part_53" " or-part_53" "(let-values(((or-part_21)" "(eq?" -" name_84" +" name_85" " '#%futures)))" "(if or-part_21" " or-part_21" "(eq?" -" name_84" +" name_85" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " #f" @@ -76004,12 +76131,12 @@ static const char *startup_source = " #f" " #f" " #f" -" name_84)))" +" name_85)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_330 rest_171)(values))))" +"(if(not #f)(for-loop_329 rest_171)(values))))" "(values))))))" -" for-loop_330)" +" for-loop_329)" " lst_270)))" "(void))" "(let-values(((temp33_5) '#%builtin)"