diff --git a/pkgs/racket-test-core/tests/racket/read.rktl b/pkgs/racket-test-core/tests/racket/read.rktl index 418dce0f5e..4f9e1036ca 100644 --- a/pkgs/racket-test-core/tests/racket/read.rktl +++ b/pkgs/racket-test-core/tests/racket/read.rktl @@ -271,6 +271,14 @@ (test #t string? (string->number (string-append "#d" s) 10 'read)))])) (loop (cdr l)))) +(define (make-exn:fail:read:eof?/span start span) + (lambda (exn) + (and (exn:fail:read:eof? exn) + (pair? (exn:fail:read-srclocs exn)) + (let ([srcloc (car (exn:fail:read-srclocs exn))]) + (and (equal? start (srcloc-position srcloc)) + (equal? span (srcloc-span srcloc))))))) + (test 5 readstr "#| hi |# 5") (test 5 readstr "#| #| #| #| hi |# |# |# |# 5") (test '(5) readstr "(#| #| #| #| hi |# |# |# |# 5)") @@ -291,27 +299,33 @@ (err/rt-test (readstr "#\\bcase") exn:fail:read?) (err/rt-test (readstr "#\\lcase") exn:fail:read?) -(err/rt-test (readstr "(hi") exn:fail:read:eof?) -(err/rt-test (readstr "\"hi") exn:fail:read:eof?) +(err/rt-test (readstr "(hi") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr "\"hi") (make-exn:fail:read:eof?/span 1 1)) (err/rt-test (readstr "\"hi\\") exn:fail:read:eof?) -(err/rt-test (readstr "#(hi") exn:fail:read:eof?) +(err/rt-test (readstr "#(hi") (make-exn:fail:read:eof?/span 1 2)) (err/rt-test (readstr "#[hi") exn:fail:read:eof?) (err/rt-test (readstr "#{hi") exn:fail:read:eof?) (err/rt-test (readstr "#4(hi") exn:fail:read:eof?) (err/rt-test (readstr "#4[hi") exn:fail:read:eof?) (err/rt-test (readstr "#4{hi") exn:fail:read:eof?) -(err/rt-test (readstr "|hi") exn:fail:read:eof?) +(err/rt-test (readstr "|hi") (make-exn:fail:read:eof?/span 1 3)) (err/rt-test (readstr "hi\\") exn:fail:read:eof?) -(err/rt-test (readstr "#\\") exn:fail:read:eof?) +(err/rt-test (readstr "#\\") (make-exn:fail:read:eof?/span 1 2)) (err/rt-test (readstr "#\\12") exn:fail:read:eof?) (err/rt-test (readstr "#| hi") exn:fail:read:eof?) (err/rt-test (readstr "(1 #| hi") exn:fail:read:eof?) -(err/rt-test (readstr "'") exn:fail:read:eof?) -(err/rt-test (readstr "`") exn:fail:read:eof?) -(err/rt-test (readstr ",@") exn:fail:read:eof?) -(err/rt-test (readstr ",") exn:fail:read:eof?) -(err/rt-test (readstr "#'") exn:fail:read:eof?) -(err/rt-test (readstr "#&") exn:fail:read:eof?) +(err/rt-test (readstr "'") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr "' ") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr "`") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr "` ") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr ",@") (make-exn:fail:read:eof?/span 1 2)) +(err/rt-test (readstr ",@ ") (make-exn:fail:read:eof?/span 1 2)) +(err/rt-test (readstr ",") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr ", ") (make-exn:fail:read:eof?/span 1 1)) +(err/rt-test (readstr "#'") (make-exn:fail:read:eof?/span 1 2)) +(err/rt-test (readstr "#' ") (make-exn:fail:read:eof?/span 1 2)) +(err/rt-test (readstr "#&") (make-exn:fail:read:eof?/span 1 2)) +(err/rt-test (readstr "#& ") (make-exn:fail:read:eof?/span 1 2)) (err/rt-test (readstr ".") exn:fail:read?) (err/rt-test (readstr "a .") exn:fail:read?) @@ -373,7 +387,7 @@ (err/rt-test (readstr "#hashe") exn:fail:read:eof?) (err/rt-test (readstr "#hasheq") exn:fail:read:eof?) (err/rt-test (readstr "#hasheqv") exn:fail:read:eof?) -(err/rt-test (readstr "#hash(") exn:fail:read:eof?) +(err/rt-test (readstr "#hash(") (make-exn:fail:read:eof?/span 1 6)) (err/rt-test (readstr "#hash((1") exn:fail:read:eof?) (err/rt-test (readstr "#hash((1 .") exn:fail:read:eof?) (err/rt-test (readstr "#hash((1 . 2)") exn:fail:read:eof?) @@ -465,9 +479,10 @@ (test #t byte-pregexp? (readstr "#px#\".\"")) (test '(#"abc") regexp-match #px#"a.." "123abcdef") -(err/rt-test (readstr "#r") exn:fail:read:eof?) +(err/rt-test (readstr "#r") (make-exn:fail:read:eof?/span 1 2)) (err/rt-test (readstr "#rx") exn:fail:read:eof?) -(err/rt-test (readstr "#rx\"") exn:fail:read:eof?) +(err/rt-test (readstr "#rx\"") (make-exn:fail:read:eof?/span 1 4)) +(err/rt-test (readstr "#rx\"x") (make-exn:fail:read:eof?/span 1 4)) (err/rt-test (readstr "#ra") exn:fail:read?) (err/rt-test (readstr "#rxa") exn:fail:read?) (err/rt-test (readstr "#rx\"?\"") exn:fail:read?) diff --git a/racket/src/expander/read/box.rkt b/racket/src/expander/read/box.rkt index ebff3fccc6..58c295ef35 100644 --- a/racket/src/expander/read/box.rkt +++ b/racket/src/expander/read/box.rkt @@ -11,9 +11,10 @@ (reader-error in config "`~a&` forms not enabled" dispatch-c)) + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) (define e (read-one #f in (next-readtable config))) (when (eof-object? e) - (reader-error in config #:due-to e + (reader-error in config #:due-to e #:end-pos open-end-pos "expected an element for `~a&` box, found end-of-file" dispatch-c)) (wrap (box e) in config #f)) diff --git a/racket/src/expander/read/config.rkt b/racket/src/expander/read/config.rkt index 64402dc3a0..19b829dee7 100644 --- a/racket/src/expander/read/config.rkt +++ b/racket/src/expander/read/config.rkt @@ -95,8 +95,12 @@ (read-config-state #f #f) (read-config-st config))])) -(define (port+config->srcloc in config) - (define-values (end-line end-col end-pos) (port-next-location in)) +(define (port+config->srcloc in config + #:end-pos [given-end-pos #f]) + (define end-pos + (or given-end-pos + (let-values ([(end-line end-col end-pos) (port-next-location in)]) + end-pos))) (srcloc (or (read-config-source config) (object-name in) "UNKNOWN") diff --git a/racket/src/expander/read/error.rkt b/racket/src/expander/read/error.rkt index 6a421240e9..e0cc596626 100644 --- a/racket/src/expander/read/error.rkt +++ b/racket/src/expander/read/error.rkt @@ -11,9 +11,11 @@ #:who [who (if (read-config-for-syntax? config) 'read-syntax 'read)] + #:end-pos [end-pos #f] str . args) (define msg (format "~a: ~a" who (apply format str args))) - (define srcloc (and in (port+config->srcloc in config))) + (define srcloc (and in (port+config->srcloc in config + #:end-pos end-pos))) (raise ((cond [(eof-object? due-to) exn:fail:read:eof] diff --git a/racket/src/expander/read/hash.rkt b/racket/src/expander/read/hash.rkt index 3430d48ec3..d3f62ab795 100644 --- a/racket/src/expander/read/hash.rkt +++ b/racket/src/expander/read/hash.rkt @@ -35,14 +35,15 @@ (get-next! #\a #\A) (get-next! #\s #\S) (get-next! #\h #\H) - + (define-values (content opener mode) (let loop ([mode 'equal]) (define c (read-char/special in config)) (define ec (effective-char c config)) (case ec [(#\() - (define read-one-key+value (make-read-one-key+value read-one c #\))) + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) + (define read-one-key+value (make-read-one-key+value read-one c #\) open-end-pos)) (values (read-unwrapped-sequence read-one-key+value c #\( #\) in config #:elem-config config #:dot-mode #f) @@ -50,26 +51,28 @@ mode)] [(#\[) (cond - [(check-parameter read-square-bracket-as-paren config) - (define read-one-key+value (make-read-one-key+value read-one c #\])) - (values (read-unwrapped-sequence read-one-key+value c #\[ #\] in config - #:elem-config config - #:dot-mode #f) - ec - mode)] - [else - (reader-error in config "illegal use of `~a`" c)])] + [(check-parameter read-square-bracket-as-paren config) + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) + (define read-one-key+value (make-read-one-key+value read-one c #\] open-end-pos)) + (values (read-unwrapped-sequence read-one-key+value c #\[ #\] in config + #:elem-config config + #:dot-mode #f) + ec + mode)] + [else + (reader-error in config "illegal use of `~a`" c)])] [(#\{) (cond - [(check-parameter read-curly-brace-as-paren config) - (define read-one-key+value (make-read-one-key+value read-one c #\})) - (values (read-unwrapped-sequence read-one-key+value c #\{ #\} in config - #:elem-config config - #:dot-mode #f) - ec - mode)] - [else - (reader-error in config "illegal use of `~a`" c)])] + [(check-parameter read-curly-brace-as-paren config) + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) + (define read-one-key+value (make-read-one-key+value read-one c #\} open-end-pos)) + (values (read-unwrapped-sequence read-one-key+value c #\{ #\} in config + #:elem-config config + #:dot-mode #f) + ec + mode)] + [else + (reader-error in config "illegal use of `~a`" c)])] [(#\e #\E) (accum-string-add! accum-str c) (get-next! #\q #\Q) @@ -111,7 +114,7 @@ ;; ---------------------------------------- -(define ((make-read-one-key+value read-one overall-opener-c overall-closer-ec) init-c in config) +(define ((make-read-one-key+value read-one overall-opener-c overall-closer-ec prefix-end-pos) init-c in config) (define c (read-char/skip-whitespace-and-comments init-c read-one in config)) (define-values (open-line open-col open-pos) (port-next-location* in c)) (define ec (effective-char c config)) @@ -130,8 +133,8 @@ [(not closer) (cond [(eof-object? c) - (reader-error in (reading-at config open-line open-col open-pos) - #:due-to c + (reader-error in config + #:due-to c #:end-pos prefix-end-pos "expected ~a to close `~a`" (closer-name overall-closer-ec config) overall-opener-c)] [(char-closer? ec config) @@ -146,7 +149,7 @@ (cond [(special-comment? v) ;; Try again - ((make-read-one-key+value read-one overall-opener-c overall-closer-ec) #f in config)] + ((make-read-one-key+value read-one overall-opener-c overall-closer-ec prefix-end-pos) #f in config)] [else (reader-error in (reading-at config open-line open-col open-pos) "expected ~a to start a hash pair" diff --git a/racket/src/expander/read/location.rkt b/racket/src/expander/read/location.rkt index c80ffd0614..947478cb63 100644 --- a/racket/src/expander/read/location.rkt +++ b/racket/src/expander/read/location.rkt @@ -3,7 +3,7 @@ (provide port-next-location*) (define (port-next-location* in init-c) - ;; If weve already read `init-c`, then back up by one column and + ;; If we've already read `init-c`, then back up by one column and ;; position; we assume that `init-c` is not a newline character (cond [(not init-c) (port-next-location in)] diff --git a/racket/src/expander/read/main.rkt b/racket/src/expander/read/main.rkt index f949953789..5968953756 100644 --- a/racket/src/expander/read/main.rkt +++ b/racket/src/expander/read/main.rkt @@ -365,8 +365,8 @@ [(#\e) (read-extension-reader read-one read-undotted dispatch-c in config)] [else (bad-syntax-error in config - #:due-to c2 - (accum-string-get! accum-str config))])] + #:due-to c2 + (accum-string-get! accum-str config))])] [(#\p) ;; Maybe pregexp (define accum-str (accum-string-init! config)) diff --git a/racket/src/expander/read/quote.rkt b/racket/src/expander/read/quote.rkt index 1ce379361d..2cd2c5d7ae 100644 --- a/racket/src/expander/read/quote.rkt +++ b/racket/src/expander/read/quote.rkt @@ -6,9 +6,10 @@ (define (read-quote read-one sym desc c in config) (define wrapped-sym (wrap sym in config c)) + (define-values (end-line end-col end-pos) (port-next-location in)) (define e (read-one #f in config)) (when (eof-object? e) - (reader-error in config #:due-to e + (reader-error in config #:due-to e #:end-pos end-pos "expected an element for ~a, found end-of-file" desc)) (wrap (list wrapped-sym e) in config #f)) diff --git a/racket/src/expander/read/sequence.rkt b/racket/src/expander/read/sequence.rkt index a38f29cca0..90a6543196 100644 --- a/racket/src/expander/read/sequence.rkt +++ b/racket/src/expander/read/sequence.rkt @@ -27,13 +27,14 @@ (define config (struct*-copy read-config elem-config [indentations (cons indentation (read-config-indentations seq-config))])) - + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) + (define config/keep-comment (keep-comment config)) (define (read-one/not-eof init-c read-one config) (define e (read-one init-c in config)) (when (eof-object? e) - (reader-error in config #:due-to e + (reader-error in seq-config #:due-to e #:end-pos open-end-pos "expected a ~a to close `~a`~a" (closer-name closer config) opener-c diff --git a/racket/src/expander/read/string.rkt b/racket/src/expander/read/string.rkt index 63c3b73dba..1995700934 100644 --- a/racket/src/expander/read/string.rkt +++ b/racket/src/expander/read/string.rkt @@ -13,11 +13,12 @@ (define (read-string in config #:mode [mode 'string]) (define source (read-config-source config)) + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) (define accum-str (accum-string-init! config)) (define (bad-end c) (cond [(eof-object? c) - (reader-error in config #:due-to c "expected a closing `\"`")] + (reader-error in config #:due-to c #:end-pos open-end-pos "expected a closing `\"`")] [else (reader-error in config #:due-to c "found non-character while reading a ~a" @@ -167,6 +168,7 @@ (define (read-here-string in config) (define source (read-config-source config)) + (define-values (open-end-line open-end-col open-end-pos) (port-next-location in)) (define accum-str (accum-string-init! config)) ;; Parse terminator @@ -193,7 +195,7 @@ (cond [(eof-object? c) (unless (null? terminator) - (reader-error in config #:due-to c + (reader-error in config #:due-to c #:end-pos open-end-pos "found end-of-file before terminating `~a`" (list->string (cdr full-terminator))))] [(not (char? c)) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 8bd81e3373..ba12f76455 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -47359,22 +47359,22 @@ static const char *startup_source = "(let-values(((v_214) config_0))" "(let-values(((the-struct_75) v_214))" "(if(read-config/outer? the-struct_75)" -"(let-values(((wrap48_0) wrap_5)" -"((keep-comment?49_0) keep-comment?_2)" -"((inner50_1)" +"(let-values(((wrap55_0) wrap_5)" +"((keep-comment?56_0) keep-comment?_2)" +"((inner57_0)" "(let-values(((the-struct_76)(read-config/outer-inner v_214)))" "(if(read-config/inner? the-struct_76)" -"(let-values(((for-syntax?51_0) for-syntax?_4)" -"((readtable52_0) readtable_2)" -"((next-readtable53_0) next-readtable_2)" -"((st54_0)" +"(let-values(((for-syntax?58_0) for-syntax?_4)" +"((readtable59_0) readtable_2)" +"((next-readtable60_0) next-readtable_2)" +"((st61_0)" "(if local-graph?_0" "(read-config-state3.1 #f #f)" "(read-config-st config_0))))" "(read-config/inner2.1" -" readtable52_0" -" next-readtable53_0" -" for-syntax?51_0" +" readtable59_0" +" next-readtable60_0" +" for-syntax?58_0" "(read-config/inner-source the-struct_76)" "(read-config/inner-read-compiled the-struct_76)" "(read-config/inner-dynamic-require the-struct_76)" @@ -47383,85 +47383,97 @@ static const char *startup_source = "(read-config/inner-coerce-key the-struct_76)" "(read-config/inner-parameter-override the-struct_76)" "(read-config/inner-parameter-cache the-struct_76)" -" st54_0))" +" st61_0))" " (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" "(read-config/outer1.1" -" inner50_1" -" wrap48_0" +" inner57_0" +" wrap55_0" "(read-config/outer-line the-struct_75)" "(read-config/outer-col the-struct_75)" "(read-config/outer-pos the-struct_75)" "(read-config/outer-indentations the-struct_75)" -" keep-comment?49_0))" +" keep-comment?56_0))" " (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" "(define-values" -"(port+config->srcloc)" -"(lambda(in_1 config_1)" +"(port+config->srcloc49.1)" +"(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" "(begin" -"(let-values(((end-line_0 end-col_0 end-pos_0)(port-next-location in_1)))" -"(srcloc" -"(let-values(((or-part_306)(read-config-source config_1)))" +" 'port+config->srcloc49" +"(let-values(((in_1) in47_0))" +"(let-values(((config_1) config48_0))" +"(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))" +"(let-values()" +"(let-values(((end-pos_0)" +"(let-values(((or-part_306) given-end-pos_0))" "(if or-part_306" " or-part_306" -" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" +"(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" +" end-pos_1)))))" +"(srcloc" +"(let-values(((or-part_186)(read-config-source config_1)))" +"(if or-part_186" +" or-part_186" +" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" -"(if(read-config-pos config_1)(if end-pos_0(max 0(- end-pos_0(read-config-pos config_1))) #f) #f))))))" +"(if(read-config-pos config_1)" +"(if end-pos_0(max 0(- end-pos_0(read-config-pos config_1))) #f)" +" #f))))))))))" "(define-values" "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" "(let-values(((v_215) config_2))" -"(let-values(((the-struct_37) v_215))" -"(if(read-config/outer? the-struct_37)" -"(let-values(((line55_0) line_2)" -"((col56_0) col_1)" -"((pos57_0) pos_108)" -"((inner58_1)(read-config/outer-inner v_215)))" -"(read-config/outer1.1" -" inner58_1" -"(read-config/outer-wrap the-struct_37)" -" line55_0" -" col56_0" -" pos57_0" -"(read-config/outer-indentations the-struct_37)" -"(read-config/outer-keep-comment? the-struct_37)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_37)))))))" -"(define-values" -"(disable-wrapping)" -"(lambda(config_3)" -"(begin" -"(let-values(((v_73) config_3))" -"(let-values(((the-struct_77) v_73))" +"(let-values(((the-struct_77) v_215))" "(if(read-config/outer? the-struct_77)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_73)))" +"(let-values(((line62_0) line_2)" +"((col63_0) col_1)" +"((pos64_0) pos_108)" +"((inner65_0)(read-config/outer-inner v_215)))" "(read-config/outer1.1" -" inner60_0" -" wrap59_0" -"(read-config/outer-line the-struct_77)" -"(read-config/outer-col the-struct_77)" -"(read-config/outer-pos the-struct_77)" +" inner65_0" +"(read-config/outer-wrap the-struct_77)" +" line62_0" +" col63_0" +" pos64_0" "(read-config/outer-indentations the-struct_77)" "(read-config/outer-keep-comment? the-struct_77)))" " (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" "(define-values" +"(disable-wrapping)" +"(lambda(config_3)" +"(begin" +"(let-values(((v_216) config_3))" +"(let-values(((the-struct_78) v_216))" +"(if(read-config/outer? the-struct_78)" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_216)))" +"(read-config/outer1.1" +" inner67_0" +" wrap66_0" +"(read-config/outer-line the-struct_78)" +"(read-config/outer-col the-struct_78)" +"(read-config/outer-pos the-struct_78)" +"(read-config/outer-indentations the-struct_78)" +"(read-config/outer-keep-comment? the-struct_78)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" +"(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_216) config_4))" -"(let-values(((the-struct_22) v_216))" -"(if(read-config/outer? the-struct_22)" -"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_216)))" +"(let-values(((v_217) config_4))" +"(let-values(((the-struct_79) v_217))" +"(if(read-config/outer? the-struct_79)" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" -" inner62_0" -"(read-config/outer-wrap the-struct_22)" -"(read-config/outer-line the-struct_22)" -"(read-config/outer-col the-struct_22)" -"(read-config/outer-pos the-struct_22)" -"(read-config/outer-indentations the-struct_22)" -" keep-comment?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_22)))))))" +" inner69_0" +"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" +" keep-comment?68_0))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47469,19 +47481,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_217) config_5))" -"(let-values(((the-struct_78) v_217))" -"(if(read-config/outer? the-struct_78)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_217)))" +"(let-values(((v_218) config_5))" +"(let-values(((the-struct_80) v_218))" +"(if(read-config/outer? the-struct_80)" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" -" inner64_0" -"(read-config/outer-wrap the-struct_78)" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" -" keep-comment?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))" +" inner71_0" +"(read-config/outer-wrap the-struct_80)" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" +" keep-comment?70_0))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47489,36 +47501,36 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_79) config_6))" -"(let-values(((the-struct_79) v_79))" -"(if(read-config/outer? the-struct_79)" -"(let-values(((inner65_0)" -"(let-values(((the-struct_80)(read-config/outer-inner v_79)))" -"(if(read-config/inner? the-struct_80)" -"(let-values(((readtable66_0)(read-config-next-readtable config_6)))" +"(let-values(((v_219) config_6))" +"(let-values(((the-struct_81) v_219))" +"(if(read-config/outer? the-struct_81)" +"(let-values(((inner72_1)" +"(let-values(((the-struct_82)(read-config/outer-inner v_219)))" +"(if(read-config/inner? the-struct_82)" +"(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" -" readtable66_0" -"(read-config/inner-next-readtable the-struct_80)" -"(read-config/inner-for-syntax? the-struct_80)" -"(read-config/inner-source the-struct_80)" -"(read-config/inner-read-compiled the-struct_80)" -"(read-config/inner-dynamic-require the-struct_80)" -"(read-config/inner-module-declared? the-struct_80)" -"(read-config/inner-coerce the-struct_80)" -"(read-config/inner-coerce-key the-struct_80)" -"(read-config/inner-parameter-override the-struct_80)" -"(read-config/inner-parameter-cache the-struct_80)" -"(read-config/inner-st the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" +" readtable73_0" +"(read-config/inner-next-readtable the-struct_82)" +"(read-config/inner-for-syntax? the-struct_82)" +"(read-config/inner-source the-struct_82)" +"(read-config/inner-read-compiled the-struct_82)" +"(read-config/inner-dynamic-require the-struct_82)" +"(read-config/inner-module-declared? the-struct_82)" +"(read-config/inner-coerce the-struct_82)" +"(read-config/inner-coerce-key the-struct_82)" +"(read-config/inner-parameter-override the-struct_82)" +"(read-config/inner-parameter-cache the-struct_82)" +"(read-config/inner-st the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" "(read-config/outer1.1" -" inner65_0" -"(read-config/outer-wrap the-struct_79)" -"(read-config/outer-line the-struct_79)" -"(read-config/outer-col the-struct_79)" -"(read-config/outer-pos the-struct_79)" -"(read-config/outer-indentations the-struct_79)" -"(read-config/outer-keep-comment? the-struct_79)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" +" inner72_1" +"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))" "(define-values" "(coerce)" "(lambda(val_79 in_2 config_7)" @@ -47527,27 +47539,29 @@ static const char *startup_source = "((read-config-coerce config_7)" " for-syntax?_5" " val_79" -"(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_218)(begin 'default-reader-guard v_218)))" +"(if for-syntax?_5" +"(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))" +" #f))))))" +"(define-values(default-reader-guard$1)(lambda(v_220)(begin 'default-reader-guard v_220)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_219)" +"(lambda(v_221)" "(begin" -"(if(if(procedure? v_219)(procedure-arity-includes? v_219 1) #f)" +"(if(if(procedure? v_221)(procedure-arity-includes? v_221 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_219)))" -" v_219))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_221)))" +" v_221))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_220)(if v_220 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_221)(if v_221 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_223)(if v_223 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_60)(if v_60 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_61)(if v_61 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" "(define-values(1/read-accept-box)(make-parameter #t(lambda(v_92)(if v_92 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -47569,36 +47583,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_91) config_9))" -"(let-values(((the-struct_81) v_91))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((the-struct_83) v_91))" +"(if(read-config/outer? the-struct_83)" "(let-values(((inner1_0)" -"(let-values(((the-struct_82)(read-config/outer-inner v_91)))" -"(if(read-config/inner? the-struct_82)" +"(let-values(((the-struct_84)(read-config/outer-inner v_91)))" +"(if(read-config/inner? the-struct_84)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_82)" -"(read-config/inner-next-readtable the-struct_82)" -"(read-config/inner-for-syntax? the-struct_82)" -"(read-config/inner-source the-struct_82)" -"(read-config/inner-read-compiled the-struct_82)" -"(read-config/inner-dynamic-require the-struct_82)" -"(read-config/inner-module-declared? the-struct_82)" -"(read-config/inner-coerce the-struct_82)" -"(read-config/inner-coerce-key the-struct_82)" +"(read-config/inner-readtable the-struct_84)" +"(read-config/inner-next-readtable the-struct_84)" +"(read-config/inner-for-syntax? the-struct_84)" +"(read-config/inner-source the-struct_84)" +"(read-config/inner-read-compiled the-struct_84)" +"(read-config/inner-dynamic-require the-struct_84)" +"(read-config/inner-module-declared? the-struct_84)" +"(read-config/inner-coerce the-struct_84)" +"(read-config/inner-coerce-key the-struct_84)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_82)" -"(read-config/inner-st the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" +"(read-config/inner-parameter-cache the-struct_84)" +"(read-config/inner-st the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_81)" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" -"(read-config/outer-keep-comment? the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-keep-comment? the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -47923,7 +47937,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_223)" +"(let-values(((v_225)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -47945,7 +47959,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_223) v_223(coerce v_223 in_3 config_14)))))))" +"(if(1/special-comment? v_225) v_225(coerce v_225 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48020,87 +48034,110 @@ static const char *startup_source = "(lambda(s-exp_3 in_2 config_7 rep_0)" "(begin" "(let-values(((wrap_6)(read-config-wrap config_7)))" -"(if wrap_6(wrap_6 s-exp_3(port+config->srcloc in_2 config_7) rep_0) s-exp_3)))))" +"(if wrap_6" +"(wrap_6" +" s-exp_3" +"(let-values(((in1_1) in_2)((config2_1) config_7))(port+config->srcloc49.1 #f #f in1_1 config2_1))" +" rep_0)" +" s-exp_3)))))" "(define-values(consume-char)(lambda(in_4 c_32)(begin(begin(read-char in_4)(void)))))" "(define-values" "(consume-char/special)" "(lambda(in_5 config_15 c_33)" "(begin(begin(read-char-or-special in_5 special1.1(read-config-source config_15))(void)))))" "(define-values" -"(reader-error10.1)" +"(reader-error12.1)" "(lambda(continuation-marks1_0" -" continuation-marks4_0" +" continuation-marks5_0" " due-to2_0" -" due-to5_0" +" due-to6_0" +" end-pos4_0" +" end-pos8_0" " who3_1" -" who6_0" -" in7_0" -" config8_0" -" str9_0" +" who7_0" +" in9_1" +" config10_0" +" str11_0" " new-rest_0)" "(begin" -" 'reader-error10" -"(let-values(((in_6) in7_0))" -"(let-values(((config_16) config8_0))" +" 'reader-error12" +"(let-values(((in_6) in9_1))" +"(let-values(((config_16) config10_0))" "(let-values(((continuation-marks_0)" -"(if continuation-marks4_0 continuation-marks1_0(current-continuation-marks))))" -"(let-values(((due-to_0)(if due-to5_0 due-to2_0 '#\\x)))" -"(let-values(((who_26)(if who6_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" -"(let-values(((str_24) str9_0))" +"(if continuation-marks5_0 continuation-marks1_0(current-continuation-marks))))" +"(let-values(((due-to_0)(if due-to6_0 due-to2_0 '#\\x)))" +"(let-values(((who_26)(if who7_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" +"(let-values(((end-pos_2)(if end-pos8_0 end-pos4_0 #f)))" +"(let-values(((str_24) str11_0))" "(let-values(((args_9) new-rest_0))" -" (let-values (((msg_0) (format \"~a: ~a\" who_26 (apply format str_24 args_9))))" -"(let-values(((srcloc_10)(if in_6(port+config->srcloc in_6 config_16) #f)))" +" (let-values (((msg_0) (format \"~a: ~a\" who_26 (apply format str_24 args_9))))" +"(let-values(((srcloc_10)" +"(if in_6" +"(let-values(((in23_0) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))" +"(port+config->srcloc49.1 end-pos25_0 #t in23_0 config24_0))" +" #f)))" "(raise" "((if(eof-object? due-to_0)" "(let-values() exn:fail:read:eof)" "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_160)" +"(let-values(((s_7)" "(if(error-print-source-location)" "(if srcloc_10(srcloc->string srcloc_10) #f)" " #f)))" -" (if s_160 (string-append s_160 \": \" msg_0) msg_0))" +" (if s_7 (string-append s_7 \": \" msg_0) msg_0))" " continuation-marks_0" -"(if srcloc_10(list srcloc_10) null)))))))))))))))" +"(if srcloc_10(list srcloc_10) null))))))))))))))))" "(define-values" -"(bad-syntax-error18.1)" -"(lambda(due-to13_0 due-to14_0 in15_0 config16_0 str17_0)" +"(bad-syntax-error20.1)" +"(lambda(due-to15_0 due-to16_0 in17_0 config18_0 str19_0)" "(begin" -" 'bad-syntax-error18" -"(let-values(((in_7) in15_0))" -"(let-values(((config_17) config16_0))" -"(let-values(((str_25) str17_0))" -"(let-values(((due-to_1)(if due-to14_0 due-to13_0 '#\\x)))" +" 'bad-syntax-error20" +"(let-values(((in_7) in17_0))" +"(let-values(((config_17) config18_0))" +"(let-values(((str_25) str19_0))" +"(let-values(((due-to_1)(if due-to16_0 due-to15_0 '#\\x)))" "(let-values()" -"(let-values(((in21_0) in_7)" -"((config22_0) config_17)" -"((due-to23_0) due-to_1)" -" ((temp24_5) \"bad syntax `~a`\")" -"((str25_0) str_25))" -"(reader-error10.1 #f #f due-to23_0 #t #f #f in21_0 config22_0 temp24_5(list str25_0)))))))))))" +"(let-values(((in26_0) in_7)" +"((config27_0) config_17)" +"((due-to28_0) due-to_1)" +" ((temp29_2) \"bad syntax `~a`\")" +"((str30_0) str_25))" +"(reader-error12.1 #f #f due-to28_0 #t #f #f #f #f in26_0 config27_0 temp29_2(list str30_0)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" "(lambda(in_8 config_18 thunk_5)" "(begin" -"(let-values(((with-handlers-predicate26_0) exn:fail?)" -"((with-handlers-handler27_0)" +"(let-values(((with-handlers-predicate31_0) exn:fail?)" +"((with-handlers-handler32_0)" "(lambda(exn_2)" "(begin" -" 'with-handlers-handler27" -"(let-values(((in28_0) in_8)" -"((config29_0) config_18)" -" ((temp30_2) \"~a\")" -"((temp31_4)" -"(let-values(((s_463)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_463 \"\")))" -"((temp32_2)(exn-continuation-marks exn_2)))" -"(reader-error10.1 temp32_2 #t #f #f #f #f in28_0 config29_0 temp30_2(list temp31_4)))))))" +" 'with-handlers-handler32" +"(let-values(((in33_1) in_8)" +"((config34_0) config_18)" +" ((temp35_1) \"~a\")" +"((temp36_4)" +" (let-values (((s_28) (exn-message exn_2))) (regexp-replace \"^[a-z-]*: \" s_28 \"\")))" +"((temp37_2)(exn-continuation-marks exn_2)))" +"(reader-error12.1" +" temp37_2" +" #t" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" in33_1" +" config34_0" +" temp35_1" +"(list temp36_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_3" "(lambda(e_78)" -"(select-handler/no-breaks e_78 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))" +"(select-handler/no-breaks e_78 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" "(lambda()(thunk_5))))))))" "(define-values" "(port-next-location*)" @@ -48246,21 +48283,23 @@ static const char *startup_source = "(begin" "(if(eof-object? v_179)" "(let-values()" -"(let-values(((in1_0) in_5)" -"((config2_0) config_15)" +"(let-values(((in1_2) in_5)" +"((config2_2) config_15)" "((v3_0) v_179)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " v3_0" " #t" " #f" " #f" -" in1_0" -" config2_0" +" #f" +" #f" +" in1_2" +" config2_2" " temp4_2" "(list ec5_0))))" "(void))" @@ -48292,7 +48331,7 @@ static const char *startup_source = "((temp7_3)(reading-at config_19 line_5 col_4 pos_111))" "((c8_0) c_25)" " ((temp9_4) \"end of file in `#|` comment\"))" -"(reader-error10.1 #f #f c8_0 #t #f #f in6_0 temp7_3 temp9_4(list))))" +"(reader-error12.1 #f #f c8_0 #t #f #f #f #f in6_0 temp7_3 temp9_4(list))))" "(if(not(char? c_25))" "(let-values()(loop_103 #f depth_10))" "(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)" @@ -48692,7 +48731,7 @@ static const char *startup_source = " opener-c12_0" " opener13_0" " closer14_0" -" in15_1" +" in15_0" " seq-config16_0)" "(begin" " 'read-unwrapped-sequence17" @@ -48700,7 +48739,7 @@ static const char *startup_source = "(let-values(((opener-c_0) opener-c12_0))" "(let-values(((opener_0) opener13_0))" "(let-values(((closer_1) closer14_0))" -"(let-values(((in_10) in15_1))" +"(let-values(((in_10) in15_0))" "(let-values(((seq-config_0) seq-config16_0))" "(let-values(((elem-config_0)(if elem-config6_0 elem-config1_0(next-readtable seq-config_0))))" "(let-values(((dot-mode_0)(if dot-mode7_0 dot-mode2_0 'all)))" @@ -48711,71 +48750,76 @@ static const char *startup_source = "(let-values()" "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" -"(let-values(((config_16)" -"(let-values(((v_5) elem-config_0))" -"(let-values(((the-struct_83) v_5))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((config_34)" +"(let-values(((v_226) elem-config_0))" +"(let-values(((the-struct_85) v_226))" +"(if(read-config/outer? the-struct_85)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_5)))" +"((inner21_0)(read-config/outer-inner v_226)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" +"(read-config/outer-wrap the-struct_85)" +"(read-config/outer-line the-struct_85)" +"(read-config/outer-col the-struct_85)" +"(read-config/outer-pos the-struct_85)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_83)))" +"(read-config/outer-keep-comment? the-struct_85)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_83))))))" -"(let-values(((config/keep-comment_0)(keep-comment config_16)))" +" the-struct_85))))))" +"(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" +"(port-next-location in_10)))" +"(let-values(((config/keep-comment_0)(keep-comment config_34)))" "(let-values(((read-one/not-eof_0)" -"(lambda(init-c_4 read-one_2 config_34)" +"(lambda(init-c_4 read-one_2 config_35)" "(begin" " 'read-one/not-eof" -"(let-values(((e_79)(read-one_2 init-c_4 in_10 config_34)))" +"(let-values(((e_79)(read-one_2 init-c_4 in_10 config_35)))" "(begin" "(if(eof-object? e_79)" "(let-values()" "(let-values(((in22_1) in_10)" -"((config23_0) config_34)" +"((seq-config23_0) seq-config_0)" "((e24_0) e_79)" -"((temp25_5)" -" \"expected a ~a to close `~a`~a\")" +"((open-end-pos25_0) open-end-pos_0)" "((temp26_4)" -"(closer-name closer_1 config_34))" -"((opener-c27_0) opener-c_0)" -"((temp28_4)" -"(indentation-possible-cause config_34)))" -"(reader-error10.1" +" \"expected a ~a to close `~a`~a\")" +"((temp27_6)" +"(closer-name closer_1 config_35))" +"((opener-c28_0) opener-c_0)" +"((temp29_1)" +"(indentation-possible-cause config_35)))" +"(reader-error12.1" " #f" " #f" " e24_0" " #t" +" open-end-pos25_0" +" #t" " #f" " #f" " in22_1" -" config23_0" -" temp25_5" -"(list temp26_4 opener-c27_0 temp28_4))))" +" seq-config23_0" +" temp26_4" +"(list temp27_6 opener-c28_0 temp29_1))))" "(void))" " e_79))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_39)" "(lambda(depth_11" " accum_0" -" init-c_3" +" init-c_5" " first?_1" " first-read-one_1)" "(begin" " 'loop" "(let-values(((c_72)" "(read-char/skip-whitespace-and-comments" -" init-c_3" +" init-c_5" " whitespace-read-one_0" " in_10" " seq-config_0)))" @@ -48792,7 +48836,7 @@ static const char *startup_source = "(if(eqv? ec_3 '#\\.)" "(if(check-parameter" " 1/read-accept-dot" -" config_16)" +" config_34)" "(char-delimiter?" "(let-values(((in_20)" " in_10)" @@ -48800,16 +48844,19 @@ static const char *startup_source = " 0)" "((source_13)" "(read-config-source" -" config_16)))" -"(let-values(((c_73)" +" config_34)))" +"(let-values(((c_20)" "(peek-char-or-special" " in_20" " skip-count_4" " 'special" " source_13)))" -"(if(eq? c_73 'special)" -"(special1.1 'special)" -" c_73)))" +"(if(eq?" +" c_20" +" 'special)" +"(special1.1" +" 'special)" +" c_20)))" " seq-config_0)" " #f)" " #f)" @@ -48824,7 +48871,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(track-indentation!" -" config_16" +" config_34" " dot-line_0" " dot-col_0)" "(values))))" @@ -48836,33 +48883,35 @@ static const char *startup_source = " #f)" "(void)" "(let-values()" -"(let-values(((in29_0)" +"(let-values(((in30_0)" " in_10)" -"((temp30_3)" +"((temp31_4)" "(reading-at" -" config_16" +" config_34" " dot-line_0" " dot-col_0" " dot-pos_0))" -"((temp31_5)" -" \"illegal use of `.`\"))" -"(reader-error10.1" +"((temp32_2)" +" \"illegal use of `.`\"))" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in29_0" -" temp30_3" -" temp31_5" +" #f" +" #f" +" in30_0" +" temp31_4" +" temp32_2" "(list)))))" "(values))))" -"(let-values(((v_196)" +"(let-values(((v_35)" "(read-one/not-eof_0" " #f" " first-read-one_1" -" config_16)))" +" config_34)))" "(let-values(((rest-c_0)" "(read-char/skip-whitespace-and-comments" " #f" @@ -48879,40 +48928,40 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_196" +" v_35" "(append" "(reverse$1" " accum_0)" -" v_196)))" +" v_35)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" "(if(check-parameter" " 1/read-accept-dot" -" config_16)" +" config_34)" "(if(check-parameter" " 1/read-accept-infix-dot" -" config_16)" +" config_34)" "(char-delimiter?" -"(let-values(((in_17)" +"(let-values(((in_21)" " in_10)" "((skip-count_5)" " 0)" -"((source_14)" +"((source_12)" "(read-config-source" -" config_16)))" -"(let-values(((c_42)" +" config_34)))" +"(let-values(((c_73)" "(peek-char-or-special" -" in_17" +" in_21" " skip-count_5" " 'special" -" source_14)))" +" source_12)))" "(if(eq?" -" c_42" +" c_73" " 'special)" "(special1.1" " 'special)" -" c_42)))" +" c_73)))" " seq-config_0)" " #f)" " #f)" @@ -48922,7 +48971,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_196))" +" v_35))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48932,7 +48981,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(track-indentation!" -" config_16" +" config_34" " dot2-line_0" " dot2-col_0)" "(values))))" @@ -48947,78 +48996,82 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_270)" +"(if(let-values(((or-part_96)" "(eof-object?" " post-ec_0)))" -"(if or-part_270" -" or-part_270" +"(if or-part_96" +" or-part_96" "(eqv?" " post-ec_0" " closer_1)))" "(let-values()" -"(let-values(((in32_0)" +"(let-values(((in33_2)" " in_10)" -"((temp33_2)" +"((temp34_2)" "(reading-at" -" config_16" +" config_34" " dot-line_0" " dot-col_0" " dot-pos_0))" -"((post-ec34_0)" +"((post-ec35_0)" " post-ec_0)" -"((temp35_1)" -" \"illegal use of `.`\"))" -"(reader-error10.1" +"((temp36_5)" +" \"illegal use of `.`\"))" +"(reader-error12.1" " #f" " #f" -" post-ec34_0" +" post-ec35_0" " #t" " #f" " #f" -" in32_0" -" temp33_2" -" temp35_1" +" #f" +" #f" +" in33_2" +" temp34_2" +" temp36_5" "(list))))" "(void))" -"(loop_106" +"(loop_39" " depth_11" " accum_0" " post-c_0" " #f" " read-one_1))))))))" "(let-values()" -"(let-values(((in36_0)" +"(let-values(((in37_0)" " in_10)" -"((temp37_2)" +"((temp38_3)" "(reading-at" -" config_16" +" config_34" " dot-line_0" " dot-col_0" " dot-pos_0))" -"((rest-c38_0)" +"((rest-c39_0)" " rest-c_0)" -"((temp39_5)" -" \"illegal use of `.`\"))" -"(reader-error10.1" +"((temp40_3)" +" \"illegal use of `.`\"))" +"(reader-error12.1" " #f" " #f" -" rest-c38_0" +" rest-c39_0" " #t" " #f" " #f" -" in36_0" -" temp37_2" -" temp39_5" +" #f" +" #f" +" in37_0" +" temp38_3" +" temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_59)" +"(let-values(((v_227)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_59)" +"(if(1/special-comment? v_227)" "(let-values()" -"(loop_106" +"(loop_39" " depth_11" " accum_0" " #f" @@ -49026,22 +49079,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_106" +"(loop_39" " depth_11" -"(cons v_59 accum_0)" +"(cons v_227 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_59" -"(loop_106" +" v_227" +"(loop_39" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_106)" +" loop_39)" " 0" " null" " #f" @@ -49049,24 +49102,24 @@ static const char *startup_source = " first-read-one_0)))" "(let-values(((full-seq_0)(if head_0(cons(unbox head_0) seq_0) seq_0)))" "(if shape-tag?_0" -"(add-shape-tag opener_0 in_10 config_16 full-seq_0)" -" full-seq_0)))))))))))))))))))))))" +"(add-shape-tag opener_0 in_10 config_34 full-seq_0)" +" full-seq_0))))))))))))))))))))))))" "(define-values" "(add-shape-tag)" -"(lambda(opener_1 in_21 config_35 seq_1)" +"(lambda(opener_1 in_22 config_36 seq_1)" "(begin" "(let-values(((tag_0)" "(let-values(((tmp_37) opener_1))" "(if(equal? tmp_37 '#\\[)" -"(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_35) '#%brackets #f))" +"(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_36) '#%brackets #f))" "(if(equal? tmp_37 '#\\{)" -"(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" +"(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))" "(let-values() #f))))))" -"(if tag_0(cons(wrap tag_0 in_21 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_27 v_224) (begin 'not-an-fX (raise-argument-error who_27 \"fixnum?\" v_224))))" +"(if tag_0(cons(wrap tag_0 in_22 config_36 #f) seq_1) seq_1)))))" +" (define-values (not-an-fX.1) (lambda (who_27 v_228) (begin 'not-an-fX (raise-argument-error who_27 \"fixnum?\" v_228))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_27 v_224) (begin 'not-an-fX (raise-argument-error who_27 \"flonum?\" v_224))))" +" (lambda (who_27 v_228) (begin 'not-an-fX (raise-argument-error who_27 \"flonum?\" v_228))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -49082,7 +49135,7 @@ static const char *startup_source = "(begin" " 'read-digits13" "(let-values(((in_12) in11_0))" -"(let-values(((config_36) config12_1))" +"(let-values(((config_37) config12_1))" "(let-values(((accum-str_0)(if accum-str10_0 accum-str9_0 #f)))" "(let-values(((base_23) base1_0))" "(let-values(((max-count_0) max-count2_0))" @@ -49090,11 +49143,11 @@ static const char *startup_source = "(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))" "(let-values()" "(let-values(((c_74)" -"(let-values(((in_22) in_12)" +"(let-values(((in_23) in_12)" "((skip-count_6) 0)" -"((source_15)(read-config-source config_36)))" +"((source_14)(read-config-source config_37)))" "(let-values(((c_75)" -"(peek-char-or-special in_22 skip-count_6 'special source_15)))" +"(peek-char-or-special in_23 skip-count_6 'special source_14)))" "(if(eq? c_75 'special)(special1.1 'special) c_75)))))" "(if(digit?$1 c_74 base_23)" "(let-values()" @@ -49102,23 +49155,23 @@ static const char *startup_source = "(consume-char in_12 c_74)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_74))(void))" "((letrec-values(((loop_61)" -"(lambda(v_225 max-count_1)" +"(lambda(v_229 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_225)" +"(let-values() v_229)" "(let-values()" "(let-values(((c_68)" -"(let-values(((in_23) in_12)" +"(let-values(((in_24) in_12)" "((skip-count_7) 0)" -"((source_16)" -"(read-config-source config_36)))" +"((source_15)" +"(read-config-source config_37)))" "(let-values(((c_53)" "(peek-char-or-special" -" in_23" +" in_24" " skip-count_7" " 'special" -" source_16)))" +" source_15)))" "(if(eq? c_53 'special)" "(special1.1 'special)" " c_53)))))" @@ -49130,9 +49183,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" "(loop_61" -"(+(digit->number c_68)(* v_225 base_23))" +"(+(digit->number c_68)(* v_229 base_23))" "(sub1 max-count_1))))" -"(let-values() v_225)))))))))" +"(let-values() v_229)))))))))" " loop_61)" "(+(digit->number c_74)(* init-v_0 base_23))" "(sub1 max-count_0))))" @@ -49141,34 +49194,34 @@ static const char *startup_source = "(let-values() c_74)))))))))))))))" "(define-values" "(digit?$1)" -"(lambda(c_76 base_24)" +"(lambda(c_73 base_24)" "(begin" " 'digit?" -"(if(not(char? c_76))" +"(if(not(char? c_73))" "(let-values() #f)" "(if(= base_24 8)" -"(let-values()(octal-digit? c_76))" -"(if(= base_24 16)(let-values()(hex-digit? c_76))(let-values()(decimal-digit? c_76))))))))" +"(let-values()(octal-digit? c_73))" +"(if(= base_24 16)(let-values()(hex-digit? c_73))(let-values()(decimal-digit? c_73))))))))" "(define-values(decimal-digit?)(lambda(c_44)(begin(if(char>=? c_44 '#\\0)(char<=? c_44 '#\\9) #f))))" -"(define-values(octal-digit?)(lambda(c_77)(begin(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\7) #f))))" +"(define-values(octal-digit?)(lambda(c_76)(begin(if(char>=? c_76 '#\\0)(char<=? c_76 '#\\7) #f))))" "(define-values" "(hex-digit?)" -"(lambda(c_78)" +"(lambda(c_77)" "(begin" -"(let-values(((or-part_310)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(let-values(((or-part_310)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" "(if or-part_310" " or-part_310" -"(let-values(((or-part_96)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" -"(if or-part_96 or-part_96(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(let-values(((or-part_96)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_96 or-part_96(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" -"(lambda(c_79)" +"(lambda(c_78)" "(begin" -"(if(if(char>=? c_79 '#\\0)(char<=? c_79 '#\\9) #f)" -"(let-values()(-(char->integer c_79)(char->integer '#\\0)))" -"(if(if(char>=? c_79 '#\\A)(char<=? c_79 '#\\F) #f)" -"(let-values()(-(char->integer c_79)(-(char->integer '#\\A) 10)))" -"(let-values()(-(char->integer c_79)(-(char->integer '#\\a) 10))))))))" +"(if(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)" +"(let-values()(-(char->integer c_78)(char->integer '#\\0)))" +"(if(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)" +"(let-values()(-(char->integer c_78)(-(char->integer '#\\A) 10)))" +"(let-values()(-(char->integer c_78)(-(char->integer '#\\a) 10))))))))" "(define-values(string->number$1) string->number)" "(define-values" "(1/string->number)" @@ -49232,11 +49285,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_464)(begin 'string->number(string->number8_0 s_464 #f #f #f #f #f #f)))" -"((s_465 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_465 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_463)(begin 'string->number(string->number8_0 s_463 #f #f #f #f #f #f)))" +"((s_464 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_464 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" "((s_181 radix_2 convert-mode2_1)(string->number8_0 s_181 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_466 radix1_1)(string->number8_0 s_466 radix1_1 #f #f #t #f #f)))))" +"((s_465 radix1_1)(string->number8_0 s_465 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49250,7 +49303,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_467) s14_0))" +"(let-values(((s_466) s14_0))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49265,17 +49318,17 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_80)(string-ref s_467 start_44)))" -"(if(char=? '#\\# c_80)" +"(let-values(((c_79)(string-ref s_466 start_44)))" +"(if(char=? '#\\# c_79)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_467))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_466))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_176)(string-ref s_467 next_4)))" +"(let-values(((i_176)(string-ref s_466 next_4)))" "(let-values(((tmp_38) i_176))" "(let-values(((index_2)" "(if(char? tmp_38)" @@ -49351,7 +49404,7 @@ static const char *startup_source = "(format" " \"bad `#` indicator `~a` at `~.a`\"" " i_176" -"(substring s_467 start_44 end_34)))" +"(substring s_466 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" @@ -49362,10 +49415,10 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_467 start_44 end_34)))" +"(substring s_466 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_467)" +"(let-values(((s76_1) s_466)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" @@ -49400,7 +49453,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_467 start_44 end_34)))" +"(substring s_466 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" @@ -49418,7 +49471,7 @@ static const char *startup_source = "(equal? tmp_39 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_467)" +"(let-values(((s83_0) s_466)" "((temp84_1)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49439,26 +49492,26 @@ static const char *startup_source = " exactness88_0" " temp89_2)))))))))))))))" "(let-values(((c1_28)" -"(if(char-sign? c_80)" -"(read-special-number s_467 start_44 end_34 convert-mode_2)" +"(if(char-sign? c_79)" +"(read-special-number s_466 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_226)" +"((lambda(v_230)" "(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_230))" "(let-values() #f)))" -"(let-values() v_226)))" +"(let-values() v_230)))" " c1_28)" "(let-values(((c2_3)" -"(if(char-sign? c_80)" +"(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_467(sub1 end_34)))" -"(if(char-sign?(string-ref s_467 6))" +"(if(char=? '#\\i(string-ref s_466(sub1 end_34)))" +"(if(char-sign?(string-ref s_466 6))" "(read-special-number" -" s_467" +" s_466" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49468,15 +49521,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_227)" -"(let-values(((s90_1) s_467)" +"((lambda(v_231)" +"(let-values(((s90_1) s_466)" "((temp91_0)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_227)" +"((v97_0) v_231)" "((temp98_3)" "(lambda(v_53 v2_0)" "(begin 'temp98(make-rectangular v_53 v2_0)))))" @@ -49496,10 +49549,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_467(sub1 end_34)))" -"(if(char-sign?(string-ref s_467(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_466(sub1 end_34)))" +"(if(char-sign?(string-ref s_466(- end_34 7)))" "(read-special-number" -" s_467" +" s_466" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49512,7 +49565,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_467)" +"(let-values(((s99_0) s_466)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49538,12 +49591,12 @@ static const char *startup_source = " temp108_0)))))" " c3_2)" "(let-values(((c4_0)" -"(if(char-sign? c_80)" +"(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_467(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_466(+ start_44 6)))" "(read-special-number" -" s_467" +" s_466" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49553,7 +49606,7 @@ static const char *startup_source = " #f)))" "(if c4_0" "((lambda(v_199)" -"(let-values(((s109_0) s_467)" +"(let-values(((s109_0) s_466)" "((temp110_2)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" @@ -49562,8 +49615,8 @@ static const char *startup_source = "((temp115_0) '@)" "((v116_0) v_199)" "((temp117_0)" -"(lambda(v_228 v2_3)" -"(begin 'temp117(make-polar v_228 v2_3)))))" +"(lambda(v_232 v2_3)" +"(begin 'temp117(make-polar v_232 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -49580,9 +49633,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_467(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_466(- end_34 7)))" "(read-special-number" -" s_467" +" s_466" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49591,7 +49644,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_467)" +"(let-values(((s118_0) s_466)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49601,8 +49654,8 @@ static const char *startup_source = "((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_2)" -"(lambda(v2_5 v_229)" -"(begin 'temp127(make-polar v_229 v2_5)))))" +"(lambda(v2_5 v_233)" +"(begin 'temp127(make-polar v_233 v2_5)))))" "(read-for-special-compound65.1" " temp124_3" " temp125_1" @@ -49617,7 +49670,7 @@ static const char *startup_source = " temp127_2)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_467)" +"(let-values(((s128_1) s_466)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49657,7 +49710,7 @@ static const char *startup_source = "(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))" "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" -"((letrec-values(((loop_107)" +"((letrec-values(((loop_106)" "(lambda(i_177" " any-digits?_0" " any-hashes?_0" @@ -49769,10 +49822,10 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_38 i_177)))" -"(if(digit? c_81 radix_5)" +"(let-values(((c_80)(string-ref s_38 i_177)))" +"(if(digit? c_80 radix_5)" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " #t" " any-hashes?_0" @@ -49783,9 +49836,9 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char=? c_81 '#\\#)" +"(if(char=? c_80 '#\\#)" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " #t" " #t" @@ -49796,7 +49849,7 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char-sign? c_81)" +"(if(char-sign? c_80)" "(let-values()" "(if(if sign-pos_0 must-i?_0 #f)" "(let-values()" @@ -49807,7 +49860,7 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " any-digits?_0" " any-hashes?_0" @@ -49823,7 +49876,7 @@ static const char *startup_source = " or-part_314" "(> i_177(add1 @-pos_0))))" " #f)))))" -"(if(char=? c_81 '#\\.)" +"(if(char=? c_80 '#\\.)" "(let-values()" "(if(let-values(((or-part_218)" "(if exp-pos_0" @@ -49862,7 +49915,7 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " any-digits?_0" " any-hashes?_0" @@ -49873,7 +49926,7 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))" -"(if(char=? c_81 '#\\/)" +"(if(char=? c_80 '#\\/)" "(let-values()" "(if(if dot-pos_1" "(let-values(((or-part_318)(not sign-pos_0)))" @@ -49913,7 +49966,7 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " any-digits?_0" " any-hashes?_0" @@ -49924,60 +49977,60 @@ static const char *startup_source = " i_177" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_321)(char=? c_81 '#\\e)))" +"(if(let-values(((or-part_321)(char=? c_80 '#\\e)))" "(if or-part_321" " or-part_321" -"(let-values(((or-part_322)(char=? c_81 '#\\E)))" +"(let-values(((or-part_322)(char=? c_80 '#\\E)))" "(if or-part_322" " or-part_322" "(let-values(((or-part_323)" -"(char=? c_81 '#\\f)))" +"(char=? c_80 '#\\f)))" "(if or-part_323" " or-part_323" "(let-values(((or-part_324)" -"(char=? c_81 '#\\F)))" +"(char=? c_80 '#\\F)))" "(if or-part_324" " or-part_324" "(let-values(((or-part_325)" -"(char=? c_81 '#\\d)))" +"(char=? c_80 '#\\d)))" "(if or-part_325" " or-part_325" "(let-values(((or-part_326)" -"(char=? c_81 '#\\D)))" +"(char=? c_80 '#\\D)))" "(if or-part_326" " or-part_326" "(let-values(((or-part_219)" "(char=?" -" c_81" +" c_80" " '#\\s)))" "(if or-part_219" " or-part_219" "(let-values(((or-part_165)" "(char=?" -" c_81" +" c_80" " '#\\S)))" "(if or-part_165" " or-part_165" "(let-values(((or-part_327)" "(char=?" -" c_81" +" c_80" " '#\\l)))" "(if or-part_327" " or-part_327" "(let-values(((or-part_328)" "(char=?" -" c_81" +" c_80" " '#\\L)))" "(if or-part_328" " or-part_328" "(let-values(((or-part_329)" "(char=?" -" c_81" +" c_80" " '#\\t)))" "(if or-part_329" " or-part_329" "(char=?" -" c_81" +" c_80" " '#\\T)))))))))))))))))))))))" "(let-values()" "(if exp-pos_0" @@ -49986,14 +50039,14 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `~a` in `~.a`\"" -" c_81" +" c_80" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if(<(add1 i_177) end_35)" "(char-sign?(string-ref s_38(add1 i_177)))" " #f)" "(let-values()" -"(loop_107" +"(loop_106" "(+ i_177 2)" " any-digits?_0" " any-hashes?_0" @@ -50006,7 +50059,7 @@ static const char *startup_source = "(if or-part_330 or-part_330 i_177))" " must-i?_0))" "(let-values()" -"(loop_107" +"(loop_106" "(+ i_177 1)" " any-digits?_0" " any-hashes?_0" @@ -50018,7 +50071,7 @@ static const char *startup_source = "(let-values(((or-part_331) exp-pos_0))" "(if or-part_331 or-part_331 i_177))" " must-i?_0)))))" -"(if(char=? c_81 '#\\@)" +"(if(char=? c_80 '#\\@)" "(let-values()" "(if(eq? in-complex_1 'i)" "(let-values()" @@ -50056,7 +50109,7 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " any-digits?_0" " any-hashes?_0" @@ -50068,10 +50121,10 @@ static const char *startup_source = " #f" " must-i?_0)))))))" "(if(if(let-values(((or-part_333)" -"(char=? c_81 '#\\i)))" +"(char=? c_80 '#\\i)))" "(if or-part_333" " or-part_333" -"(char=? c_81 '#\\I)))" +"(char=? c_80 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" @@ -50099,7 +50152,7 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_107" +"(loop_106" "(add1 i_177)" " any-digits?_0" " any-hashes?_0" @@ -50111,7 +50164,7 @@ static const char *startup_source = " #f" " #f)))))" "(let-values()" -"(if(char=? c_81 '#\\nul)" +"(if(char=? c_80 '#\\nul)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -50120,9 +50173,9 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"bad digit `~a`\" c_81))" +" (format \"bad digit `~a`\" c_80))" "(let-values() #f))))))))))))))))))))" -" loop_107)" +" loop_106)" " start_45" " #f" " #f" @@ -50464,7 +50517,7 @@ static const char *startup_source = "(let-values(((or-part_348)(eq? exactness_4 'exact)))" "(if or-part_348 or-part_348(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_108)" +"((letrec-values(((loop_107)" "(lambda(i_118 j_3 hashes-pos_0)" "(begin" " 'loop" @@ -50489,38 +50542,38 @@ static const char *startup_source = "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_82)(string-ref s_360 i_118)))" -"(if(char=? c_82 '#\\.)" +"(let-values(((c_81)(string-ref s_360 i_118)))" +"(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_108" +"(loop_107" "(sub1 i_118)" " j_3" "(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_82)" -"(loop_108" +"(string-set! new-str_0 j_3 c_81)" +"(loop_107" "(sub1 i_118)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))))" -"(if(let-values(((or-part_349)(char=? c_82 '#\\-)))" -"(if or-part_349 or-part_349(char=? c_82 '#\\+)))" +"(if(let-values(((or-part_349)(char=? c_81 '#\\-)))" +"(if or-part_349 or-part_349(char=? c_81 '#\\+)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_82)" -"(loop_108" +"(string-set! new-str_0 j_3 c_81)" +"(loop_107" "(sub1 i_118)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))" -"(if(char=? c_82 '#\\#)" +"(if(char=? c_81 '#\\#)" "(let-values()" "(if(= hashes-pos_0(add1 i_118))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_108(sub1 i_118)(sub1 j_3) i_118)))" +"(loop_107(sub1 i_118)(sub1 j_3) i_118)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" @@ -50530,9 +50583,9 @@ static const char *startup_source = "(let-values() #f)))))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_82)" -"(loop_108(sub1 i_118)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_108)" +"(string-set! new-str_0 j_3 c_81)" +"(loop_107(sub1 i_118)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_107)" "(sub1 end_37)" "(sub1(string-length new-str_0))" " end_37))))))" @@ -50611,10 +50664,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_230)" +"(lambda(convert-mode_9 v_234)" "(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_234))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -50631,7 +50684,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_468) s57_0))" +"(let-values(((s_467) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50639,22 +50692,22 @@ 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_235) 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_235))" "(let-values() #f)))" -"(if(if(extflonum? v_231)" +"(if(if(extflonum? v_235)" "(let-values(((or-part_356)(not reading-first?_0)))" "(if or-part_356 or-part_356(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_235))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_468)" +"(let-values(((s176_0) s_467)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50676,12 +50729,12 @@ 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_235)" +"(let-values()(fail-extflonum convert-mode_10 v_235))" +"(let-values()(combine_1 v_235 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_469 start_51 end_41)" +"(lambda(s_468 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -50689,7 +50742,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_82)(string? x_82))" "(lambda(x_83)(unsafe-string-length x_83))" -" s_469" +" s_468" " start_51" " end_41" " 1)))" @@ -50700,13 +50753,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_83)(string-ref v*_6 idx_5)))" +"(let-values(((c_82)(string-ref v*_6 idx_5)))" "(let-values(((result_120)" "(let-values()" "(let-values(((result_121)" -"(let-values()(let-values()(char=? c_83 '#\\#)))))" +"(let-values()(let-values()(char=? c_82 '#\\#)))))" "(values result_121)))))" -"(if(if(not((lambda x_84 result_120) c_83))(not #f) #f)" +"(if(if(not((lambda x_84 result_120) c_82))(not #f) #f)" "(for-loop_274 result_120(unsafe-fx+ idx_5 1))" " result_120)))" " result_119)))))" @@ -50715,7 +50768,7 @@ static const char *startup_source = " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_470 start_52 end_42)" +"(lambda(s_469 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -50725,7 +50778,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_85)(string? x_85))" "(lambda(x_86)(unsafe-string-length x_86))" -" s_470" +" s_469" " start_52" " end_42" " 1))" @@ -50740,16 +50793,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_84)(string-ref v*_7 idx_6))((i_178) pos_114))" +"(let-values(((c_83)(string-ref v*_7 idx_6))((i_178) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(char=? c_84 '#\\#)" +"(if(char=? c_83 '#\\#)" "(string-set! new-s_9 i_178 '#\\0)" -"(string-set! new-s_9 i_178 c_84)))" +"(string-set! new-s_9 i_178 c_83)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" @@ -50761,8 +50814,8 @@ static const char *startup_source = " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_471 start_54 end_43)" -"(begin(if(if(= 0 start_54)(= end_43(string-length s_471)) #f) s_471(substring s_471 start_54 end_43)))))" +"(lambda(s_470 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_470)) #f) s_470(substring s_470 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" @@ -50770,30 +50823,30 @@ static const char *startup_source = "(let-values(((or-part_357)(eq? exactness_6 'exact)))(if or-part_357 or-part_357(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" -"(lambda(c_85)" -"(begin(let-values(((or-part_358)(char=? c_85 '#\\-)))(if or-part_358 or-part_358(char=? c_85 '#\\+))))))" +"(lambda(c_84)" +"(begin(let-values(((or-part_358)(char=? c_84 '#\\-)))(if or-part_358 or-part_358(char=? c_84 '#\\+))))))" "(define-values" "(digit?)" -"(lambda(c_86 radix_11)" +"(lambda(c_85 radix_11)" "(begin" -"(let-values(((v_232)(char->integer c_86)))" +"(let-values(((v_236)(char->integer c_85)))" "(let-values(((or-part_280)" -"(if(>= v_232(char->integer '#\\0))(<(- v_232(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_236(char->integer '#\\0))(<(- v_236(char->integer '#\\0)) radix_11) #f)))" "(if or-part_280" " or-part_280" "(if(> radix_11 10)" "(let-values(((or-part_359)" -"(if(>= v_232(char->integer '#\\a))(<(- v_232(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_236(char->integer '#\\a))(<(- v_236(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_359" " or-part_359" -"(if(>= v_232(char->integer '#\\A))(<(- v_232(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_236(char->integer '#\\A))(<(- v_236(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_472 start_55 end_44)" +"(lambda(convert-mode_11 s_471 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_472 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_471 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50804,7 +50857,7 @@ static const char *startup_source = "(begin" " 'read-symbol-or-number8" "(let-values(((init-c_2) init-c5_0))" -"(let-values(((in_24) in6_1))" +"(let-values(((in_25) in6_1))" "(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)))" @@ -50822,7 +50875,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)" @@ -50838,17 +50891,17 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_1 extra-prefix_0))" "(void))" "(values))))" -"(let-values(((source_17)(read-config-source config_24)))" +"(let-values(((source_16)(read-config-source config_24)))" "(let-values(((unexpected-quoted_0)" -"(lambda(c_87 after-c_0)" +"(lambda(c_86 after-c_0)" "(begin" " 'unexpected-quoted" -"(let-values(((in11_1) in_24)" +"(let-values(((in11_1) in_25)" "((config12_2) config_24)" -"((c13_1) c_87)" +"((c13_1) c_86)" " ((temp14_6) \"~a following `~a` in ~a\")" "((temp15_5)" -"(if(eof-object? c_87)" +"(if(eof-object? c_86)" " \"end-of-file\"" " \"non-character\"))" "((after-c16_0) after-c_0)" @@ -50858,42 +50911,44 @@ static const char *startup_source = "(if(string? mode_17)" " (let-values () \"number\")" " (let-values () \"symbol\")))))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c13_1" " #t" " #f" " #f" +" #f" +" #f" " in11_1" " config12_2" " temp14_6" "(list temp15_5 after-c16_0 temp17_3)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_109)" -"(lambda(init-c_5" +"((letrec-values(((loop_108)" +"(lambda(init-c_6" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" -"(let-values(((c_88)" +"(let-values(((c_87)" "(let-values(((or-part_78)" -" init-c_5))" +" init-c_6))" "(if or-part_78" " or-part_78" -"(let-values(((in_25)" -" in_24)" +"(let-values(((in_26)" +" in_25)" "((skip-count_8)" " 0)" -"((source_18)" -" source_17))" +"((source_17)" +" source_16))" "(let-values(((c_52)" "(peek-char-or-special" -" in_25" +" in_26" " skip-count_8" " 'special" -" source_18)))" +" source_17)))" "(if(eq?" " c_52" " 'special)" @@ -50902,38 +50957,38 @@ static const char *startup_source = " c_52)))))))" "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" -"((c_89) c_88))" +"((c_88) c_87))" "(if(let-values(((or-part_176)" "(not" " rt_12)))" "(if or-part_176" " or-part_176" "(not" -"(char? c_89))))" -"(let-values() c_89)" +"(char? c_88))))" +"(let-values() c_88)" "(let-values()" "(*readtable-effective-char" " rt_12" -" c_89))))))" +" c_88))))))" "(if(if pipe-quote-c_0" "(not(char? ec_4))" " #f)" "(let-values()" "(begin" -"(if init-c_5" +"(if init-c_6" "(void)" "(let-values()" "(consume-char/special" -" in_24" +" in_25" " config_24" -" c_88)))" +" c_87)))" "(unexpected-quoted_0" -" c_88" +" c_87" " pipe-quote-c_0)))" "(if(if(not pipe-quote-c_0)" "(readtable-char-delimiter?" " rt_11" -" c_88" +" c_87" " config_24)" " #f)" "(let-values()" @@ -50945,17 +51000,17 @@ static const char *startup_source = " string-foldcase" " foldcase-from_0))))" "(if(if pipe-quote-c_0" -"(char=? c_88 pipe-quote-c_0)" +"(char=? c_87 pipe-quote-c_0)" " #f)" "(let-values()" "(begin" -"(if init-c_5" +"(if init-c_6" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_88)))" -"(loop_109" +" in_25" +" c_87)))" +"(loop_108" " #f" " #f" "(accum-string-count" @@ -50967,12 +51022,12 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(if init-c_5" +"(if init-c_6" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_88)))" +" in_25" +" c_87)))" "(set! quoted-ever?_0 #t)" "(if case-sens?_0" "(void)" @@ -50981,9 +51036,9 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_109" +"(loop_108" " #f" -" c_88" +" c_87" "(accum-string-count" " accum-str_1))))" "(if(if(char=? ec_4 '#\\\\)" @@ -50992,29 +51047,29 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if init-c_5" +"(if init-c_6" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_88)))" +" in_25" +" c_87)))" "(values))))" "(let-values(((next-c_0)" -"(let-values(((in_26)" -" in_24)" -"((source_19)" -" source_17))" +"(let-values(((in_27)" +" in_25)" +"((source_18)" +" source_16))" "(read-char-or-special" -" in_26" +" in_27" " special1.1" -" source_19))))" +" source_18))))" "(begin" "(if(char? next-c_0)" "(void)" "(let-values()" "(unexpected-quoted_0" " next-c_0" -" c_88)))" +" c_87)))" "(if(let-values(((or-part_7)" " pipe-quote-c_0))" "(if or-part_7" @@ -51031,27 +51086,27 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_109" +"(loop_108" " #f" " #f" "(accum-string-count" " accum-str_1))))))" "(let-values()" "(begin" -"(if init-c_5" +"(if init-c_6" "(void)" "(let-values()" "(consume-char" -" in_24" -" c_88)))" +" in_25" +" c_87)))" "(accum-string-add!" " accum-str_1" -" c_88)" -"(loop_109" +" c_87)" +"(loop_108" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_109)" +" loop_108)" " init-c_2" " #f" " 0)" @@ -51070,10 +51125,12 @@ 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" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -51105,29 +51162,33 @@ static const char *startup_source = "(begin" "(if(string? num_0)" "(let-values()" -"(let-values(((in23_0) in_24)" -"((config24_0) config_24)" -" ((temp25_6) \"~a\")" +"(let-values(((in23_1) in_25)" +"((config24_1) config_24)" +" ((temp25_5) \"~a\")" "((num26_0) num_0))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in23_0" -" config24_0" -" temp25_6" +" #f" +" #f" +" in23_1" +" config24_1" +" temp25_5" "(list num26_0))))" "(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_28)))" -"(reader-error10.1" +" ((temp29_3) \"bad number: `~a`\")" +"((temp30_2)(string-append mode_17 str_28)))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -51136,8 +51197,8 @@ static const char *startup_source = " #f" " in27_0" " config28_0" -" temp29_2" -"(list temp30_4))))" +" temp29_3" +"(list temp30_2))))" "(void))" "(wrap" "(let-values(((or-part_295) num_0))" @@ -51148,7 +51209,7 @@ static const char *startup_source = "(string->keyword str_28)" " #f)))" "(if or-part_93 or-part_93(string->symbol str_28)))))" -" in_24" +" in_25" " config_24" " str_28)))))))))))))))))))))))))" "(define-values" @@ -51163,48 +51224,48 @@ static const char *startup_source = "(if(eof-object? v_91)" "(let-values() v_91)" "(let-values()" -"(let-values(((in1_1) in_5)" +"(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" "((v4_1) v_91))" -"(reader-error10.1 #f #f #f #f #f #f in1_1 temp2_5 temp3_6(list v4_1))))))))))))" +"(reader-error12.1 #f #f #f #f #f #f #f #f in1_3 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" -"(lambda(read-one_4 init-c_6 in_27 config_37)" +"(lambda(read-one_4 init-c_7 in_28 config_38)" "(begin" -"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_6 read-one_4 in_27 config_37)))" -"(let-values(((line_9 col_8 pos_93)(port-next-location* in_27 c_14)))" -" (let-values (((v_29) (read-number-literal c_14 in_27 config_37 \"#i\")))" +"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_7 read-one_4 in_28 config_38)))" +"(let-values(((line_9 col_8 pos_93)(port-next-location* in_28 c_14)))" +" (let-values (((v_29) (read-number-literal c_14 in_28 config_38 \"#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_27)" -"((temp6_1)(reading-at config_37 line_9 col_8 pos_93))" +"(let-values(((in5_0) in_28)" +"((temp6_1)(reading-at config_38 line_9 col_8 pos_93))" " ((temp7_4) \"expected a flonum, found ~a\")" "((v8_0) v_29))" -"(reader-error10.1 #f #f #f #f #f #f in5_0 temp6_1 temp7_4(list v8_0))))))))))))" +"(reader-error12.1 #f #f #f #f #f #f #f #f in5_0 temp6_1 temp7_4(list v8_0))))))))))))" "(define-values" "(read-number-literal)" -"(lambda(c_90 in_28 config_38 mode_18)" +"(lambda(c_89 in_29 config_39 mode_18)" "(begin" -"(if(not(char? c_90))" -"(let-values() c_90)" +"(if(not(char? c_89))" +"(let-values() c_89)" "(let-values()" -"(let-values(((c9_0) c_90)((in10_2) in_28)((config11_0) config_38)((mode12_0) mode_18))" +"(let-values(((c9_0) c_89)((in10_2) in_29)((config11_0) config_39)((mode12_0) mode_18))" "(read-symbol-or-number8.1 #f #f mode12_0 #t c9_0 in10_2 config11_0)))))))" "(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)" +"(lambda(length2_0 length4_0 mode1_0 mode3_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_2 config10_1)" "(begin" " 'read-vector11" "(let-values(((read-one_5) read-one5_0))" "(let-values(((opener-c_1) opener-c6_0))" "(let-values(((opener_2) opener7_0))" "(let-values(((closer_2) closer8_0))" -"(let-values(((in_29) in9_1))" -"(let-values(((config_39) config10_0))" +"(let-values(((in_30) in9_2))" +"(let-values(((config_40) config10_1))" "(let-values(((vector-mode_0)(if mode3_0 mode1_0 'any)))" "(let-values(((expected-len_0)(if length4_0 length2_0 #f)))" "(let-values()" @@ -51214,24 +51275,24 @@ static const char *startup_source = "(let-values() read-one_5)" "(if(equal? tmp_30 'fixnum)" "(let-values()" -"(lambda(init-c_7 in_30 config_40)" -"(begin" -" 'read-one-element" -"(read-fixnum read-one_5 init-c_7 in_30 config_40))))" -"(if(equal? tmp_30 'flonum)" -"(let-values()" "(lambda(init-c_8 in_31 config_41)" "(begin" " 'read-one-element" -"(read-flonum read-one_5 init-c_8 in_31 config_41))))" +"(read-fixnum read-one_5 init-c_8 in_31 config_41))))" +"(if(equal? tmp_30 'flonum)" +"(let-values()" +"(lambda(init-c_9 in_32 config_42)" +"(begin" +" 'read-one-element" +"(read-flonum read-one_5 init-c_9 in_32 config_42))))" "(let-values()(void))))))))" "(let-values(((seq_2)" "(let-values(((read-one-element14_0) read-one-element_0)" "((opener-c15_0) opener-c_1)" "((opener16_0) opener_2)" "((closer17_0) closer_2)" -"((in18_0) in_29)" -"((config19_1) config_39)" +"((in18_0) in_30)" +"((config19_1) config_40)" "((read-one20_0) read-one_5)" "((temp21_1) #f))" "(read-unwrapped-sequence17.1" @@ -51343,7 +51404,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_233)(make-flvector len_37 fill_1)))" +"(let-values(((v_237)(make-flvector len_37 fill_1)))" "(begin" "(if(zero? len_37)" "(void)" @@ -51377,7 +51438,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_233" +" v_237" " i_93" " elem_1)" "(not-an-fX.1$1" @@ -51404,7 +51465,7 @@ static const char *startup_source = " for-loop_189)" " 0" " lst_92)))))" -" v_233))))))" +" v_237))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_38)(length seq_2)))" @@ -51412,11 +51473,11 @@ static const char *startup_source = "(let-values()(list->vector seq_2))" "(if(< expected-len_0 len_38)" "(let-values()" -"(let-values(((in22_2) in_29)" -"((config23_1) config_39)" -"((temp24_6)" +"(let-values(((in22_2) in_30)" +"((config23_0) config_40)" +"((temp24_5)" " \"~avector length ~a is too small, ~a values provided\")" -"((temp25_7)" +"((temp25_6)" "(let-values(((tmp_42) vector-mode_0))" "(if(equal? tmp_42 'any)" " (let-values () \"\")" @@ -51427,7 +51488,9 @@ static const char *startup_source = "(let-values()(void)))))))" "((expected-len26_0) expected-len_0)" "((len27_0) len_38))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -51435,25 +51498,25 @@ static const char *startup_source = " #f" " #f" " in22_2" -" config23_1" -" temp24_6" -"(list temp25_7 expected-len26_0 len27_0))))" +" config23_0" +" temp24_5" +"(list temp25_6 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_234)" +"(lambda(v_238)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_234 in_29 config_39 #f)" -"((letrec-values(((loop_110)" +"(wrap v_238 in_30 config_40 #f)" +"((letrec-values(((loop_109)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_110" +"(loop_109" "(cdr seq_3)))))))" -" loop_110)" +" loop_109)" " seq_2))))))" "(let-values((()" "(begin" @@ -51645,40 +51708,40 @@ static const char *startup_source = "(void)))" "(let-values()(void))))))" " vec_67))))))))))))" -"(wrap vec_66 in_29 config_39 opener_2))))))))))))))))" +"(wrap vec_66 in_30 config_40 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" -"(lambda(read-one_6 dispatch-c_0 c_91 c2_4 in_32 config_42)" +"(lambda(read-one_6 dispatch-c_0 c_90 c2_4 in_33 config_43)" "(begin" "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))" -"(let-values((()(begin(consume-char in_32 c2_4)(values))))" +"(let-values((()(begin(consume-char in_33 c2_4)(values))))" "(let-values((()" "(begin" -"(if(read-config-for-syntax? config_42)" +"(if(read-config-for-syntax? config_43)" "(let-values()" -"(let-values(((in28_1) in_32)" -"((config29_1) config_42)" -" ((temp30_5) \"literal f~avectors not allowed\")" +"(let-values(((in28_0) in_33)" +"((config29_0) config_43)" +" ((temp30_3) \"literal f~avectors not allowed\")" "((c231_0) c2_4))" -"(reader-error10.1 #f #f #f #f #f #f in28_1 config29_1 temp30_5(list c231_0))))" +"(reader-error12.1 #f #f #f #f #f #f #f #f in28_0 config29_0 temp30_3(list c231_0))))" "(void))" "(values))))" "(let-values(((c3_3)" -"(let-values(((in_33) in_32)((source_20)(read-config-source config_42)))" -"(read-char-or-special in_33 special1.1 source_20))))" +"(let-values(((in_34) in_33)((source_19)(read-config-source config_43)))" +"(read-char-or-special in_34 special1.1 source_19))))" "(let-values(((vector-len_0 len-str_0 c4_1)" "(if(decimal-digit? c3_3)" -"(let-values()(read-simple-number in_32 config_42 c3_3))" +"(let-values()(read-simple-number in_33 config_43 c3_3))" " (let-values () (values #f \"\" c3_3)))))" "(let-values(((tmp_45) c4_1))" "(if(equal? tmp_45 '#\\()" "(let-values()" "(let-values(((read-one32_0) read-one_6)" -"((temp33_3) '#\\()" -"((temp34_2) '#\\()" +"((temp33_2) '#\\()" +"((temp34_3) '#\\()" "((temp35_2) '#\\))" -"((in36_1) in_32)" -"((config37_0) config_42)" +"((in36_0) in_33)" +"((config37_0) config_43)" "((vector-mode38_0) vector-mode_1)" "((vector-len39_0) vector-len_0))" "(read-vector11.1" @@ -51687,21 +51750,21 @@ static const char *startup_source = " vector-mode38_0" " #t" " read-one32_0" -" temp33_3" -" temp34_2" +" temp33_2" +" temp34_3" " temp35_2" -" in36_1" +" in36_0" " config37_0)))" "(if(equal? tmp_45 '#\\[)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_42)" +"(if(check-parameter 1/read-square-bracket-as-paren config_43)" "(let-values()" "(let-values(((read-one40_0) read-one_6)" "((temp41_3) '#\\[)" "((temp42_3) '#\\[)" "((temp43_2) '#\\])" -"((in44_0) in_32)" -"((config45_0) config_42)" +"((in44_0) in_33)" +"((config45_0) config_43)" "((vector-mode46_0) vector-mode_1)" "((vector-len47_0) vector-len_0))" "(read-vector11.1" @@ -51716,20 +51779,20 @@ static const char *startup_source = " in44_0" " config45_0)))" "(let-values()" -"(let-values(((in48_0) in_32)" -"((config49_0) config_42)" -" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))" -"(bad-syntax-error18.1 #f #f in48_0 config49_0 temp50_2)))))" +"(let-values(((in48_0) in_33)" +"((config49_0) config_43)" +" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_90 c2_4))))" +"(bad-syntax-error20.1 #f #f in48_0 config49_0 temp50_2)))))" "(if(equal? tmp_45 '#\\{)" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_42)" +"(if(check-parameter 1/read-curly-brace-as-paren config_43)" "(let-values()" "(let-values(((read-one51_0) read-one_6)" "((temp52_3) '#\\{)" "((temp53_2) '#\\{)" "((temp54_1) '#\\})" -"((in55_0) in_32)" -"((config56_0) config_42)" +"((in55_0) in_33)" +"((config56_0) config_43)" "((vector-mode57_0) vector-mode_1)" "((vector-len58_0) vector-len_0))" "(read-vector11.1" @@ -51744,39 +51807,41 @@ static const char *startup_source = " in55_0" " config56_0)))" "(let-values()" -"(let-values(((in59_0) in_32)" -"((config60_0) config_42)" -" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))" -"(bad-syntax-error18.1 #f #f in59_0 config60_0 temp61_2)))))" +"(let-values(((in59_0) in_33)" +"((config60_0) config_43)" +" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_90 c2_4))))" +"(bad-syntax-error20.1 #f #f in59_0 config60_0 temp61_2)))))" "(let-values()" -"(let-values(((in62_0) in_32)" -"((config63_0) config_42)" +"(let-values(((in62_0) in_33)" +"((config63_0) config_43)" "((c464_0) c4_1)" " ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" -"((c66_0) c_91)" +"((c66_0) c_90)" "((c267_0) c2_4)" "((len-str68_0) len-str_0))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c464_0" " #t" " #f" " #f" +" #f" +" #f" " in62_0" " config63_0" " temp65_2" "(list c66_0 c267_0 len-str68_0))))))))))))))))" "(define-values" "(read-simple-number)" -"(lambda(in_34 config_43 init-c_9)" +"(lambda(in_35 config_44 init-c_10)" "(begin" -"(let-values(((accum-str_2)(accum-string-init! config_43)))" -"(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(((accum-str_2)(accum-string-init! config_44)))" +"(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_97)" -"(let-values(((in69_0) in_34)" -"((config70_0) config_43)" +"(let-values(((in69_0) in_35)" +"((config70_0) config_44)" "((accum-str71_0) accum-str_2)" "((temp72_0) 10)" "((temp73_2) +inf.0)" @@ -51795,17 +51860,17 @@ static const char *startup_source = " #t))))" "(values" " v_97" -"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" +"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_44))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" -"(let-values(((in_35) in_34)((source_21)(read-config-source config_43)))" -"(read-char-or-special in_35 special1.1 source_21))))))))))" +"(let-values(((in_36) in_35)((source_20)(read-config-source config_44)))" +"(read-char-or-special in_36 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_30) in_5)((source_22)(read-config-source config_15)))" -"(read-char-or-special in_30 special1.1 source_22))))" +"(let-values(((in_31) in_5)((source_21)(read-config-source config_15)))" +"(read-char-or-special in_31 special1.1 source_21))))" "(let-values(((ec_5)(effective-char c_33 config_15)))" "(let-values(((seq_4)" "(let-values(((tmp_46) ec_5))" @@ -51816,10 +51881,10 @@ static const char *startup_source = "(if(check-parameter 1/read-square-bracket-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\[ '#\\] in_5 config_15))" "(let-values()" -"(let-values(((in1_2) in_5)" -"((config2_1) config_15)" +"(let-values(((in1_4) in_5)" +"((config2_3) config_15)" " ((temp3_7) (format \"~as~a\" dispatch-c_1 c_33)))" -"(bad-syntax-error18.1 #f #f in1_2 config2_1 temp3_7)))))" +"(bad-syntax-error20.1 #f #f in1_4 config2_3 temp3_7)))))" "(if(equal? tmp_46 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_15)" @@ -51828,22 +51893,24 @@ static const char *startup_source = "(let-values(((in4_1) in_5)" "((config5_1) config_15)" " ((temp6_2) (format \"~as~a\" dispatch-c_1 c_33)))" -"(bad-syntax-error18.1 #f #f in4_1 config5_1 temp6_2)))))" +"(bad-syntax-error20.1 #f #f in4_1 config5_1 temp6_2)))))" "(let-values()" -"(let-values(((in7_1) in_5)" -"((config8_1) config_15)" +"(let-values(((in7_0) in_5)" +"((config8_0) config_15)" " ((temp9_5) \"expected ~a after `~as`\")" "((temp10_5)(all-openers-str config_15))" "((dispatch-c11_0) dispatch-c_1))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in7_1" -" config8_1" +" #f" +" #f" +" in7_0" +" config8_0" " temp9_5" "(list temp10_5 dispatch-c11_0))))))))))" "(let-values((()" @@ -51854,7 +51921,9 @@ static const char *startup_source = "((config13_0) config_15)" " ((temp14_7) \"missing structure description in `~as` form\")" "((dispatch-c15_0) dispatch-c_1))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -51876,7 +51945,9 @@ static const char *startup_source = "((config17_0) config_15)" " ((temp18_5) \"invalid structure description in `~as` form\")" "((dispatch-c19_0) dispatch-c_1))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -51906,43 +51977,55 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((in22_3) in_5)" -"((config23_2) config_15)" -"((temp24_7)" +"((config23_1) config_15)" +"((temp24_6)" "(string-append" " \"mismatch between structure description\"" " \" and number of provided field values in `~as` form\"))" "((dispatch-c25_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in22_3 config23_2 temp24_7(list dispatch-c25_0)))))" +"(reader-error12.1 #f #f #f #f #f #f #f #f in22_3 config23_1 temp24_6(list dispatch-c25_0)))))" "(if(read-config-for-syntax? config_15)" "(let-values()" "(if(all-fields-immutable?(car seq_4))" "(void)" "(let-values()" -"(let-values(((in26_0) in_5)" -"((config27_0) config_15)" -" ((temp28_5) \"cannot read mutable `~as` form as syntax\")" +"(let-values(((in26_1) in_5)" +"((config27_1) config_15)" +" ((temp28_4) \"cannot read mutable `~as` form as syntax\")" "((dispatch-c29_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in26_0 config27_0 temp28_5(list dispatch-c29_0))))))" +"(reader-error12.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" in26_1" +" config27_1" +" temp28_4" +"(list dispatch-c29_0))))))" "(void))" "(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_36 config_44)" +"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_37 config_45)" "(begin" "(let-values(((read-one30_0) read-one_7)" "((opener-c31_0) opener-c_2)" "((opener32_0) opener_3)" "((closer33_0) closer_3)" -"((in34_0) in_36)" -"((config35_0) config_44)" -"((temp36_4)" -"(lambda(init-c_10 in_37 config_45)(read-one_7 init-c_10 in_37(disable-wrapping config_45)))))" +"((in34_0) in_37)" +"((config35_0) config_45)" +"((temp36_6)" +"(lambda(init-c_11 in_38 config_46)(read-one_7 init-c_11 in_38(disable-wrapping config_46)))))" "(read-unwrapped-sequence17.1" " #f" " #f" " #f" " #f" -" temp36_4" +" temp36_6" " #t" " #f" " #f" @@ -51956,14 +52039,14 @@ static const char *startup_source = " config35_0)))))" "(define-values" "(read-vector-or-graph)" -"(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" +"(lambda(read-one_3 dispatch-c_1 init-c_12 in_39 config_47)" "(begin" -"(let-values(((accum-str_3)(accum-string-init! config_46)))" -"(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(((accum-str_3)(accum-string-init! config_47)))" +"(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(((v_28)" -"(let-values(((in1_3) in_38)" -"((config2_2) config_46)" +"(let-values(((in1_5) in_39)" +"((config2_4) config_47)" "((accum-str3_0) accum-str_3)" "((temp4_3) 10)" "((temp5_6) +inf.0)" @@ -51976,36 +52059,36 @@ static const char *startup_source = " temp5_6" " init-v7_0" " #t" -" in1_3" -" config2_2" +" in1_5" +" config2_4" " accum-str3_0" " #t))))" -"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_38)))" +"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_39)))" "(let-values(((get-accum_0)" -"(lambda(c_92)" +"(lambda(c_91)" "(begin" " 'get-accum" "(format" " \"~a~a~a\"" " dispatch-c_1" -"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_46))" +"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_47))" "(accum-string-get!6.1 #f #f accum-str8_0 config9_0))" -" c_92)))))" +" c_91)))))" "(let-values(((c_38)" -"(let-values(((in_39) in_38)((source_23)(read-config-source config_46)))" -"(read-char-or-special in_39 special1.1 source_23))))" -"(let-values(((ec_6)(effective-char c_38 config_46)))" +"(let-values(((in_40) in_39)((source_22)(read-config-source config_47)))" +"(read-char-or-special in_40 special1.1 source_22))))" +"(let-values(((ec_6)(effective-char c_38 config_47)))" "(let-values(((tmp_47) ec_6))" "(if(equal? tmp_47 '#\\()" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_46)" +"(accum-string-abandon! accum-str_3 config_47)" "(let-values(((read-one10_0) read-one_3)" "((c11_0) c_38)" "((temp12_3) '#\\()" "((temp13_2) '#\\))" -"((in14_0) in_38)" -"((config15_0) config_46)" +"((in14_0) in_39)" +"((config15_0) config_47)" "((v16_0) v_28))" "(read-vector11.1" " v16_0" @@ -52021,15 +52104,15 @@ static const char *startup_source = "(if(equal? tmp_47 '#\\[)" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_46)" -"(if(check-parameter 1/read-square-bracket-as-paren config_46)" +"(accum-string-abandon! accum-str_3 config_47)" +"(if(check-parameter 1/read-square-bracket-as-paren config_47)" "(let-values()" "(let-values(((read-one17_0) read-one_3)" "((c18_1) c_38)" "((temp19_1) '#\\[)" "((temp20_2) '#\\])" -"((in21_1) in_38)" -"((config22_1) config_46)" +"((in21_0) in_39)" +"((config22_0) config_47)" "((v23_0) v_28))" "(read-vector11.1" " v23_0" @@ -52040,25 +52123,25 @@ static const char *startup_source = " c18_1" " temp19_1" " temp20_2" -" in21_1" -" config22_1)))" +" in21_0" +" config22_0)))" "(let-values()" -"(let-values(((in24_0) in_38)" -"((config25_0) config_46)" +"(let-values(((in24_0) in_39)" +"((config25_0) config_47)" "((temp26_5)(get-accum_0(get-accum_0 c_38))))" -"(bad-syntax-error18.1 #f #f in24_0 config25_0 temp26_5))))))" +"(bad-syntax-error20.1 #f #f in24_0 config25_0 temp26_5))))))" "(if(equal? tmp_47 '#\\{)" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_46)" -"(if(check-parameter 1/read-curly-brace-as-paren config_46)" +"(accum-string-abandon! accum-str_3 config_47)" +"(if(check-parameter 1/read-curly-brace-as-paren config_47)" "(let-values()" "(let-values(((read-one27_0) read-one_3)" "((c28_0) c_38)" -"((temp29_3) '#\\{)" -"((temp30_3) '#\\})" -"((in31_1) in_38)" -"((config32_0) config_46)" +"((temp29_4) '#\\{)" +"((temp30_4) '#\\})" +"((in31_1) in_39)" +"((config32_0) config_47)" "((v33_0) v_28))" "(read-vector11.1" " v33_0" @@ -52067,58 +52150,62 @@ static const char *startup_source = " #f" " read-one27_0" " c28_0" -" temp29_3" -" temp30_3" +" temp29_4" +" temp30_4" " in31_1" " config32_0)))" "(let-values()" -"(let-values(((in34_1) in_38)" -"((config35_1) config_46)" -"((temp36_5)(get-accum_0(get-accum_0 c_38))))" -"(bad-syntax-error18.1 #f #f in34_1 config35_1 temp36_5))))))" +"(let-values(((in34_1) in_39)" +"((config35_1) config_47)" +"((temp36_7)(get-accum_0(get-accum_0 c_38))))" +"(bad-syntax-error20.1 #f #f in34_1 config35_1 temp36_7))))))" "(let-values()" "(let-values(((tmp_48) c_38))" "(if(if(equal? tmp_48 '#\\=) #t(equal? tmp_48 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_360)(read-config-for-syntax? config_46)))" +"(if(let-values(((or-part_360)(read-config-for-syntax? config_47)))" "(if or-part_360" " or-part_360" -"(not(check-parameter 1/read-accept-graph config_46))))" +"(not(check-parameter 1/read-accept-graph config_47))))" "(let-values()" -"(let-values(((in37_0) in_38)" -"((config38_0) config_46)" -" ((temp39_6) \"`#...~a` forms not ~a\")" +"(let-values(((in37_1) in_39)" +"((config38_0) config_47)" +" ((temp39_5) \"`#...~a` forms not ~a\")" "((c40_0) c_38)" "((temp41_4)" -"(if(read-config-for-syntax? config_46)" +"(if(read-config-for-syntax? config_47)" " \"enabled\"" " \"allowed in `read-syntax` mode\")))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in37_0" +" #f" +" #f" +" in37_1" " config38_0" -" temp39_6" +" temp39_5" "(list c40_0 temp41_4))))" "(void))" "(if(<=(accum-string-count accum-str_3) 8)" "(void)" "(let-values()" -"(let-values(((in42_1) in_38)" -"((config43_0) config_46)" +"(let-values(((in42_1) in_39)" +"((config43_0) config_47)" " ((temp44_2) \"graph ID too long in `~a~a~a`\")" "((dispatch-c45_0) dispatch-c_1)" "((temp46_3)" "(let-values(((accum-str48_0) accum-str_3)" -"((config49_1) config_46))" +"((config49_1) config_47))" "(accum-string-get!6.1 #f #f accum-str48_0 config49_1)))" "((c47_0) c_38))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -52133,27 +52220,29 @@ static const char *startup_source = "(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_160)(get-graph-hash config_46)))" +"(let-values(((ht_160)(get-graph-hash config_47)))" "(let-values((()" "(begin" "(if(hash-ref ht_160 v_28 #f)" "(let-values()" -"(let-values(((in50_0) in_38)" -"((config51_0) config_46)" +"(let-values(((in50_0) in_39)" +"((config51_0) config_47)" " ((temp52_4) \"multiple `~a~a~a` tags\")" "((dispatch-c53_0) dispatch-c_1)" "((temp54_2)" "(let-values(((accum-str56_0)" " accum-str_3)" "((config57_0)" -" config_46))" +" config_47))" "(accum-string-get!6.1" " #f" " #f" " accum-str56_0" " config57_0)))" "((c55_0) c_38))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -52168,38 +52257,40 @@ static const char *startup_source = "(values))))" "(let-values((()(begin(hash-set! ht_160 v_28 ph_1)(values))))" "(let-values(((result-v_0)" -"(read-one_3 #f in_38(next-readtable config_46))))" +"(read-one_3 #f in_39(next-readtable config_47))))" "(begin" "(if(eof-object? result-v_0)" "(let-values()" -"(let-values(((in58_0) in_38)" -"((config59_0) config_46)" +"(let-values(((in58_0) in_39)" +"((config59_0) config_47)" "((result-v60_0) result-v_0)" "((temp61_3)" " \"expected an element for graph after `~a~a~a`, found end-of-file\")" "((dispatch-c62_0) dispatch-c_1)" "((temp63_3)" "(let-values(((accum-str65_0) accum-str_3)" -"((config66_0) config_46))" +"((config66_0) config_47))" "(accum-string-get!6.1" " #f" " #f" " accum-str65_0" " config66_0)))" "((c64_0) c_38))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " result-v60_0" " #t" " #f" " #f" +" #f" +" #f" " in58_0" " config59_0" " temp61_3" "(list dispatch-c62_0 temp63_3 c64_0))))" "(void))" -"(accum-string-abandon! accum-str_3 config_46)" +"(accum-string-abandon! accum-str_3 config_47)" "(placeholder-set! ph_1 result-v_0)" " ph_1)))))))" "(if(equal? tmp_49 '#\\#)" @@ -52207,26 +52298,28 @@ static const char *startup_source = "(begin0" "(hash-ref" "(let-values(((or-part_361)" -"(read-config-state-graph(read-config-st config_46))))" +"(read-config-state-graph(read-config-st config_47))))" "(if or-part_361 or-part_361 '#hash()))" " v_28" "(lambda()" -"(let-values(((in67_0) in_38)" -"((config68_0) config_46)" +"(let-values(((in67_0) in_39)" +"((config68_0) config_47)" " ((temp69_0) \"no preceding `~a~a=` for `~a~a~a`\")" "((dispatch-c70_0) dispatch-c_1)" "((v71_0) v_28)" "((dispatch-c72_0) dispatch-c_1)" "((temp73_3)" "(let-values(((accum-str75_0) accum-str_3)" -"((config76_0) config_46))" +"((config76_0) config_47))" "(accum-string-get!6.1" " #f" " #f" " accum-str75_0" " config76_0)))" "((c74_0) c_38))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -52237,30 +52330,32 @@ static const char *startup_source = " config68_0" " temp69_0" "(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_3 c74_0)))))" -"(accum-string-abandon! accum-str_3 config_46)))" +"(accum-string-abandon! accum-str_3 config_47)))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((in77_0) in_38)" -"((config78_0) config_46)" +"(let-values(((in77_0) in_39)" +"((config78_0) config_47)" "((c79_0) c_38)" " ((temp80_3) \"bad syntax `~a`\")" "((temp81_2)(get-accum_0 c_38)))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c79_0" " #t" " #f" " #f" +" #f" +" #f" " in77_0" " config78_0" " temp80_3" "(list temp81_2))))))))))))))))))))))" "(define-values" "(get-graph-hash)" -"(lambda(config_47)" +"(lambda(config_48)" "(begin" -"(let-values(((st_3)(read-config-st config_47)))" +"(let-values(((st_3)(read-config-st config_48)))" "(let-values(((or-part_145)(read-config-state-graph st_3)))" "(if or-part_145" " or-part_145" @@ -52273,43 +52368,45 @@ static const char *startup_source = "((read-config-coerce-key config_8) for-syntax?_7 key_90)))))" "(define-values" "(read-hash)" -"(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" +"(lambda(read-one_3 dispatch-c_1 init-c_12 in_39 config_47)" "(begin" -"(let-values(((accum-str_3)(accum-string-init! config_46)))" +"(let-values(((accum-str_3)(accum-string-init! config_47)))" "(let-values((()(begin(accum-string-add! accum-str_3 dispatch-c_1)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_3 init-c_11)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_3 init-c_12)(values))))" "(let-values(((get-next!_0)" "(lambda(expect-c_0 expect-alt-c_0)" "(begin" " 'get-next!" -"(let-values(((c_93)" -"(let-values(((in_29) in_38)((source_24)(read-config-source config_46)))" -"(read-char-or-special in_29 special1.1 source_24))))" +"(let-values(((c_92)" +"(let-values(((in_30) in_39)((source_23)(read-config-source config_47)))" +"(read-char-or-special in_30 special1.1 source_23))))" "(begin" -"(if(let-values(((or-part_6)(eqv? c_93 expect-c_0)))" -"(if or-part_6 or-part_6(eqv? c_93 expect-alt-c_0)))" +"(if(let-values(((or-part_6)(eqv? c_92 expect-c_0)))" +"(if or-part_6 or-part_6(eqv? c_92 expect-alt-c_0)))" "(void)" "(let-values()" -"(let-values(((in1_4) in_38)" -"((config2_3) config_46)" -"((c3_4) c_93)" +"(let-values(((in1_6) in_39)" +"((config2_5) config_47)" +"((c3_4) c_92)" " ((temp4_4) \"expected `~a` after `~a`\")" "((expect-c5_0) expect-c_0)" "((temp6_3)" -"(let-values(((accum-str7_0) accum-str_3)((config8_2) config_46))" -"(accum-string-get!6.1 #f #f accum-str7_0 config8_2))))" -"(reader-error10.1" +"(let-values(((accum-str7_0) accum-str_3)((config8_1) config_47))" +"(accum-string-get!6.1 #f #f accum-str7_0 config8_1))))" +"(reader-error12.1" " #f" " #f" " c3_4" " #t" " #f" " #f" -" in1_4" -" config2_3" +" #f" +" #f" +" in1_6" +" config2_5" " temp4_4" "(list expect-c5_0 temp6_3)))))" -"(accum-string-add! accum-str_3 c_93)))))))" +"(accum-string-add! accum-str_3 c_92)))))))" "(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))))" @@ -52319,34 +52416,39 @@ static const char *startup_source = "(begin" " 'loop" "(let-values(((c_70)" -"(let-values(((in_40) in_38)" -"((source_25)" -"(read-config-source config_46)))" +"(let-values(((in_41) in_39)" +"((source_24)" +"(read-config-source config_47)))" "(read-char-or-special" -" in_40" +" in_41" " special1.1" -" source_25))))" -"(let-values(((ec_7)(effective-char c_70 config_46)))" +" source_24))))" +"(let-values(((ec_7)(effective-char c_70 config_47)))" "(let-values(((tmp_50) ec_7))" "(if(equal? tmp_50 '#\\()" "(let-values()" +"(let-values(((open-end-line_1" +" open-end-col_1" +" open-end-pos_1)" +"(port-next-location in_39)))" "(let-values(((read-one-key+value_0)" "(make-read-one-key+value" " read-one_3" " c_70" -" '#\\))))" +" '#\\)" +" open-end-pos_1)))" "(values" "(let-values(((read-one-key+value9_0)" " read-one-key+value_0)" "((c10_1) c_70)" "((temp11_4) '#\\()" "((temp12_4) '#\\))" -"((in13_0) in_38)" -"((config14_0) config_46)" -"((config15_1) config_46)" -"((temp16_3) #f))" +"((in13_0) in_39)" +"((config14_0) config_47)" +"((config15_1) config_47)" +"((temp16_5) #f))" "(read-unwrapped-sequence17.1" -" temp16_3" +" temp16_5" " #t" " config15_1" " #t" @@ -52363,32 +52465,37 @@ static const char *startup_source = " in13_0" " config14_0))" " ec_7" -" mode_20)))" +" mode_20))))" "(if(equal? tmp_50 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" -" config_46)" +" config_47)" "(let-values()" +"(let-values(((open-end-line_2" +" open-end-col_2" +" open-end-pos_2)" +"(port-next-location in_39)))" "(let-values(((read-one-key+value_1)" "(make-read-one-key+value" " read-one_3" " c_70" -" '#\\])))" +" '#\\]" +" open-end-pos_2)))" "(values" "(let-values(((read-one-key+value17_0)" " read-one-key+value_1)" "((c18_2) c_70)" "((temp19_2) '#\\[)" "((temp20_3) '#\\])" -"((in21_2) in_38)" -"((config22_2) config_46)" -"((config23_3) config_46)" -"((temp24_8) #f))" +"((in21_1) in_39)" +"((config22_1) config_47)" +"((config23_2) config_47)" +"((temp24_7) #f))" "(read-unwrapped-sequence17.1" -" temp24_8" +" temp24_7" " #t" -" config23_3" +" config23_2" " #t" " #f" " #f" @@ -52400,16 +52507,18 @@ static const char *startup_source = " c18_2" " temp19_2" " temp20_3" -" in21_2" -" config22_2))" +" in21_1" +" config22_1))" " ec_7" -" mode_20)))" +" mode_20))))" "(let-values()" -"(let-values(((in25_0) in_38)" -"((config26_0) config_46)" -" ((temp27_6) \"illegal use of `~a`\")" +"(let-values(((in25_0) in_39)" +"((config26_0) config_47)" +" ((temp27_7) \"illegal use of `~a`\")" "((c28_1) c_70))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -52418,31 +52527,36 @@ static const char *startup_source = " #f" " in25_0" " config26_0" -" temp27_6" +" temp27_7" "(list c28_1))))))" "(if(equal? tmp_50 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" -" config_46)" +" config_47)" "(let-values()" +"(let-values(((open-end-line_3" +" open-end-col_3" +" open-end-pos_3)" +"(port-next-location in_39)))" "(let-values(((read-one-key+value_2)" "(make-read-one-key+value" " read-one_3" " c_70" -" '#\\})))" +" '#\\}" +" open-end-pos_3)))" "(values" "(let-values(((read-one-key+value29_0)" " read-one-key+value_2)" "((c30_0) c_70)" -"((temp31_6) '#\\{)" +"((temp31_5) '#\\{)" "((temp32_3) '#\\})" -"((in33_1) in_38)" -"((config34_0) config_46)" -"((config35_2) config_46)" -"((temp36_6) #f))" +"((in33_3) in_39)" +"((config34_1) config_47)" +"((config35_2) config_47)" +"((temp36_8) #f))" "(read-unwrapped-sequence17.1" -" temp36_6" +" temp36_8" " #t" " config35_2" " #t" @@ -52454,28 +52568,30 @@ static const char *startup_source = " #f" " read-one-key+value29_0" " c30_0" -" temp31_6" +" temp31_5" " temp32_3" -" in33_1" -" config34_0))" +" in33_3" +" config34_1))" " ec_7" -" mode_20)))" +" mode_20))))" "(let-values()" -"(let-values(((in37_1) in_38)" -"((config38_1) config_46)" -"((temp39_7)" +"(let-values(((in37_2) in_39)" +"((config38_1) config_47)" +"((temp39_6)" " \"illegal use of `~a`\")" "((c40_1) c_70))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in37_1" +" #f" +" #f" +" in37_2" " config38_1" -" temp39_7" +" temp39_6" "(list c40_1))))))" "(if(if(equal? tmp_50 '#\\e)" " #t" @@ -52493,21 +52609,23 @@ static const char *startup_source = "(accum-string-add! accum-str_3 c_70)" "(if(eq? mode_20 'eq)" "(loop_66 'eqv)" -"(let-values(((in41_0) in_38)" -"((config42_0) config_46)" +"(let-values(((in41_0) in_39)" +"((config42_0) config_47)" "((temp43_3)" " \"bad syntax `~a`\")" "((temp44_3)" "(let-values(((accum-str45_0)" " accum-str_3)" "((config46_0)" -" config_46))" +" config_47))" "(accum-string-get!6.1" " #f" " #f" " accum-str45_0" " config46_0))))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -52524,34 +52642,36 @@ static const char *startup_source = "(let-values()" "(accum-string-add! accum-str_3 c_70))" "(void))" -"(let-values(((in47_0) in_38)" -"((config48_0) config_46)" +"(let-values(((in47_1) in_39)" +"((config48_1) config_47)" "((c49_0) c_70)" " ((temp50_3) \"bad syntax `~a`\")" "((temp51_2)" "(let-values(((accum-str52_0)" " accum-str_3)" "((config53_0)" -" config_46))" +" config_47))" "(accum-string-get!6.1" " #f" " #f" " accum-str52_0" " config53_0))))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c49_0" " #t" " #f" " #f" -" in47_0" -" config48_0" +" #f" +" #f" +" in47_1" +" config48_1" " temp50_3" "(list temp51_2)))))))))))))))))" " loop_66)" " 'equal)))" -"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_46)) #t #f)))" +"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_47)) #t #f)))" "(wrap" "(let-values(((tmp_51) mode_19))" "(if(equal? tmp_51 'equal)" @@ -52566,218 +52686,248 @@ static const char *startup_source = "(make-hasheqv-placeholder content_11)" "(make-immutable-hasheqv content_11)))" "(let-values()(void))))))" -" in_38" -" config_46" +" in_39" +" config_47" " opener_4)))))))))))))" "(define-values" "(make-read-one-key+value)" -"(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0)" +"(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0 prefix-end-pos_0)" "(begin" -"(lambda(init-c_12 in_41 config_48)" -"(let-values(((c_94)(read-char/skip-whitespace-and-comments init-c_12 read-one_8 in_41 config_48)))" -"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_94)))" -"(let-values(((ec_8)(effective-char c_94 config_48)))" -"(let-values(((elem-config_1)(next-readtable config_48)))" +"(lambda(init-c_13 in_42 config_49)" +"(let-values(((c_79)(read-char/skip-whitespace-and-comments init-c_13 read-one_8 in_42 config_49)))" +"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_42 c_79)))" +"(let-values(((ec_8)(effective-char c_79 config_49)))" +"(let-values(((elem-config_1)(next-readtable config_49)))" "(let-values(((closer_4)" "(let-values(((tmp_52) ec_8))" "(if(equal? tmp_52 '#\\()" "(let-values() '#\\))" "(if(equal? tmp_52 '#\\[)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_48) '#\\] #f))" +"(if(check-parameter 1/read-square-bracket-as-paren config_49) '#\\] #f))" "(if(equal? tmp_52 '#\\{)" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_48) '#\\} #f))" +"(if(check-parameter 1/read-curly-brace-as-paren config_49) '#\\} #f))" "(let-values() #f)))))))" "(if(not closer_4)" "(let-values()" -"(if(eof-object? c_94)" +"(if(eof-object? c_79)" "(let-values()" -"(let-values(((in54_0) in_41)" -"((temp55_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" -"((c56_0) c_94)" -" ((temp57_0) \"expected ~a to close `~a`\")" -"((temp58_2)(closer-name overall-closer-ec_0 config_48))" -"((overall-opener-c59_0) overall-opener-c_0))" -"(reader-error10.1" +"(let-values(((in54_0) in_42)" +"((config55_0) config_49)" +"((c56_0) c_79)" +"((prefix-end-pos57_0) prefix-end-pos_0)" +" ((temp58_2) \"expected ~a to close `~a`\")" +"((temp59_3)(closer-name overall-closer-ec_0 config_49))" +"((overall-opener-c60_0) overall-opener-c_0))" +"(reader-error12.1" " #f" " #f" " c56_0" " #t" +" prefix-end-pos57_0" +" #t" " #f" " #f" " in54_0" -" temp55_3" -" temp57_0" -"(list temp58_2 overall-opener-c59_0))))" -"(if(char-closer? ec_8 config_48)" +" config55_0" +" temp58_2" +"(list temp59_3 overall-opener-c60_0))))" +"(if(char-closer? ec_8 config_49)" "(let-values()" -"(let-values(((in60_0) in_41)" -"((temp61_4)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" -" ((temp62_2) \"~a\")" -"((temp63_4)(indentation-unexpected-closer-message ec_8 c_94 config_48)))" -"(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_2(list temp63_4))))" +"(let-values(((in61_0) in_42)" +"((temp62_2)(reading-at config_49 open-line_0 open-col_0 open-pos_0))" +" ((temp63_4) \"~a\")" +"((temp64_3)(indentation-unexpected-closer-message ec_8 c_79 config_49)))" +"(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_3))))" "(let-values()" -"(let-values(((v_48)(read-one_8 c_94 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_48)" +"(let-values(((v_239)(read-one_8 c_79 in_42(keep-comment elem-config_1))))" +"(if(1/special-comment? v_239)" "(let-values()" -"((make-read-one-key+value read-one_8 overall-opener-c_0 overall-closer-ec_0)" +"((make-read-one-key+value" +" read-one_8" +" overall-opener-c_0" +" overall-closer-ec_0" +" prefix-end-pos_0)" " #f" -" in_41" -" config_48))" +" in_42" +" config_49))" "(let-values()" -"(let-values(((in64_0) in_41)" -"((temp65_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" -" ((temp66_3) \"expected ~a to start a hash pair\")" -"((temp67_0)(all-openers-str config_48)))" -"(reader-error10.1" +"(let-values(((in65_0) in_42)" +"((temp66_3)(reading-at config_49 open-line_0 open-col_0 open-pos_0))" +" ((temp67_0) \"expected ~a to start a hash pair\")" +"((temp68_1)(all-openers-str config_49)))" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in64_0" -" temp65_3" +" #f" +" #f" +" in65_0" " temp66_3" -"(list temp67_0))))))))))" +" temp67_0" +"(list temp68_1))))))))))" "(let-values()" -"(let-values(((k_41)(read-one_8 #f in_41(disable-wrapping elem-config_1))))" -"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" -"(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_41 dot-c_0)))" -"(let-values(((dot-ec_0)(effective-char dot-c_0 config_48)))" +"(let-values(((k_41)(read-one_8 #f in_42(disable-wrapping elem-config_1))))" +"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_42 config_49)))" +"(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_42 dot-c_0)))" +"(let-values(((dot-ec_0)(effective-char dot-c_0 config_49)))" "(let-values((()" "(begin" "(if(if(eqv? dot-ec_0 '#\\.)" "(char-delimiter?" -"(let-values(((in_42) in_41)" +"(let-values(((in_43) in_42)" "((skip-count_9) 0)" -"((source_26)(read-config-source config_48)))" -"(let-values(((c_95)" +"((source_25)(read-config-source config_49)))" +"(let-values(((c_93)" "(peek-char-or-special" -" in_42" +" in_43" " skip-count_9" " 'special" -" source_26)))" -"(if(eq? c_95 'special)(special1.1 'special) c_95)))" -" config_48)" +" source_25)))" +"(if(eq? c_93 'special)(special1.1 'special) c_93)))" +" config_49)" " #f)" "(void)" "(let-values()" -"(let-values(((in68_0) in_41)" -"((temp69_1)" -"(reading-at config_48 dot-line_1 dot-col_1 dot-pos_4))" -"((dot-c70_0) dot-c_0)" -" ((temp71_2) \"expected ~a and value for hash\")" -"((temp72_1)(dot-name config_48)))" -"(reader-error10.1" +"(let-values(((in69_1) in_42)" +"((temp70_2)" +"(reading-at config_49 dot-line_1 dot-col_1 dot-pos_4))" +"((dot-c71_0) dot-c_0)" +" ((temp72_1) \"expected ~a and value for hash\")" +"((temp73_4)(dot-name config_49)))" +"(reader-error12.1" " #f" " #f" -" dot-c70_0" +" dot-c71_0" " #t" " #f" " #f" -" in68_0" -" temp69_1" -" temp71_2" -"(list temp72_1)))))" +" #f" +" #f" +" in69_1" +" temp70_2" +" temp72_1" +"(list temp73_4)))))" "(values))))" -"(let-values(((v_235)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_231)(read-one_8 #f in_42 elem-config_1)))" "(let-values(((closer-c_0)" -"(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" +"(read-char/skip-whitespace-and-comments #f read-one_8 in_42 config_49)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" -"(port-next-location* in_41 closer-c_0)))" -"(let-values(((closer-ec_0)(effective-char closer-c_0 config_48)))" +"(port-next-location* in_42 closer-c_0)))" +"(let-values(((closer-ec_0)(effective-char closer-c_0 config_49)))" "(begin" "(if(eqv? closer-ec_0 closer_4)" "(void)" "(let-values()" -"(let-values(((in73_0) in_41)" -"((temp74_0)" +"(let-values(((in74_0) in_42)" +"((temp75_1)" "(reading-at" -" config_48" +" config_49" " closer-line_0" " closer-col_0" " closer-pos_0))" -"((closer-c75_0) closer-c_0)" -" ((temp76_0) \"expected ~a after value within a hash\")" -"((temp77_1)(closer-name closer_4 config_48)))" -"(reader-error10.1" +"((closer-c76_0) closer-c_0)" +" ((temp77_1) \"expected ~a after value within a hash\")" +"((temp78_3)(closer-name closer_4 config_49)))" +"(reader-error12.1" " #f" " #f" -" closer-c75_0" +" closer-c76_0" " #t" " #f" " #f" -" in73_0" -" temp74_0" -" temp76_0" -"(list temp77_1)))))" -"(cons(coerce-key k_41 elem-config_1) v_235))))))))))))))))))))))" +" #f" +" #f" +" in74_0" +" temp75_1" +" temp77_1" +"(list temp78_3)))))" +"(cons(coerce-key k_41 elem-config_1) v_231))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" "(begin" " 'read-string5" -"(let-values(((in_43) in3_0))" +"(let-values(((in_44) in3_0))" "(let-values(((config_22) config4_0))" "(let-values(((mode_0)(if mode2_0 mode1_1 'string)))" "(let-values()" -"(let-values(((source_27)(read-config-source config_22)))" +"(let-values(((source_26)(read-config-source config_22)))" +"(let-values(((open-end-line_4 open-end-col_4 open-end-pos_4)(port-next-location in_44)))" "(let-values(((accum-str_4)(accum-string-init! config_22)))" "(let-values(((bad-end_0)" -"(lambda(c_96)" +"(lambda(c_94)" "(begin" " 'bad-end" -"(if(eof-object? c_96)" +"(if(eof-object? c_94)" "(let-values()" -"(let-values(((in8_0) in_43)" +"(let-values(((in8_0) in_44)" "((config9_1) config_22)" -"((c10_2) c_96)" -" ((temp11_5) \"expected a closing `\\\"`\"))" -"(reader-error10.1 #f #f c10_2 #t #f #f in8_0 config9_1 temp11_5(list))))" -"(let-values()" -"(let-values(((in12_3) in_43)" -"((config13_1) config_22)" -"((c14_0) c_96)" -" ((temp15_6) \"found non-character while reading a ~a\")" -"((mode16_0) mode_0))" -"(reader-error10.1" +"((c10_2) c_94)" +"((open-end-pos11_0) open-end-pos_4)" +" ((temp12_5) \"expected a closing `\\\"`\"))" +"(reader-error12.1" " #f" " #f" -" c14_0" +" c10_2" +" #t" +" open-end-pos11_0" " #t" " #f" " #f" -" in12_3" -" config13_1" -" temp15_6" -"(list mode16_0)))))))))" +" in8_0" +" config9_1" +" temp12_5" +"(list))))" +"(let-values()" +"(let-values(((in13_1) in_44)" +"((config14_1) config_22)" +"((c15_0) c_94)" +" ((temp16_6) \"found non-character while reading a ~a\")" +"((mode17_0) mode_0))" +"(reader-error12.1" +" #f" +" #f" +" c15_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" in13_1" +" config14_1" +" temp16_6" +"(list mode17_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_66)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_48)" -"(let-values(((in_44) in_43)" -"((source_6) source_27))" +"(let-values(((c_49)" +"(let-values(((in_12) in_44)" +"((source_27) source_26))" "(read-char-or-special" -" in_44" +" in_12" " special1.1" -" source_6))))" -"(if(not(char? c_48))" -"(let-values()(bad-end_0 c_48))" -"(if(char=? '#\\\\ c_48)" +" source_27))))" +"(if(not(char? c_49))" +"(let-values()(bad-end_0 c_49))" +"(if(char=? '#\\\\ c_49)" "(let-values()" -"(let-values(((escaping-c_0) c_48))" +"(let-values(((escaping-c_0) c_49))" "(let-values(((escaped-c_0)" -"(let-values(((in_40) in_43)" -"((source_25) source_27))" +"(let-values(((in_13) in_44)" +"((source_28)" +" source_26))" "(read-char-or-special" -" in_40" +" in_13" " special1.1" -" source_25))))" +" source_28))))" "(let-values((()" "(begin" "(if(not(char? escaped-c_0))" @@ -52789,31 +52939,34 @@ static const char *startup_source = "(lambda()" "(begin" " 'unknown-error" -"(let-values(((in17_0) in_43)" -"((config18_0)" +"(let-values(((in18_1)" +" in_44)" +"((config19_2)" " config_22)" -"((temp19_3)" -" \"unknown escape sequence `~a~a` in ~a\")" -"((escaping-c20_0)" +"((temp20_4)" +" \"unknown escape sequence `~a~a` in ~a\")" +"((escaping-c21_0)" " escaping-c_0)" -"((escaped-c21_0)" +"((escaped-c22_0)" " escaped-c_0)" -"((mode22_0)" +"((mode23_0)" " mode_0))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in17_0" -" config18_0" -" temp19_3" +" #f" +" #f" +" in18_1" +" config19_2" +" temp20_4" "(list" -" escaping-c20_0" -" escaped-c21_0" -" mode22_0)))))))" +" escaping-c21_0" +" escaped-c22_0" +" mode23_0)))))))" "(begin" "(let-values(((tmp_53) escaped-c_0))" "(let-values(((index_3)" @@ -52950,7 +53103,8 @@ static const char *startup_source = "(if(unsafe-fx< index_3 7)" "(if(unsafe-fx< index_3 3)" "(if(unsafe-fx< index_3 1)" -"(let-values()(unknown-error_0))" +"(let-values()" +"(unknown-error_0))" "(if(unsafe-fx< index_3 2)" "(let-values()" "(accum-string-add!" @@ -53000,31 +53154,31 @@ static const char *startup_source = "(if(unsafe-fx< index_3 12)" "(let-values()" "(let-values(((maybe-newline-c_0)" -"(let-values(((in_45)" -" in_43)" +"(let-values(((in_27)" +" in_44)" "((skip-count_10)" " 0)" -"((source_28)" -" source_27))" -"(let-values(((c_97)" +"((source_29)" +" source_26))" +"(let-values(((c_95)" "(peek-char-or-special" -" in_45" +" in_27" " skip-count_10" " 'special" -" source_28)))" +" source_29)))" "(if(eq?" -" c_97" +" c_95" " 'special)" "(special1.1" " 'special)" -" c_97)))))" +" c_95)))))" "(begin" "(if(eqv?" " maybe-newline-c_0" " '#\\newline)" "(let-values()" "(consume-char" -" in_43" +" in_44" " maybe-newline-c_0))" "(void))" "(void))))" @@ -53041,123 +53195,125 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_178)" -"(let-values(((in23_1)" -" in_43)" -"((config24_1)" +"(let-values(((v_62)" +"(let-values(((in24_1)" +" in_44)" +"((config25_1)" " config_22)" -"((accum-str25_0)" +"((accum-str26_0)" " accum-str_4)" -"((temp26_6)" +"((temp27_8)" " 8)" -"((temp27_7)" +"((temp28_5)" " 2)" -"((init-v28_0)" -" init-v_3)" "((init-v29_0)" +" init-v_3)" +"((init-v30_0)" " init-v_3))" "(read-digits13.1" -" temp26_6" -" init-v28_0" -" #t" -" temp27_7" +" temp27_8" " init-v29_0" " #t" -" in23_1" -" config24_1" -" accum-str25_0" +" temp28_5" +" init-v30_0" +" #t" +" in24_1" +" config25_1" +" accum-str26_0" " #t))))" "(begin" -"(if(<= v_178 255)" +"(if(<= v_62 255)" "(void)" "(let-values()" -"(let-values(((in30_0)" -" in_43)" -"((config31_0)" +"(let-values(((in31_2)" +" in_44)" +"((config32_1)" " config_22)" -"((temp32_4)" -" \"escape sequence `~a~a` is out of range in ~a\")" -"((escaping-c33_0)" +"((temp33_3)" +" \"escape sequence `~a~a` is out of range in ~a\")" +"((escaping-c34_0)" " escaping-c_0)" -"((temp34_3)" -"(let-values(((accum-str36_0)" +"((temp35_3)" +"(let-values(((accum-str37_0)" " accum-str_4)" -"((config37_1)" +"((config38_2)" " config_22)" -"((pos38_0)" +"((pos39_0)" " pos_118))" "(accum-string-get!6.1" -" pos38_0" +" pos39_0" " #t" -" accum-str36_0" -" config37_1)))" -"((mode35_0)" +" accum-str37_0" +" config38_2)))" +"((mode36_0)" " mode_0))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in30_0" -" config31_0" -" temp32_4" +" #f" +" #f" +" in31_2" +" config32_1" +" temp33_3" "(list" -" escaping-c33_0" -" temp34_3" -" mode35_0)))))" +" escaping-c34_0" +" temp35_3" +" mode36_0)))))" "(set-accum-string-count!" " accum-str_4" " pos_118)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_178)))))))))" +" v_62)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" -"(let-values(((pos_119)" +"(let-values(((pos_103)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_236)" -"(let-values(((in39_1)" -" in_43)" -"((config40_0)" +"(let-values(((v_238)" +"(let-values(((in40_1)" +" in_44)" +"((config41_1)" " config_22)" -"((accum-str41_0)" +"((accum-str42_0)" " accum-str_4)" -"((temp42_4)" -" 16)" "((temp43_4)" +" 16)" +"((temp44_4)" " 2))" "(read-digits13.1" -" temp42_4" -" #f" -" #f" " temp43_4" " #f" " #f" -" in39_1" -" config40_0" -" accum-str41_0" +" temp44_4" +" #f" +" #f" +" in40_1" +" config41_1" +" accum-str42_0" " #t))))" "(begin" -"(if(integer? v_236)" +"(if(integer? v_238)" "(void)" "(let-values()" "(no-hex-digits" -" in_43" +" in_44" " config_22" -" v_236" +" v_238" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" " accum-str_4" -" pos_119)" +" pos_103)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_236))))))" +" v_238))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53169,73 +53325,74 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_120)" +"(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_237)" -"(let-values(((in44_1)" -" in_43)" -"((config45_1)" +"(let-values(((v_240)" +"(let-values(((in45_0)" +" in_44)" +"((config46_0)" " config_22)" -"((accum-str46_0)" +"((accum-str47_0)" " accum-str_4)" -"((temp47_1)" -" 16)" "((temp48_1)" +" 16)" +"((temp49_2)" " 4))" "(read-digits13.1" -" temp47_1" -" #f" -" #f" " temp48_1" " #f" " #f" -" in44_1" -" config45_1" -" accum-str46_0" +" temp49_2" +" #f" +" #f" +" in45_0" +" config46_0" +" accum-str47_0" " #t))))" "(begin" -"(if(integer? v_237)" +"(if(integer?" +" v_240)" "(void)" "(let-values()" "(no-hex-digits" -" in_43" +" in_44" " config_22" -" v_237" +" v_240" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_263)" "(<" -" v_237" +" v_240" " 55296)))" -"(if or-part_362" -" or-part_362" +"(if or-part_263" +" or-part_263" "(>" -" v_237" +" v_240" " 57343)))" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_120)" +" pos_119)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_237))))" +" v_240))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" "(begin" " 'next!" "(let-values(((next-c_1)" -"(let-values(((in_46)" -" in_43)" -"((source_29)" -" source_27))" +"(let-values(((in_45)" +" in_44)" +"((source_30)" +" source_26))" "(read-char-or-special" -" in_46" +" in_45" " special1.1" -" source_29))))" +" source_30))))" "(begin" "(if(char?" " next-c_1)" @@ -53259,26 +53416,26 @@ static const char *startup_source = " '#\\u)" "(let-values()" "(let-values(((v2_9)" -"(let-values(((in49_0)" -" in_43)" -"((config50_0)" +"(let-values(((in50_1)" +" in_44)" +"((config51_1)" " config_22)" -"((accum-str51_0)" +"((accum-str52_1)" " accum-str_4)" -"((temp52_5)" -" 16)" "((temp53_3)" +" 16)" +"((temp54_3)" " 4))" "(read-digits13.1" -" temp52_5" -" #f" -" #f" " temp53_3" " #f" " #f" -" in49_0" -" config50_0" -" accum-str51_0" +" temp54_3" +" #f" +" #f" +" in50_1" +" config51_1" +" accum-str52_1" " #t))))" "(if(integer?" " v2_9)" @@ -53305,7 +53462,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_237" +" v_240" " 55296)" " 10)" "(-" @@ -53316,84 +53473,88 @@ static const char *startup_source = " combined-v_0" " 1114111)" "(let-values()" -"(let-values(((in54_1)" -" in_43)" -"((config55_0)" +"(let-values(((in55_1)" +" in_44)" +"((config56_1)" " config_22)" -"((temp56_1)" -" \"escape sequence `~au~a` is out of range in string\")" -"((escaping-c57_0)" +"((temp57_0)" +" \"escape sequence `~au~a` is out of range in string\")" +"((escaping-c58_0)" " escaping-c_0)" -"((temp58_3)" -"(let-values(((accum-str59_0)" +"((temp59_4)" +"(let-values(((accum-str60_0)" " accum-str_4)" -"((config60_1)" +"((config61_0)" " config_22)" -"((pos61_0)" -" pos_120))" +"((pos62_0)" +" pos_119))" "(accum-string-get!6.1" -" pos61_0" +" pos62_0" " #t" -" accum-str59_0" -" config60_1))))" -"(reader-error10.1" +" accum-str60_0" +" config61_0))))" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in54_1" -" config55_0" -" temp56_1" +" #f" +" #f" +" in55_1" +" config56_1" +" temp57_0" "(list" -" escaping-c57_0" -" temp58_3))))" +" escaping-c58_0" +" temp59_4))))" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_120)" +" pos_119)" "(accum-string-add!" " accum-str_4" "(integer->char" " combined-v_0)))))))" "(let-values()" -"(let-values(((in62_1)" -" in_43)" -"((config63_1)" +"(let-values(((in63_0)" +" in_44)" +"((config64_0)" " config_22)" -"((v264_0)" +"((v265_0)" " v2_8)" -"((temp65_4)" -" \"bad or incomplete surrogate-style encoding at `~au~a`\")" -"((escaping-c66_0)" +"((temp66_4)" +" \"bad or incomplete surrogate-style encoding at `~au~a`\")" +"((escaping-c67_0)" " escaping-c_0)" -"((temp67_1)" -"(let-values(((accum-str68_0)" +"((temp68_2)" +"(let-values(((accum-str69_0)" " accum-str_4)" -"((config69_0)" +"((config70_1)" " config_22)" -"((pos70_0)" -" pos_120))" +"((pos71_0)" +" pos_119))" "(accum-string-get!6.1" -" pos70_0" +" pos71_0" " #t" -" accum-str68_0" -" config69_0))))" -"(reader-error10.1" +" accum-str69_0" +" config70_1))))" +"(reader-error12.1" " #f" " #f" -" v264_0" +" v265_0" " #t" " #f" " #f" -" in62_1" -" config63_1" -" temp65_4" +" #f" +" #f" +" in63_0" +" config64_0" +" temp66_4" "(list" -" escaping-c66_0" -" temp67_1))))))))))))))" +" escaping-c67_0" +" temp68_2))))))))))))))" "(let-values()" "(let-values((()" "(begin" @@ -53404,249 +53565,264 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_121)" +"(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_238)" -"(let-values(((in71_0)" -" in_43)" -"((config72_0)" +"(let-values(((v_241)" +"(let-values(((in72_0)" +" in_44)" +"((config73_0)" " config_22)" -"((accum-str73_0)" +"((accum-str74_0)" " accum-str_4)" -"((temp74_1)" +"((temp75_2)" " 16)" -"((temp75_1)" +"((temp76_0)" " 8))" "(read-digits13.1" -" temp74_1" +" temp75_2" " #f" " #f" -" temp75_1" +" temp76_0" " #f" " #f" -" in71_0" -" config72_0" -" accum-str73_0" +" in72_0" +" config73_0" +" accum-str74_0" " #t))))" "(begin" -"(if(integer? v_238)" +"(if(integer?" +" v_241)" "(void)" "(let-values()" "(no-hex-digits" -" in_43" +" in_44" " config_22" -" v_238" +" v_241" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_144)" +"(if(if(let-values(((or-part_54)" "(<" -" v_238" +" v_241" " 55296)))" -"(if or-part_144" -" or-part_144" +"(if or-part_54" +" or-part_54" "(>" -" v_238" +" v_241" " 57343)))" "(<=" -" v_238" +" v_241" " 1114111)" " #f)" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_121)" +" pos_120)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_238))))" +" v_241))))" "(let-values()" -"(let-values(((in76_0)" -" in_43)" -"((config77_1)" +"(let-values(((in77_1)" +" in_44)" +"((config78_1)" " config_22)" -"((temp78_3)" -" \"escape sequence `~aU~a` is out of range in string\")" -"((escaping-c79_0)" +"((temp79_2)" +" \"escape sequence `~aU~a` is out of range in string\")" +"((escaping-c80_0)" " escaping-c_0)" -"((temp80_4)" -"(let-values(((accum-str81_0)" +"((temp81_3)" +"(let-values(((accum-str82_0)" " accum-str_4)" -"((config82_0)" +"((config83_0)" " config_22)" -"((pos83_0)" -" pos_121))" +"((pos84_0)" +" pos_120))" "(accum-string-get!6.1" -" pos83_0" +" pos84_0" " #t" -" accum-str81_0" -" config82_0))))" -"(reader-error10.1" +" accum-str82_0" +" config83_0))))" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in76_0" -" config77_1" -" temp78_3" +" #f" +" #f" +" in77_1" +" config78_1" +" temp79_2" "(list" -" escaping-c79_0" -" temp80_4)))))))))))))))))" -"(loop_111)))))))" -" (if (char=? '#\\\" c_48)" +" escaping-c80_0" +" temp81_3)))))))))))))))))" +"(loop_66)))))))" +" (if (char=? '#\\\" c_49)" "(let-values() null)" "(let-values()" "(begin" "(if(eq? mode_0 '|byte string|)" "(let-values()" -"(if(byte?(char->integer c_48))" +"(if(byte?(char->integer c_49))" "(void)" "(let-values()" -"(let-values(((in84_0) in_43)" -"((config85_0) config_22)" -"((temp86_1)" -" \"character `~a` is out of range in byte string\")" -"((c87_0) c_48))" -"(reader-error10.1" +"(let-values(((in85_0) in_44)" +"((config86_0) config_22)" +"((temp87_4)" +" \"character `~a` is out of range in byte string\")" +"((c88_0) c_49))" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in84_0" -" config85_0" -" temp86_1" -"(list c87_0))))))" +" #f" +" #f" +" in85_0" +" config86_0" +" temp87_4" +"(list c88_0))))))" "(void))" -"(accum-string-add! accum-str_4 c_48)" -"(loop_111)))))))))))" -" loop_111))" +"(accum-string-add! accum-str_4 c_49)" +"(loop_66)))))))))))" +" loop_66))" "(values))))" "(let-values(((str_29)" "(if(eq? mode_0 '|byte string|)" -"(let-values(((accum-str88_0) accum-str_4)((config89_0) config_22))" -"(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_29 in_43 config_22 str_29)))))))))))))" +"(let-values(((accum-str89_0) accum-str_4)((config90_0) config_22))" +"(accum-string-get-bytes!13.1 #f #f accum-str89_0 config90_0))" +"(let-values(((accum-str91_0) accum-str_4)((config92_0) config_22))" +"(accum-string-get!6.1 #f #f accum-str91_0 config92_0)))))" +"(wrap str_29 in_44 config_22 str_29))))))))))))))" "(define-values" "(read-here-string)" -"(lambda(in_47 config_49)" +"(lambda(in_46 config_50)" "(begin" -"(let-values(((source_30)(read-config-source config_49)))" -"(let-values(((accum-str_5)(accum-string-init! config_49)))" +"(let-values(((source_31)(read-config-source config_50)))" +"(let-values(((open-end-line_5 open-end-col_5 open-end-pos_5)(port-next-location in_46)))" +"(let-values(((accum-str_5)(accum-string-init! config_50)))" "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_110)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_98)" -"(let-values(((in_48) in_47)((source_31) source_30))" -"(read-char-or-special in_48 special1.1 source_31))))" -"(if(eof-object? c_98)" +"(let-values(((c_96)" +"(let-values(((in_47) in_46)((source_32) source_31))" +"(read-char-or-special in_47 special1.1 source_32))))" +"(if(eof-object? c_96)" "(let-values()" -"(let-values(((in92_0) in_47)" -"((config93_0) config_49)" -"((c94_0) c_98)" -"((temp95_1)" -" \"found end-of-file after `#<<` and before a newline\"))" -"(reader-error10.1" +"(let-values(((in93_0) in_46)" +"((config94_0) config_50)" +"((c95_0) c_96)" +"((temp96_4)" +" \"found end-of-file after `#<<` and before a newline\"))" +"(reader-error12.1" " #f" " #f" -" c94_0" +" c95_0" " #t" " #f" " #f" -" in92_0" -" config93_0" -" temp95_1" +" #f" +" #f" +" in93_0" +" config94_0" +" temp96_4" "(list))))" -"(if(not(char? c_98))" +"(if(not(char? c_96))" "(let-values()" -"(let-values(((in96_0) in_47)" -"((config97_0) config_49)" -"((c98_0) c_98)" -"((temp99_2)" -" \"found non-character while reading `#<<`\"))" -"(reader-error10.1" +"(let-values(((in97_0) in_46)" +"((config98_0) config_50)" +"((c99_0) c_96)" +"((temp100_2)" +" \"found non-character while reading `#<<`\"))" +"(reader-error12.1" " #f" " #f" -" c98_0" +" c99_0" " #t" " #f" " #f" -" in96_0" -" config97_0" -" temp99_2" +" #f" +" #f" +" in97_0" +" config98_0" +" temp100_2" "(list))))" -"(if(char=? c_98 '#\\newline)" +"(if(char=? c_96 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_98(loop_112)))))))))))" -" loop_112)))))" +"(let-values()(cons c_96(loop_110)))))))))))" +" loop_110)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_111)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" -"(let-values(((c_99)" -"(let-values(((in_49) in_47)((source_32) source_30))" -"(read-char-or-special in_49 special1.1 source_32))))" -"(if(eof-object? c_99)" +"(let-values(((c_97)" +"(let-values(((in_48) in_46)((source_33) source_31))" +"(read-char-or-special in_48 special1.1 source_33))))" +"(if(eof-object? c_97)" "(let-values()" "(if(null? terminator_0)" "(void)" "(let-values()" -"(let-values(((in100_0) in_47)" -"((config101_0) config_49)" -"((c102_0) c_99)" -"((temp103_3)" -" \"found end-of-file before terminating `~a`\")" -"((temp104_3)" +"(let-values(((in101_0) in_46)" +"((config102_0) config_50)" +"((c103_0) c_97)" +"((open-end-pos104_0) open-end-pos_5)" +"((temp105_2)" +" \"found end-of-file before terminating `~a`\")" +"((temp106_2)" "(list->string(cdr full-terminator_0))))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" -" c102_0" +" c103_0" +" #t" +" open-end-pos104_0" " #t" " #f" " #f" -" in100_0" -" config101_0" -" temp103_3" -"(list temp104_3))))))" -"(if(not(char? c_99))" +" in101_0" +" config102_0" +" temp105_2" +"(list temp106_2))))))" +"(if(not(char? c_97))" "(let-values()" -"(let-values(((in105_0) in_47)" -"((config106_0) config_49)" -"((c107_0) c_99)" -"((temp108_1)" -" \"found non-character while reading `#<<`\"))" -"(reader-error10.1" +"(let-values(((in107_0) in_46)" +"((config108_0) config_50)" +"((c109_0) c_97)" +"((temp110_3)" +" \"found non-character while reading `#<<`\"))" +"(reader-error12.1" " #f" " #f" -" c107_0" +" c109_0" " #t" " #f" " #f" -" in105_0" -" config106_0" -" temp108_1" +" #f" +" #f" +" in107_0" +" config108_0" +" temp110_3" "(list))))" "(if(if(pair? terminator_0)" -"(char=? c_99(car terminator_0))" +"(char=? c_97(car terminator_0))" " #f)" "(let-values()" -"(loop_113" +"(loop_111" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" -"(if(if(null? terminator_0)(char=? c_99 '#\\newline) #f)" +"(if(if(null? terminator_0)(char=? c_97 '#\\newline) #f)" "(let-values()(void))" "(let-values()" "(begin" @@ -53654,24 +53830,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_231)" +"(let-values(((lst_314)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_231)))" +"(let-values()(check-list lst_314)))" "((letrec-values(((for-loop_277)" -"(lambda(lst_314)" +"(lambda(lst_29)" "(begin" " 'for-loop" -"(if(pair? lst_314)" -"(let-values(((c_100)" +"(if(pair? lst_29)" +"(let-values(((c_12)" "(unsafe-car" -" lst_314))" +" lst_29))" "((rest_174)" "(unsafe-cdr" -" lst_314)))" +" lst_29)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53680,7 +53856,7 @@ static const char *startup_source = "(let-values()" "(accum-string-add!" " accum-str_5" -" c_100))" +" c_12))" "(values)))))" "(values)))))" "(if(not #f)" @@ -53689,83 +53865,95 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_277)" -" lst_231)))" +" lst_314)))" "(void))))" -"(if(char=? c_99 '#\\newline)" +"(if(char=? c_97 '#\\newline)" "(let-values()" -"(loop_113" +"(loop_111" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" -"(accum-string-add! accum-str_5 c_99)" -"(loop_113 full-terminator_0 null)))))))))))))))" -" loop_113)" +"(accum-string-add! accum-str_5 c_97)" +"(loop_111 full-terminator_0 null)))))))))))))))" +" loop_111)" "(cdr full-terminator_0)" " null)" "(values))))" -"(let-values(((str_30)" -"(let-values(((accum-str109_0) accum-str_5)((config110_0) config_49))" -"(accum-string-get!6.1 #f #f accum-str109_0 config110_0))))" -"(wrap str_30 in_47 config_49 str_30)))))))))" +"(let-values(((str_8)" +"(let-values(((accum-str111_0) accum-str_5)((config112_0) config_50))" +"(accum-string-get!6.1 #f #f accum-str111_0 config112_0))))" +"(wrap str_8 in_46 config_50 str_8))))))))))" "(define-values" "(no-hex-digits)" -"(lambda(in_50 config_50 c_101 escaping-c_1 escaped-c_1)" +"(lambda(in_49 config_51 c_98 escaping-c_1 escaped-c_1)" "(begin" -"(let-values(((in111_0) in_50)" -"((config112_0) config_50)" -"((c113_0) c_101)" -" ((temp114_2) \"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 in111_0 config112_0 temp114_2(list escaping-c115_0 escaped-c116_0))))))" +"(let-values(((in113_0) in_49)" +"((config114_0) config_51)" +"((c115_0) c_98)" +" ((temp116_0) \"no hex digit following `~a~a`\")" +"((escaping-c117_0) escaping-c_1)" +"((escaped-c118_0) escaped-c_1))" +"(reader-error12.1" +" #f" +" #f" +" c115_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" in113_0" +" config114_0" +" temp116_0" +"(list escaping-c117_0 escaped-c118_0))))))" "(define-values" "(read-character)" "(lambda(in_4 config_8)" "(begin" -"(let-values(((c_102)" -"(let-values(((in_43) in_4)((source_33)(read-config-source config_8)))" -"(read-char-or-special in_43 special1.1 source_33))))" +"(let-values(((c_99)" +"(let-values(((in_44) in_4)((source_34)(read-config-source config_8)))" +"(read-char-or-special in_44 special1.1 source_34))))" "(let-values(((char_0)" -"(if(eof-object? c_102)" +"(if(eof-object? c_99)" "(let-values()" -"(let-values(((in1_5) in_4)" -"((config2_4) config_8)" -"((c3_5) c_102)" +"(let-values(((in1_7) in_4)" +"((config2_6) config_8)" +"((c3_5) c_99)" " ((temp4_5) \"expected a character after `#\\\\`\"))" -"(reader-error10.1 #f #f c3_5 #t #f #f in1_5 config2_4 temp4_5(list))))" -"(if(not(char? c_102))" +"(reader-error12.1 #f #f c3_5 #t #f #f #f #f in1_7 config2_6 temp4_5(list))))" +"(if(not(char? c_99))" "(let-values()" "(let-values(((in5_1) in_4)" "((config6_0) config_8)" -"((c7_1) c_102)" +"((c7_1) c_99)" " ((temp8_3) \"found non-character after `#\\\\`\"))" -"(reader-error10.1 #f #f c7_1 #t #f #f in5_1 config6_0 temp8_3(list))))" -"(if(octal-digit? c_102)" +"(reader-error12.1 #f #f c7_1 #t #f #f #f #f in5_1 config6_0 temp8_3(list))))" +"(if(octal-digit? c_99)" "(let-values()" "(let-values(((c2_5)" -"(let-values(((in_51) in_4)" +"(let-values(((in_50) in_4)" "((skip-count_11) 0)" -"((source_34)(read-config-source config_8)))" +"((source_35)(read-config-source config_8)))" "(let-values(((c_47)" "(peek-char-or-special" -" in_51" +" in_50" " skip-count_11" " 'special" -" source_34)))" +" source_35)))" "(if(eq? c_47 'special)(special1.1 'special) c_47)))))" "(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_6)" -"(let-values(((in_44) in_4)" +"(let-values(((in_51) in_4)" "((source_6)(read-config-source config_8)))" -"(read-char-or-special in_44 special1.1 source_6))))" +"(read-char-or-special in_51 special1.1 source_6))))" "(let-values(((v_92)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" -"(arithmetic-shift(digit->number c_102) 6)" +"(arithmetic-shift(digit->number c_99) 6)" "(arithmetic-shift(digit->number c2_5) 3)" "(digit->number c3_6)))" "(let-values() #f))))" @@ -53773,41 +53961,43 @@ static const char *startup_source = "(if(if v_92(<= v_92 255) #f)" "(void)" "(let-values()" -"(let-values(((in9_2) in_4)" -"((config10_1) config_8)" +"(let-values(((in9_3) in_4)" +"((config10_2) config_8)" "((c311_0) c3_6)" -" ((temp12_5) \"bad character constant `#\\\\~a~a~a`\")" -"((c13_2) c_102)" +" ((temp12_6) \"bad character constant `#\\\\~a~a~a`\")" +"((c13_2) c_99)" "((c214_0) c2_5)" -" ((temp15_7) (if (char? c3_6) c3_6 \"\")))" -"(reader-error10.1" +" ((temp15_6) (if (char? c3_6) c3_6 \"\")))" +"(reader-error12.1" " #f" " #f" " c311_0" " #t" " #f" " #f" -" in9_2" -" config10_1" -" temp12_5" -"(list c13_2 c214_0 temp15_7)))))" +" #f" +" #f" +" in9_3" +" config10_2" +" temp12_6" +"(list c13_2 c214_0 temp15_6)))))" "(integer->char v_92))))))" -"(let-values() c_102))))" -"(if(let-values(((or-part_68)(char=? c_102 '#\\u)))" -"(if or-part_68 or-part_68(char=? c_102 '#\\U)))" +"(let-values() c_99))))" +"(if(let-values(((or-part_68)(char=? c_99 '#\\u)))" +"(if or-part_68 or-part_68(char=? c_99 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" "(let-values(((v_33)" "(let-values(((in16_1) in_4)" "((config17_1) config_8)" "((accum-str18_1) accum-str_6)" -"((temp19_4) 16)" -"((temp20_4)(if(char=? c_102 '#\\u) 4 8)))" +"((temp19_3) 16)" +"((temp20_5)(if(char=? c_99 '#\\u) 4 8)))" "(read-digits13.1" -" temp19_4" +" temp19_3" " #f" " #f" -" temp20_4" +" temp20_5" " #f" " #f" " in16_1" @@ -53816,33 +54006,35 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_363)(< v_33 55296)))" -"(if or-part_363 or-part_363(> v_33 57343)))" +"(if(if(let-values(((or-part_362)(< v_33 55296)))" +"(if or-part_362 or-part_362(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" "(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_33)))" "(let-values()" -"(let-values(((in21_3) in_4)" -"((config22_3) config_8)" +"(let-values(((in21_2) in_4)" +"((config22_2) config_8)" " ((temp23_4) \"bad character constant `#\\\\u~a`\")" -"((temp24_9)" -"(let-values(((accum-str25_1) accum-str_6)" +"((temp24_8)" +"(let-values(((accum-str25_0) accum-str_6)" "((config26_1) config_8))" -"(accum-string-get!6.1 #f #f accum-str25_1 config26_1))))" -"(reader-error10.1" +"(accum-string-get!6.1 #f #f accum-str25_0 config26_1))))" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in21_3" -" config22_3" +" #f" +" #f" +" in21_2" +" config22_2" " temp23_4" -"(list temp24_9))))))" -"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_102))))))" -"(if(char-alphabetic? c_102)" +"(list temp24_8))))))" +"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_99))))))" +"(if(char-alphabetic? c_99)" "(let-values()" "(let-values(((next-c_4)" "(let-values(((in_52) in_4)" @@ -53858,7 +54050,7 @@ static const char *startup_source = "(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_102)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_7 c_99)(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((()" @@ -53868,19 +54060,19 @@ static const char *startup_source = "(begin" " 'loop" "(let-values(((next-c_5)" -"(let-values(((in_53)" +"(let-values(((in_20)" " in_4)" -"((skip-count_13)" +"((skip-count_4)" " 0)" -"((source_35)" +"((source_13)" "(read-config-source" " config_8)))" "(let-values(((c_20)" "(peek-char-or-special" -" in_53" -" skip-count_13" +" in_20" +" skip-count_4" " 'special" -" source_35)))" +" source_13)))" "(if(eq?" " c_20" " 'special)" @@ -53934,100 +54126,108 @@ static const char *startup_source = " (if (equal? tmp_54 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" -"(let-values(((in29_1) in_4)" +"(let-values(((in29_0) in_4)" "((config30_0) config_8)" -"((temp31_7)" +"((temp31_5)" " \"bad character constant `#\\\\~a`\")" "((name32_0) name_67))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in29_1" +" #f" +" #f" +" in29_0" " config30_0" -" temp31_7" +" temp31_5" "(list name32_0)))))))))))))))))))))" -"(let-values() c_102))))" -"(let-values() c_102))))))))" +"(let-values() c_99))))" +"(let-values() c_99))))))))" "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" -"(lambda(read-one_3 sym_27 desc_0 c_35 in_43 config_22)" +"(lambda(read-one_3 sym_27 desc_0 c_35 in_44 config_22)" "(begin" -"(let-values(((wrapped-sym_0)(wrap sym_27 in_43 config_22 c_35)))" -"(let-values(((e_85)(read-one_3 #f in_43 config_22)))" +"(let-values(((wrapped-sym_0)(wrap sym_27 in_44 config_22 c_35)))" +"(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_44)))" +"(let-values(((e_85)(read-one_3 #f in_44 config_22)))" "(begin" "(if(eof-object? e_85)" "(let-values()" -"(let-values(((in1_1) in_43)" -"((config2_5) config_22)" +"(let-values(((in1_8) in_44)" +"((config2_7) config_22)" "((e3_0) e_85)" -" ((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 in1_1 config2_5 temp4_6(list desc5_0))))" +"((end-pos4_1) end-pos_3)" +" ((temp5_7) \"expected an element for ~a, found end-of-file\")" +"((desc6_0) desc_0))" +"(reader-error12.1 #f #f e3_0 #t end-pos4_1 #t #f #f in1_8 config2_7 temp5_7(list desc6_0))))" "(void))" -"(wrap(list wrapped-sym_0 e_85) in_43 config_22 #f)))))))" +"(wrap(list wrapped-sym_0 e_85) in_44 config_22 #f))))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_80 in_43 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_80 in_44 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_114)" +"((letrec-values(((loop_112)" "(lambda(chars_1)" "(begin" " 'loop" "(let-values(((c_37)" -"(let-values(((in_54) in_43)" -"((skip-count_14) 0)" +"(let-values(((in_53) in_44)" +"((skip-count_13) 0)" "((source_4)(read-config-source config_22)))" -"(let-values(((c_103)" +"(let-values(((c_94)" "(peek-char-or-special" -" in_54" -" skip-count_14" +" in_53" +" skip-count_13" " 'special" " source_4)))" -"(if(eq? c_103 'special)(special1.1 'special) c_103)))))" +"(if(eq? c_94 'special)(special1.1 'special) c_94)))))" "(if(char-delimiter? c_37 config_22)" "(let-values()" "(if(null? chars_1)" "(void)" "(let-values()" -"(let-values(((in1_6) in_43)" -"((config2_6) config_22)" +"(let-values(((in1_9) in_44)" +"((config2_8) config_22)" "((c3_7) c_37)" -" ((temp4_7) \"bad syntax `#~a`\")" -"((temp5_7)" +" ((temp4_6) \"bad syntax `#~a`\")" +"((temp5_8)" "(let-values(((accum-str6_0) accum-str_8)" "((config7_1) config_22))" "(accum-string-get!6.1 #f #f accum-str6_0 config7_1))))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c3_7" " #t" " #f" " #f" -" in1_6" -" config2_6" -" temp4_7" -"(list temp5_7))))))" +" #f" +" #f" +" in1_9" +" config2_8" +" temp4_6" +"(list temp5_8))))))" "(if(null? chars_1)" "(let-values()" "(begin" "(accum-string-add! accum-str_8 c_37)" -"(let-values(((in8_1) in_43)" +"(let-values(((in8_1) in_44)" "((config9_2) config_22)" " ((temp10_6) \"bad syntax `#~a`\")" -"((temp11_6)" +"((temp11_5)" "(let-values(((accum-str12_0) accum-str_8)" -"((config13_2) config_22))" -"(accum-string-get!6.1 #f #f accum-str12_0 config13_2))))" -"(reader-error10.1" +"((config13_1) config_22))" +"(accum-string-get!6.1 #f #f accum-str12_0 config13_1))))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -54037,25 +54237,27 @@ static const char *startup_source = " in8_1" " config9_2" " temp10_6" -"(list temp11_6)))))" +"(list temp11_5)))))" "(if(if can-match?_0(char=? c_37(car chars_1)) #f)" "(let-values()" "(begin" -"(consume-char in_43 c_37)" +"(consume-char in_44 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_114(cdr chars_1))))" +"(loop_112(cdr chars_1))))" "(let-values()" "(begin" -"(consume-char/special in_43 config_22 c_37)" +"(consume-char/special in_44 config_22 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(let-values(((in14_1) in_43)" +"(let-values(((in14_1) in_44)" "((config15_2) config_22)" -" ((temp16_5) \"bad syntax `#~a`\")" +" ((temp16_7) \"bad syntax `#~a`\")" "((temp17_3)" "(let-values(((accum-str18_2) accum-str_8)" "((config19_1) config_22))" "(accum-string-get!6.1 #f #f accum-str18_2 config19_1))))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -54064,13 +54266,13 @@ static const char *startup_source = " #f" " in14_1" " config15_2" -" temp16_5" +" temp16_7" "(list temp17_3)))))))))))))" -" loop_114)" +" loop_112)" " chars_0)" "(wrap" " val_80" -" in_43" +" in_44" " 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))))))))" @@ -54084,50 +54286,64 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((in1_7) in_5)" -"((config2_7) config_15)" +"((config2_6) config_15)" " ((temp3_8) \"`~a&` forms not enabled\")" "((dispatch-c4_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in1_7 config2_7 temp3_8(list dispatch-c4_0)))))" +"(reader-error12.1 #f #f #f #f #f #f #f #f in1_7 config2_6 temp3_8(list dispatch-c4_0)))))" "(values))))" -"(let-values(((e_74)(read-one_3 #f in_5(next-readtable config_15))))" +"(let-values(((open-end-line_6 open-end-col_6 open-end-pos_6)(port-next-location in_5)))" +"(let-values(((e_86)(read-one_3 #f in_5(next-readtable config_15))))" "(begin" -"(if(eof-object? e_74)" +"(if(eof-object? e_86)" "(let-values()" -"(let-values(((in5_2) in_5)" -"((config6_1) config_15)" -"((e7_1) e_74)" -" ((temp8_4) \"expected an element for `~a&` box, found end-of-file\")" -"((dispatch-c9_0) dispatch-c_1))" -"(reader-error10.1 #f #f e7_1 #t #f #f in5_2 config6_1 temp8_4(list dispatch-c9_0))))" +"(let-values(((in5_1) in_5)" +"((config6_0) config_15)" +"((e7_1) e_86)" +"((open-end-pos8_0) open-end-pos_6)" +" ((temp9_6) \"expected an element for `~a&` box, found end-of-file\")" +"((dispatch-c10_0) dispatch-c_1))" +"(reader-error12.1" +" #f" +" #f" +" e7_1" +" #t" +" open-end-pos8_0" +" #t" +" #f" +" #f" +" in5_1" +" config6_0" +" temp9_6" +"(list dispatch-c10_0))))" "(void))" -"(wrap(box e_74) in_5 config_15 #f)))))))" +"(wrap(box e_86) in_5 config_15 #f))))))))" "(define-values" "(read-regexp)" "(lambda(mode-c_0 accum-str_9 in_5 config_15)" "(begin" "(let-values(((c3_8)" -"(let-values(((in_55) in_5)((source_36)(read-config-source config_15)))" -"(read-char-or-special in_55 special1.1 source_36))))" +"(let-values(((in_54) in_5)((source_36)(read-config-source config_15)))" +"(read-char-or-special in_54 special1.1 source_36))))" "(let-values(((no-wrap-config_0)(disable-wrapping config_15)))" "(let-values(((rx_0)" "(let-values(((tmp_55) c3_8))" " (if (equal? tmp_55 '#\\\")" "(let-values()" "(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))" -"(let-values(((str_31)" +"(let-values(((str_30)" "(let-values(((in1_8) in_5)((no-wrap-config2_0) no-wrap-config_0))" "(read-string5.1 #f #f in1_8 no-wrap-config2_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" -"(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_31))))))" +"(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_30))))))" "(if(equal? tmp_55 '#\\#)" "(let-values()" "(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))" "(let-values(((c4_2)" -"(let-values(((in_27) in_5)" +"(let-values(((in_28) in_5)" "((source_37)(read-config-source config_15)))" -"(read-char-or-special in_27 special1.1 source_37))))" +"(read-char-or-special in_28 special1.1 source_37))))" "(let-values(((tmp_56) c4_2))" " (if (equal? tmp_56 '#\\\")" "(let-values()" @@ -54136,8 +54352,8 @@ static const char *startup_source = "(let-values(((bstr_4)" "(let-values(((in3_1) in_5)" "((no-wrap-config4_0) no-wrap-config_0)" -"((temp5_8) '|byte string|))" -"(read-string5.1 temp5_8 #t in3_1 no-wrap-config4_0))))" +"((temp5_9) '|byte string|))" +"(read-string5.1 temp5_9 #t in3_1 no-wrap-config4_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" @@ -54147,84 +54363,102 @@ static const char *startup_source = "(let-values(((in6_2) in_5)" "((config7_2) config_15)" "((c48_0) c4_2)" -" ((temp9_6) \"expected `\\\"` after `~a`\")" +" ((temp9_7) \"expected `\\\"` after `~a`\")" "((temp10_7)" "(let-values(((accum-str11_0) accum-str_9)" "((config12_3) config_15))" "(accum-string-get!6.1 #f #f accum-str11_0 config12_3))))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c48_0" " #t" " #f" " #f" +" #f" +" #f" " in6_2" " config7_2" -" temp9_6" +" temp9_7" "(list temp10_7)))))))))" "(let-values()" -"(let-values(((in13_1) in_5)" -"((config14_1) config_15)" +"(let-values(((in13_2) in_5)" +"((config14_2) config_15)" "((c315_0) c3_8)" -" ((temp16_6) \"expected `\\\"` or `#` after `~a`\")" +" ((temp16_8) \"expected `\\\"` or `#` after `~a`\")" "((temp17_4)" "(let-values(((accum-str18_3) accum-str_9)((config19_2) config_15))" "(accum-string-get!6.1 #f #f accum-str18_3 config19_2))))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c315_0" " #t" " #f" " #f" -" in13_1" -" config14_1" -" temp16_6" +" #f" +" #f" +" in13_2" +" config14_2" +" temp16_8" "(list temp17_4)))))))))" "(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_3) \"`~a` not enabled\")" +" ((temp54_4) \"`~a` not enabled\")" "((extend-str55_0) extend-str_0))" -"(reader-error10.1 #f #f #f #f #f #f in52_0 config53_1 temp54_3(list extend-str55_0)))))" +"(reader-error12.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" in52_0" +" config53_1" +" temp54_4" +"(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()" -"(let-values(((in56_0) in_24)" +"(let-values(((in56_0) in_25)" "((config57_1) config_24)" "((mod-path-wrapped58_0) mod-path-wrapped_0)" -" ((temp59_3) \"expected a datum after `~a`, found end-of-file\")" +" ((temp59_5) \"expected a datum after `~a`, found end-of-file\")" "((extend-str60_0) extend-str_0))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " mod-path-wrapped58_0" " #t" " #f" " #f" +" #f" +" #f" " in56_0" " config57_1" -" temp59_3" +" temp59_5" "(list extend-str60_0))))" "(void))" -"(let-values(((temp47_2)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))" +"(let-values(((temp47_1)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))" "((read-recur48_0) read-recur_0)" -"((in49_1) in_24)" -"((config50_1) config_24)" +"((in49_0) in_25)" +"((config50_0) config_24)" "((mod-path-wrapped51_0) mod-path-wrapped_0))" "(read-extension44.1" " #f" @@ -54235,51 +54469,63 @@ static const char *startup_source = " #f" " #f" " #f" -" temp47_2" +" temp47_1" " read-recur48_0" -" in49_1" -" config50_1)))))))))" +" in49_0" +" config50_0)))))))))" "(define-values" "(read-extension-lang7.1)" -"(lambda(get-info?1_0 get-info?2_0 read-recur3_0 dispatch-c4_1 in5_3 config6_2)" +"(lambda(get-info?1_0 get-info?2_0 read-recur3_0 dispatch-c4_1 in5_2 config6_1)" "(begin" " 'read-extension-lang7" "(let-values(((read-recur_1) read-recur3_0))" "(let-values(((dispatch-c_3) dispatch-c4_1))" -"(let-values(((in_56) in5_3))" -"(let-values(((config_51) config6_2))" +"(let-values(((in_55) in5_2))" +"(let-values(((config_52) config6_1))" "(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_56 config_51)))" -"(let-values(((c_92)" -"(let-values(((in_14) in_56)((source_18)(read-config-source config_51)))" -"(read-char-or-special in_14 special1.1 source_18))))" +"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_55 config_52)))" +"(let-values(((c_91)" +"(let-values(((in_14) in_55)((source_17)(read-config-source config_52)))" +"(read-char-or-special in_14 special1.1 source_17))))" "(begin" -"(if(char=? c_92 '#\\space)" +"(if(char=? c_91 '#\\space)" "(void)" "(let-values()" -"(let-values(((in67_1) in_56)" -"((config68_1) config_51)" -" ((temp69_2) \"expected a single space after `~a`\")" +"(let-values(((in67_1) in_55)" +"((config68_1) config_52)" +" ((temp69_1) \"expected a single space after `~a`\")" "((extend-str70_0) extend-str_1))" -"(reader-error10.1 #f #f #f #f #f #f in67_1 config68_1 temp69_2(list extend-str70_0)))))" +"(reader-error12.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" in67_1" +" config68_1" +" temp69_1" +"(list extend-str70_0)))))" "(let-values(((extend-str61_0) extend-str_1)" "((read-recur62_0) read-recur_1)" -"((in63_0) in_56)" -"((config64_0) config_51)" -"((temp65_5) '|#lang|)" +"((in63_1) in_55)" +"((config64_1) config_52)" +"((temp65_3) '|#lang|)" "((get-info?66_0) get-info?_0))" "(read-lang29.1" " get-info?66_0" " #t" " #f" " #f" -" temp65_5" +" temp65_3" " extend-str61_0" " read-recur62_0" -" in63_0" -" config64_0))))))))))))))" +" in63_1" +" config64_1))))))))))))))" "(define-values" "(read-extension-#!16.1)" "(lambda(get-info?10_0 get-info?11_0 read-recur12_0 dispatch-c13_0 in14_2 config15_3)" @@ -54287,27 +54533,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_57) in14_2))" -"(let-values(((config_52) config15_3))" +"(let-values(((in_56) in14_2))" +"(let-values(((config_53) config15_3))" "(let-values(((get-info?_1)(if get-info?11_0 get-info?10_0 #f)))" "(let-values()" -"(let-values(((c_104)" -"(let-values(((in_58) in_57)((source_38)(read-config-source config_52)))" -"(read-char-or-special in_58 special1.1 source_38))))" +"(let-values(((c_100)" +"(let-values(((in_57) in_56)((source_38)(read-config-source config_53)))" +"(read-char-or-special in_57 special1.1 source_38))))" "(begin" -"(if(char-lang-nonsep? c_104)" +"(if(char-lang-nonsep? c_100)" "(void)" "(let-values()" -"(let-values(((in78_0) in_57)" -"((config79_0) config_52)" -"((temp80_5)" -"(if(char? c_104)(string dispatch-c_4 '#\\! c_104)(string dispatch-c_4 '#\\!))))" -"(bad-syntax-error18.1 #f #f in78_0 config79_0 temp80_5))))" -"(let-values(((temp71_3)(string dispatch-c_4 '#\\!))" +"(let-values(((in78_0) in_56)" +"((config79_0) config_53)" +"((temp80_4)" +"(if(char? c_100)(string dispatch-c_4 '#\\! c_100)(string dispatch-c_4 '#\\!))))" +"(bad-syntax-error20.1 #f #f in78_0 config79_0 temp80_4))))" +"(let-values(((temp71_2)(string dispatch-c_4 '#\\!))" "((read-recur72_0) read-recur_2)" -"((in73_1) in_57)" -"((config74_0) config_52)" -"((c75_0) c_104)" +"((in73_0) in_56)" +"((config74_0) config_53)" +"((c75_0) c_100)" "((temp76_1) '|#!|)" "((get-info?77_0) get-info?_1))" "(read-lang29.1" @@ -54316,9 +54562,9 @@ static const char *startup_source = " c75_0" " #t" " temp76_1" -" temp71_3" +" temp71_2" " read-recur72_0" -" in73_1" +" in73_0" " config74_0)))))))))))))" "(define-values" "(read-lang29.1)" @@ -54327,24 +54573,26 @@ 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_21) in27_1))" -"(let-values(((config_35) config28_2))" -"(let-values(((init-c_13)(if init-c22_0 init-c19_0 #f)))" +"(let-values(((in_58) in27_1))" +"(let-values(((config_54) config28_2))" +"(let-values(((init-c_14)(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_28) who21_0))" "(let-values()" "(let-values((()" "(begin" -"(if(if(check-parameter 1/read-accept-reader config_35)" -"(check-parameter 1/read-accept-lang config_35)" +"(if(if(check-parameter 1/read-accept-reader config_54)" +"(check-parameter 1/read-accept-lang config_54)" " #f)" "(void)" "(let-values()" -"(let-values(((in88_0) in_21)" -"((config89_1) config_35)" +"(let-values(((in88_0) in_58)" +"((config89_0) config_54)" " ((temp90_1) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -54352,62 +54600,64 @@ static const char *startup_source = " #f" " #f" " in88_0" -" config89_1" +" config89_0" " temp90_1" "(list extend-str91_0)))))" "(values))))" -"(let-values(((line_10 col_9 pos_122)(port-next-location in_21)))" -"(let-values(((accum-str_10)(accum-string-init! config_35)))" +"(let-values(((line_10 col_9 pos_121)(port-next-location in_58)))" +"(let-values(((accum-str_10)(accum-string-init! config_54)))" "(let-values((()" "(begin" -"(if init-c_13" -"(let-values()(accum-string-add! accum-str_10 init-c_13))" +"(if init-c_14" +"(let-values()(accum-string-add! accum-str_10 init-c_14))" "(void))" "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_113)" "(lambda()" "(begin" " 'loop" "(let-values(((c_9)" -"(let-values(((in_59) in_21)" -"((skip-count_15) 0)" -"((source_30)" +"(let-values(((in_59) in_58)" +"((skip-count_14) 0)" +"((source_39)" "(read-config-source" -" config_35)))" -"(let-values(((c_105)" +" config_54)))" +"(let-values(((c_101)" "(peek-char-or-special" " in_59" -" skip-count_15" +" skip-count_14" " 'special" -" source_30)))" -"(if(eq? c_105 'special)" +" source_39)))" +"(if(eq? c_101 'special)" "(special1.1 'special)" -" c_105)))))" +" c_101)))))" "(if(eof-object? c_9)" "(let-values()(void))" "(if(not(char? c_9))" "(let-values()" "(begin" -"(consume-char/special in_21 config_35 c_9)" -"(let-values(((in92_1) in_21)" -"((config93_1) config_35)" -"((c94_1) c_9)" -"((temp95_2)" +"(consume-char/special in_58 config_54 c_9)" +"(let-values(((in92_0) in_58)" +"((config93_0) config_54)" +"((c94_0) c_9)" +"((temp95_1)" " \"found non-character while reading `#~a`\")" "((extend-str96_0)" " extend-str_2))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" -" c94_1" +" c94_0" " #t" " #f" " #f" -" in92_1" -" config93_1" -" temp95_2" +" #f" +" #f" +" in92_0" +" config93_0" +" temp95_1" "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" @@ -54418,49 +54668,53 @@ static const char *startup_source = "(char=? '#\\/ c_9)))" "(let-values()" "(begin" -"(consume-char in_21 c_9)" +"(consume-char in_58 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_115)))" +"(loop_113)))" "(let-values()" "(begin" -"(consume-char in_21 c_9)" -"(let-values(((in97_0) in_21)" -"((config98_0) config_35)" -"((temp99_3)" +"(consume-char in_58 c_9)" +"(let-values(((in97_1) in_58)" +"((config98_1) config_54)" +"((temp99_2)" "(string-append" " \"expected only alphanumeric, `-`, `+`, `_`, or `/`\"" " \" characters for `~a`, found `~a`\"))" "((extend-str100_0)" " extend-str_2)" "((c101_0) c_9))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in97_0" -" config98_0" -" temp99_3" +" #f" +" #f" +" in97_1" +" config98_1" +" temp99_2" "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_115))" +" loop_113))" "(values))))" "(let-values(((lang-str_0)" -"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_35))" +"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_54))" "(accum-string-get!6.1 #f #f accum-str102_0 config103_0))))" "(let-values((()" "(begin" " (if (equal? lang-str_0 \"\")" "(let-values()" -"(let-values(((in104_0) in_21)" -"((config105_0) config_35)" -"((temp106_2)" +"(let-values(((in104_0) in_58)" +"((config105_0) config_54)" +"((temp106_3)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -54469,7 +54723,7 @@ static const char *startup_source = " #f" " in104_0" " config105_0" -" temp106_2" +" temp106_3" "(list extend-str107_0))))" "(void))" "(values))))" @@ -54477,12 +54731,14 @@ static const char *startup_source = "(begin" "(if(char=? '#\\/(string-ref lang-str_0 0))" "(let-values()" -"(let-values(((in108_0) in_21)" -"((config109_0) config_35)" -"((temp110_3)" +"(let-values(((in108_0) in_58)" +"((config109_0) config_54)" +"((temp110_4)" " \"expected a name that does not start `/` after `~a`\")" "((extend-str111_0) extend-str_2))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -54491,7 +54747,7 @@ static const char *startup_source = " #f" " in108_0" " config109_0" -" temp110_3" +" temp110_4" "(list extend-str111_0))))" "(void))" "(values))))" @@ -54501,12 +54757,14 @@ static const char *startup_source = " '#\\/" "(string-ref lang-str_0(sub1(string-length lang-str_0))))" "(let-values()" -"(let-values(((in112_0) in_21)" -"((config113_0) config_35)" -"((temp114_3)" +"(let-values(((in112_0) in_58)" +"((config113_0) config_54)" +"((temp114_2)" " \"expected a name that does not end `/` after `~a`\")" "((extend-str115_0) extend-str_2))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -54515,7 +54773,7 @@ static const char *startup_source = " #f" " in112_0" " config113_0" -" temp114_3" +" temp114_2" "(list extend-str115_0))))" "(void))" "(values))))" @@ -54526,8 +54784,8 @@ 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_21)" -"((temp85_2)(reading-at config_35 line_10 col_9 pos_122))" +"((in84_0) in_58)" +"((temp85_2)(reading-at config_54 line_10 col_9 pos_121))" "((get-info?86_0) get-info?_2)" "((who87_0) who_28))" "(read-extension44.1" @@ -54541,30 +54799,30 @@ static const char *startup_source = " #t" " reader-path82_0" " read-recur83_0" -" in84_1" +" in84_0" " temp85_2))))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" -"(lambda(c_106)" +"(lambda(c_102)" "(begin" -"(if(<(char->integer c_106) 128)" -"(let-values(((or-part_281)(char-alphabetic? c_106)))" +"(if(<(char->integer c_102) 128)" +"(let-values(((or-part_281)(char-alphabetic? c_102)))" "(if or-part_281" " or-part_281" -"(let-values(((or-part_364)(char-numeric? c_106)))" -"(if or-part_364" -" or-part_364" -"(let-values(((or-part_305)(char=? '#\\- c_106)))" +"(let-values(((or-part_363)(char-numeric? c_102)))" +"(if or-part_363" +" or-part_363" +"(let-values(((or-part_305)(char=? '#\\- c_102)))" "(if or-part_305" " or-part_305" -"(let-values(((or-part_184)(char=? '#\\+ c_106)))" -"(if or-part_184 or-part_184(char=? '#\\_ c_106)))))))))" +"(let-values(((or-part_184)(char=? '#\\+ c_102)))" +"(if or-part_184 or-part_184(char=? '#\\_ c_102)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" -"(lambda(already_0 wanted_0 in_60 config_53)" +"(lambda(already_0 wanted_0 in_60 config_55)" "(begin" -"(let-values(((accum-str_11)(accum-string-init! config_53)))" +"(let-values(((accum-str_11)(accum-string-init! config_55)))" "(begin" "(let-values(((lst_315) already_0))" "(begin" @@ -54574,14 +54832,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_316)" -"(let-values(((c_107)(unsafe-car lst_316))((rest_175)(unsafe-cdr lst_316)))" +"(let-values(((c_103)(unsafe-car lst_316))((rest_175)(unsafe-cdr lst_316)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(accum-string-add! accum-str_11 c_107))" +"(accum-string-add! accum-str_11 c_103))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_278 rest_175)(values))))" @@ -54598,25 +54856,25 @@ static const char *startup_source = "(let-values()" "(let-values(((c_26)" "(let-values(((in_61) in_60)" -"((source_39)(read-config-source config_53)))" -"(read-char-or-special in_61 special1.1 source_39))))" +"((source_40)(read-config-source config_55)))" +"(read-char-or-special in_61 special1.1 source_40))))" "(begin" "(if(char? c_26)(let-values()(accum-string-add! accum-str_11 c_26))(void))" "(if(eqv? c_26(car wanted_1))" "(void)" "(let-values()" "(let-values(((in118_0) in_60)" -"((config119_0) config_53)" +"((config119_0) config_55)" "((temp120_3)" "(let-values(((accum-str122_0) accum-str_11)" -"((config123_0) config_53))" +"((config123_0) config_55))" "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" "((c121_0) c_26))" -"(bad-syntax-error18.1 c121_0 #t in118_0 config119_0 temp120_3))))" +"(bad-syntax-error20.1 c121_0 #t in118_0 config119_0 temp120_3))))" "(loop_12(cdr wanted_1))))))))))" " loop_12)" " wanted_0)" -"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_53))" +"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_55))" "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))" "(define-values" "(read-extension44.1)" @@ -54638,31 +54896,32 @@ static const char *startup_source = "(let-values(((mod-path-datum_0) mod-path-datum40_0))" "(let-values(((read-recur_4) read-recur41_0))" "(let-values(((in_62) in42_2))" -"(let-values(((config_54) config43_1))" +"(let-values(((config_56) config43_1))" "(let-values(((mod-path-wrapped_1)" "(if mod-path-wrapped37_0" " mod-path-wrapped33_0" -"((read-config-coerce config_54)" +"((read-config-coerce config_56)" " #t" " mod-path-datum_0" -"(port+config->srcloc in_62 config_54)))))" +"(let-values(((in124_0) in_62)((config125_0) config_56))" +"(port+config->srcloc49.1 #f #f in124_0 config125_0))))))" "(let-values(((get-info?_3)(if get-info?38_0 get-info?34_0 #f)))" "(let-values(((who_29)(if who39_0 who35_0 '|#reader|)))" "(let-values()" -"(let-values((()(begin(force-parameters! config_54)(values))))" +"(let-values((()(begin(force-parameters! config_56)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_365)" +"(let-values(((or-part_61)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" -"(if((read-config-module-declared? config_54)" +"(if((read-config-module-declared? config_56)" " try-first-mod-path_0)" " mod-path_28" " #f))" " #f)))" -"(if or-part_365 or-part_365(guard_0 mod-path-datum_0)))))" -"(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" -"(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" +"(if or-part_61 or-part_61(guard_0 mod-path-datum_0)))))" +"(let-values(((for-syntax?_8)(read-config-for-syntax? config_56)))" +"(let-values(((dynamic-require_2)(read-config-dynamic-require config_56)))" "(let-values(((no-value_0)(gensym)))" "(let-values(((extension_0)" "(if get-info?_3" @@ -54685,15 +54944,15 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_54)" +" config_56)" "(let-values()" "(extension_0" -"(read-config-source config_54)" +"(read-config-source config_56)" " in_62" " mod-path-wrapped_1" -"(read-config-line config_54)" -"(read-config-col config_54)" -"(read-config-pos config_54)))))" +"(read-config-line config_56)" +"(read-config-col config_56)" +"(read-config-pos config_56)))))" "(if(procedure-arity-includes? extension_0 2)" "(let-values()" "(with-continuation-mark" @@ -54703,10 +54962,10 @@ static const char *startup_source = " #f" " parameterization-key)" " current-read-config" -" config_54)" +" config_56)" "(let-values()" "(extension_0" -"(read-config-source config_54)" +"(read-config-source config_56)" " in_62))))" "(let-values()" "(raise-argument-error" @@ -54721,14 +54980,14 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_54)" +" config_56)" "(let-values()" "(extension_0" " in_62" " mod-path-wrapped_1" -"(read-config-line config_54)" -"(read-config-col config_54)" -"(read-config-pos config_54)))))" +"(read-config-line config_56)" +"(read-config-col config_56)" +"(read-config-pos config_56)))))" "(if get-info?_3" "(let-values()" "(raise-argument-error" @@ -54744,7 +55003,7 @@ static const char *startup_source = " #f" " parameterization-key)" " current-read-config" -" config_54)" +" config_56)" "(let-values()(extension_0 in_62))))" "(let-values()" "(raise-argument-error" @@ -54765,9 +55024,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_62 config_54))" +"(let-values()(read-recur_4 #f in_62 config_56))" "(let-values()" -"(coerce result-v_1 in_62 config_54))))))))))))))))))))))))))" +"(coerce result-v_1 in_62 config_56))))))))))))))))))))))))))" "(define-values" "(read-language/get-info)" "(lambda(read-one_3 in_2 config_7 fail-k_5)" @@ -54780,8 +55039,8 @@ 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_54) in_2)((source_40)(read-config-source l-config_0)))" -"(read-char-or-special in_54 special1.1 source_40))))" +"(let-values(((in_53) in_2)((source_41)(read-config-source l-config_0)))" +"(read-char-or-special in_53 special1.1 source_41))))" "(if(eqv? c2_6 '#\\l)" "(let-values()" "(let-values(((read-one1_0) read-one_3)" @@ -54802,28 +55061,28 @@ static const char *startup_source = "(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_44 config_55 prefix_7 c_49)" +"(lambda(in_51 config_57 prefix_7 c_49)" "(begin" "(let-values(((add-prefix_0)" "(lambda(s_430)" "(begin" " 'add-prefix" " (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_430) s_430)))))" -"(let-values(((in11_2) in_44)" -"((config12_4) config_55)" +"(let-values(((in11_2) in_51)" +"((config12_4) config_57)" "((c13_3) c_49)" "((temp14_8) 'read-language)" -"((temp15_8)" +"((temp15_7)" "(string-append" " \"expected (after whitespace and comments) `#lang ` or `#!` followed\"" " \" immediately by a language name, found ~a\"))" -"((temp16_7)" +"((temp16_9)" "(if(eof-object? c_49)" " (let-values () (add-prefix_0 \"end-of-file\"))" "(if(not(char? c_49))" " (let-values () (add-prefix_0 \"non-character\"))" " (let-values () (format \"`~a~a`\" prefix_7 c_49))))))" -"(reader-error10.1 #f #f c13_3 #t temp14_8 #t in11_2 config12_4 temp15_8(list temp16_7)))))))" +"(reader-error12.1 #f #f c13_3 #t #f #f temp14_8 #t in11_2 config12_4 temp15_7(list temp16_9)))))))" "(define-values" "(read30.1)" "(lambda(coerce12_1" @@ -54854,17 +55113,17 @@ static const char *startup_source = " source21_0" " wrap1_0" " wrap15_0" -" in29_2)" +" in29_1)" "(begin" " 'read30" -"(let-values(((in_12) in29_2))" +"(let-values(((in_12) in29_1))" "(let-values(((wrap_7)(if wrap15_0 wrap1_0 #f)))" -"(let-values(((init-c_14)(if init-c16_0 init-c2_0 #f)))" +"(let-values(((init-c_15)(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_41)(if source21_0 source7_0 #f)))" +"(let-values(((source_42)(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)))" @@ -54874,11 +55133,11 @@ static const char *startup_source = "(let-values(((keep-comment?_3)" "(if keep-comment?28_0 keep-comment?14_1 recursive?_0)))" "(let-values()" -"(let-values(((config_56)" +"(let-values(((config_58)" "(let-values(((c1_30)(if recursive?_0(current-read-config) #f)))" "(if c1_30" -"((lambda(config_57)" -"(let-values(((config52_0) config_57)" +"((lambda(config_59)" +"(let-values(((config52_0) config_59)" "((for-syntax?53_0) for-syntax?_9)" "((wrap54_1) wrap_7)" "((readtable55_0) readtable_3)" @@ -54896,9 +55155,9 @@ static const char *startup_source = " config52_0)))" " c1_30)" "(let-values()" -"(let-values(((readtable59_0) readtable_3)" -"((next-readtable60_0) next-readtable_3)" -"((source61_0) source_41)" +"(let-values(((readtable59_1) readtable_3)" +"((next-readtable60_1) next-readtable_3)" +"((source61_0) source_42)" "((for-syntax?62_0) for-syntax?_9)" "((wrap63_0) wrap_7)" "((read-compiled64_0) read-compiled_2)" @@ -54920,36 +55179,36 @@ static const char *startup_source = " #t" " module-declared?66_0" " #t" -" next-readtable60_0" +" next-readtable60_1" " #t" " read-compiled64_0" " #t" -" readtable59_0" +" readtable59_1" " #t" " source61_0" " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_239)(read-one init-c_14 in_12 config_56)))" +"(let-values(((v_242)(read-one init-c_15 in_12 config_58)))" "(if(if(let-values(((or-part_93)(not recursive?_0)))" "(if or-part_93 or-part_93 local-graph?_1))" -"(read-config-state-graph(read-config-st config_56))" +"(read-config-state-graph(read-config-st config_58))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" -" config_56" -"(lambda()(make-reader-graph v_239))))" +" config_58" +"(lambda()(make-reader-graph v_242))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_239))(not(1/special-comment? v_239)) #f)" +"(if(not(eof-object? v_242))(not(1/special-comment? v_242)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_56)(make-placeholder v_239)))" -"(let-values() v_239))))))))))))))))))))))))" +"(begin(get-graph-hash config_58)(make-placeholder v_242)))" +"(let-values() v_242))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -54966,11 +55225,11 @@ static const char *startup_source = " read-compiled42_0" " wrap34_0" " wrap41_0" -" in47_1" +" in47_2" " fail-k48_0)" "(begin" " 'read-language49" -"(let-values(((in_63) in47_1))" +"(let-values(((in_63) in47_2))" "(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)))" @@ -54980,9 +55239,9 @@ static const char *startup_source = "(let-values(((coerce_3)(if coerce45_0 coerce38_0 #f)))" "(let-values(((coerce-key_3)(if coerce-key46_0 coerce-key39_0 #f)))" "(let-values()" -"(let-values(((config_58)" -"(let-values(((temp70_2) #f)" -"((temp71_4) #f)" +"(let-values(((config_60)" +"(let-values(((temp70_3) #f)" +"((temp71_3) #f)" "((for-syntax?72_0) for-syntax?_10)" "((wrap73_0) wrap_8)" "((read-compiled74_0) read-compiled_3)" @@ -55003,107 +55262,107 @@ static const char *startup_source = " #f" " module-declared?76_0" " #t" -" temp71_4" +" temp71_3" " #t" " read-compiled74_0" " #t" -" temp70_2" +" temp70_3" " #t" " #f" " #f" " wrap73_0" " #t))))" -"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_58 #f)))" -"(read-language/get-info read-undotted in_63 config_58 fail-k_6))))))))))))))))" +"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_60 #f)))" +"(read-language/get-info read-undotted in_63 config_60 fail-k_6))))))))))))))))" "(define-values" "(read-one)" -"(lambda(init-c_15 in_64 config_59)" +"(lambda(init-c_16 in_64 config_61)" "(begin" -"(if(not(check-parameter 1/read-cdot config_59))" -"(let-values()(read-undotted init-c_15 in_64 config_59))" -"(if(check-parameter 1/read-cdot config_59)" +"(if(not(check-parameter 1/read-cdot config_61))" +"(let-values()(read-undotted init-c_16 in_64 config_61))" +"(if(check-parameter 1/read-cdot config_61)" "(let-values()" -"(let-values(((line_11 col_10 pos_123)(port-next-location in_64)))" -"(let-values(((v_181)(read-undotted init-c_15 in_64 config_59)))" +"(let-values(((line_11 col_10 pos_122)(port-next-location in_64)))" +"(let-values(((v_181)(read-undotted init-c_16 in_64 config_61)))" "(if(1/special-comment? v_181)" "(let-values() v_181)" "(let-values()" -"((letrec-values(((loop_116)" -"(lambda(v_240)" +"((letrec-values(((loop_114)" +"(lambda(v_243)" "(begin" " 'loop" -"(let-values(((c_108)" +"(let-values(((c_104)" "(let-values(((in_65) in_64)" -"((skip-count_16) 0)" -"((source_42)(read-config-source config_59)))" -"(let-values(((c_109)" +"((skip-count_15) 0)" +"((source_43)(read-config-source config_61)))" +"(let-values(((c_105)" "(peek-char-or-special" " in_65" -" skip-count_16" +" skip-count_15" " 'special" -" source_42)))" -"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" -"(let-values(((ec_9)(effective-char c_108 config_59)))" +" source_43)))" +"(if(eq? c_105 'special)(special1.1 'special) c_105)))))" +"(let-values(((ec_9)(effective-char c_104 config_61)))" "(if(not(char? ec_9))" -"(let-values() v_240)" +"(let-values() v_243)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_108)(loop_116 v_240)))" +"(let-values()(begin(consume-char in_64 c_104)(loop_114 v_243)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" "(port-next-location in_64)))" -"(let-values((()(begin(consume-char in_64 c_108)(values))))" +"(let-values((()(begin(consume-char in_64 c_104)(values))))" "(let-values(((cdot_0)" "(wrap" " '#%dot" " in_64" "(reading-at" -" config_59" +" config_61" " dot-line_2" " dot-col_2" " dot-pos_5)" " '#\\.)))" "(let-values(((post-v_0)" -"(read-undotted #f in_64 config_59)))" -"(loop_116" +"(read-undotted #f in_64 config_61)))" +"(loop_114" "(wrap" -"(list cdot_0 v_240 post-v_0)" +"(list cdot_0 v_243 post-v_0)" " in_64" -"(reading-at config_59 line_11 col_10 pos_123)" +"(reading-at config_61 line_11 col_10 pos_122)" " '#\\.)))))))" -"(let-values() v_240))))))))))" -" loop_116)" +"(let-values() v_243))))))))))" +" loop_114)" " v_181))))))" "(void))))))" "(define-values" "(read-undotted)" -"(lambda(init-c_16 in_62 config_54)" +"(lambda(init-c_17 in_62 config_56)" "(begin" -"(let-values(((c_110)(read-char/skip-whitespace-and-comments init-c_16 read-one in_62 config_54)))" -"(let-values(((line_12 col_11 pos_124)(port-next-location* in_62 c_110)))" -"(if(eof-object? c_110)" +"(let-values(((c_106)(read-char/skip-whitespace-and-comments init-c_17 read-one in_62 config_56)))" +"(let-values(((line_12 col_11 pos_123)(port-next-location* in_62 c_106)))" +"(if(eof-object? c_106)" "(let-values() eof)" -"(if(not(char? c_110))" +"(if(not(char? c_106))" "(let-values()" -"(let-values(((v_241)(special-value c_110)))" -"(if(1/special-comment? v_241)" -"(let-values()(if(read-config-keep-comment? config_54) v_241(read-undotted #f in_62 config_54)))" -"(let-values()(coerce v_241 in_62(reading-at config_54 line_12 col_11 pos_124))))))" -"(let-values(((c2_8)(readtable-handler config_54 c_110)))" +"(let-values(((v_244)(special-value c_106)))" +"(if(1/special-comment? v_244)" +"(let-values()(if(read-config-keep-comment? config_56) v_244(read-undotted #f in_62 config_56)))" +"(let-values()(coerce v_244 in_62(reading-at config_56 line_12 col_11 pos_123))))))" +"(let-values(((c2_8)(readtable-handler config_56 c_106)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_242)(readtable-apply handler_3 c_110 in_62 config_54 line_12 col_11 pos_124)))" -"(retry-special-comment v_242 in_62 config_54)))" +"(let-values(((v_245)(readtable-apply handler_3 c_106 in_62 config_56 line_12 col_11 pos_123)))" +"(retry-special-comment v_245 in_62 config_56)))" " c2_8)" "(let-values()" -"(let-values(((ec_10)(effective-char c_110 config_54)))" +"(let-values(((ec_10)(effective-char c_106 config_56)))" "(let-values((()" "(begin" -"(if(not(char-closer? ec_10 config_54))" -"(let-values()(track-indentation! config_54 line_12 col_11))" +"(if(not(char-closer? ec_10 config_56))" +"(let-values()(track-indentation! config_56 line_12 col_11))" "(void))" "(values))))" -"(let-values(((r-config_0)(reading-at(discard-comment config_54) line_12 col_11 pos_124)))" +"(let-values(((r-config_0)(reading-at(discard-comment config_56) line_12 col_11 pos_123)))" "(let-values(((tmp_57) ec_10))" "(let-values(((index_4)" "(if(char? tmp_57)" @@ -55162,12 +55421,12 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_243)" -"(let-values(((c79_1) c_110)" +"(let-values(((v_246)" +"(let-values(((c79_1) c_106)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_328)(eq? c_110 ec_10)))" +"(if(let-values(((or-part_328)(eq? c_106 ec_10)))" "(if or-part_328" " or-part_328" "(if(<(char->integer ec_10) 128)" @@ -55183,27 +55442,29 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_243 in_62 config_54)))" -"(let-values()(read-dispatch c_110 in_62 r-config_0 config_54)))" +"(retry-special-comment v_246 in_62 config_56)))" +"(let-values()(read-dispatch c_106 in_62 r-config_0 config_56)))" "(if(unsafe-fx< index_4 3)" -" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_110 in_62 r-config_0))" +" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_62 r-config_0))" "(if(unsafe-fx< index_4 4)" "(let-values()" -"(if(check-parameter 1/read-accept-quasiquote config_54)" +"(if(check-parameter 1/read-accept-quasiquote config_56)" "(let-values()" "(read-quote" " read-one" " 'quasiquote" " \"quasiquoting \\\"`\\\"\"" -" c_110" +" c_106" " in_62" " r-config_0))" "(let-values()" "(let-values(((in83_0) in_62)" "((r-config84_0) r-config_0)" " ((temp85_3) \"illegal use of `~a`\")" -"((c86_0) c_110))" -"(reader-error10.1" +"((c86_0) c_106))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55216,21 +55477,21 @@ static const char *startup_source = "(list c86_0))))))" "(if(unsafe-fx< index_4 5)" "(let-values()" -"(if(check-parameter 1/read-accept-quasiquote config_54)" +"(if(check-parameter 1/read-accept-quasiquote config_56)" "(let-values()" "(let-values(((c2_9)" "(let-values(((in_66) in_62)" -"((skip-count_17) 0)" -"((source_43)(read-config-source config_54)))" -"(let-values(((c_111)" +"((skip-count_16) 0)" +"((source_44)(read-config-source config_56)))" +"(let-values(((c_107)" "(peek-char-or-special" " in_66" -" skip-count_17" +" skip-count_16" " 'special" -" source_43)))" -"(if(eq? c_111 'special)" +" source_44)))" +"(if(eq? c_107 'special)" "(special1.1 'special)" -" c_111)))))" +" c_107)))))" "(if(eqv? c2_9 '#\\@)" "(begin" "(consume-char in_62 c2_9)" @@ -55238,22 +55499,24 @@ static const char *startup_source = " read-one" " 'unquote-splicing" " \"unquoting `,@`\"" -" c_110" +" c_106" " in_62" " r-config_0))" "(read-quote" " read-one" " 'unquote" " \"unquoting `,`\"" -" c_110" +" c_106" " in_62" " r-config_0))))" "(let-values()" "(let-values(((in87_0) in_62)" "((r-config88_0) r-config_0)" " ((temp89_3) \"illegal use of `~a`\")" -"((c90_0) c_110))" -"(reader-error10.1" +"((c90_0) c_106))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55298,10 +55561,12 @@ static const char *startup_source = "(let-values()" "(let-values(((in98_0) in_62)" "((r-config99_0) r-config_0)" -" ((temp100_2) \"~a\")" +" ((temp100_3) \"~a\")" "((temp101_3)" -"(indentation-unexpected-closer-message ec_10 c_110 r-config_0)))" -"(reader-error10.1" +"(indentation-unexpected-closer-message ec_10 c_106 r-config_0)))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55310,24 +55575,24 @@ static const char *startup_source = " #f" " in98_0" " r-config99_0" -" temp100_2" +" temp100_3" "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_366)" -"(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_366" -" or-part_366" -"(check-parameter 1/read-square-bracket-with-tag config_54)))" +"(if(let-values(((or-part_364)" +"(check-parameter 1/read-square-bracket-as-paren config_56)))" +"(if or-part_364" +" or-part_364" +"(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(wrap" "(let-values(((read-one102_0) read-one)" "((ec103_0) ec_10)" -"((temp104_4) '#\\[)" -"((temp105_2) '#\\])" +"((temp104_3) '#\\[)" +"((temp105_3) '#\\])" "((in106_0) in_62)" "((r-config107_0) r-config_0)" -"((temp108_2) #t))" +"((temp108_1) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -55335,14 +55600,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp108_2" +" temp108_1" " #t" " #f" " #f" " read-one102_0" " ec103_0" -" temp104_4" -" temp105_2" +" temp104_3" +" temp105_3" " in106_0" " r-config107_0))" " in_62" @@ -55352,8 +55617,10 @@ static const char *startup_source = "(let-values(((in109_0) in_62)" "((r-config110_0) r-config_0)" " ((temp111_1) \"illegal use of `~a`\")" -"((c112_0) c_110))" -"(reader-error10.1" +"((c112_0) c_106))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55365,37 +55632,41 @@ static const char *startup_source = " temp111_1" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_367)" -"(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_367" -" or-part_367" -"(check-parameter 1/read-square-bracket-with-tag config_54)))" +"(if(let-values(((or-part_365)" +"(check-parameter 1/read-square-bracket-as-paren config_56)))" +"(if or-part_365" +" or-part_365" +"(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" -"(let-values(((in113_0) in_62)" +"(let-values(((in113_1) in_62)" "((r-config114_0) r-config_0)" " ((temp115_1) \"~a\")" -"((temp116_0)" +"((temp116_1)" "(indentation-unexpected-closer-message" " ec_10" -" c_110" +" c_106" " r-config_0)))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " #f" " #f" " #f" " #f" -" in113_0" +" #f" +" #f" +" in113_1" " r-config114_0" " temp115_1" -"(list temp116_0))))" +"(list temp116_1))))" "(let-values()" "(let-values(((in117_0) in_62)" "((r-config118_0) r-config_0)" " ((temp119_2) \"illegal use of `~a`\")" -"((c120_0) c_110))" -"(reader-error10.1" +"((c120_0) c_106))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55408,11 +55679,11 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_368)" -"(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_368" -" or-part_368" -"(check-parameter 1/read-curly-brace-with-tag config_54)))" +"(if(let-values(((or-part_366)" +"(check-parameter 1/read-curly-brace-as-paren config_56)))" +"(if or-part_366" +" or-part_366" +"(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(wrap" "(let-values(((read-one121_0) read-one)" @@ -55446,8 +55717,10 @@ static const char *startup_source = "(let-values(((in128_0) in_62)" "((r-config129_0) r-config_0)" " ((temp130_2) \"illegal use of `~a`\")" -"((c131_0) c_110))" -"(reader-error10.1" +"((c131_0) c_106))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55460,11 +55733,11 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_369)" -"(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_369" -" or-part_369" -"(check-parameter 1/read-curly-brace-with-tag config_54)))" +"(if(let-values(((or-part_367)" +"(check-parameter 1/read-curly-brace-as-paren config_56)))" +"(if or-part_367" +" or-part_367" +"(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(let-values(((in132_0) in_62)" "((r-config133_0) r-config_0)" @@ -55472,9 +55745,11 @@ static const char *startup_source = "((temp135_2)" "(indentation-unexpected-closer-message" " ec_10" -" c_110" +" c_106" " r-config_0)))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55489,8 +55764,10 @@ static const char *startup_source = "(let-values(((in136_0) in_62)" "((r-config137_0) r-config_0)" " ((temp138_2) \"illegal use of `~a`\")" -"((c139_0) c_110))" -"(reader-error10.1" +"((c139_0) c_106))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55506,7 +55783,7 @@ static const char *startup_source = "(let-values(((in140_0) in_62)((r-config141_0) r-config_0))" "(read-string5.1 #f #f in140_0 r-config141_0)))" "(let-values()" -"(let-values(((c142_0) c_110)" +"(let-values(((c142_0) c_106)" "((in143_0) in_62)" "((r-config144_0) r-config_0)" "((temp145_2) 'symbol))" @@ -55520,39 +55797,40 @@ static const char *startup_source = " r-config144_0)))))))))))))))))))))))" "(define-values" "(read-dispatch)" -"(lambda(dispatch-c_5 in_67 config_5 orig-config_0)" +"(lambda(dispatch-c_5 in_67 config_62 orig-config_0)" "(begin" -"(let-values(((c_112)" -"(let-values(((in_68) in_67)((source_44)(read-config-source config_5)))" -"(read-char-or-special in_68 special1.1 source_44))))" -"(if(eof-object? c_112)" +"(let-values(((c_108)" +"(let-values(((in_68) in_67)((source_45)(read-config-source config_62)))" +"(read-char-or-special in_68 special1.1 source_45))))" +"(if(eof-object? c_108)" "(let-values()" "(let-values(((in146_0) in_67)" -"((config147_0) config_5)" -"((c148_0) c_112)" +"((config147_0) config_62)" +"((c148_0) c_108)" " ((temp149_1) \"bad syntax `~a`\")" "((dispatch-c150_0) dispatch-c_5))" -"(reader-error10.1 #f #f c148_0 #t #f #f in146_0 config147_0 temp149_1(list dispatch-c150_0))))" -"(if(not(char? c_112))" +"(reader-error12.1 #f #f c148_0 #t #f #f #f #f in146_0 config147_0 temp149_1(list dispatch-c150_0))))" +"(if(not(char? c_108))" "(let-values()" "(let-values(((in151_0) in_67)" -"((config152_0) config_5)" -"((c153_0) c_112)" +"((config152_0) config_62)" +"((c153_0) c_108)" " ((temp154_1) \"bad syntax `~a`\")" "((dispatch-c155_0) dispatch-c_5))" -"(reader-error10.1 #f #f c153_0 #t #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))" -"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_112)))" +"(reader-error12.1 #f #f c153_0 #t #f #f #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))" +"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_108)))" "(if c3_9" "((lambda(handler_4)" -"(let-values(((line_13)(read-config-line config_5)))" -"(let-values(((col_12)(read-config-col config_5)))" -"(let-values(((pos_125)(read-config-pos config_5)))" -"(let-values(((v_244)(readtable-apply handler_4 c_112 in_67 config_5 line_13 col_12 pos_125)))" -"(retry-special-comment v_244 in_67 orig-config_0))))))" +"(let-values(((line_13)(read-config-line config_62)))" +"(let-values(((col_12)(read-config-col config_62)))" +"(let-values(((pos_124)(read-config-pos config_62)))" +"(let-values(((v_247)" +"(readtable-apply handler_4 c_108 in_67 config_62 line_13 col_12 pos_124)))" +"(retry-special-comment v_247 in_67 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" -"(let-values(((tmp_58) c_112))" +"(let-values(((tmp_58) c_108))" "(let-values(((index_5)" "(if(char? tmp_58)" "(let-values(((codepoint_3)(char->integer tmp_58)))" @@ -55661,11 +55939,13 @@ static const char *startup_source = "(if(unsafe-fx< index_5 1)" "(let-values()" "(let-values(((in156_0) in_67)" -"((config157_0) config_5)" +"((config157_0) config_62)" " ((temp158_2) \"bad syntax `~a~a`\")" "((dispatch-c159_0) dispatch-c_5)" -"((c160_0) c_112))" -"(reader-error10.1" +"((c160_0) c_108))" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -55677,14 +55957,14 @@ static const char *startup_source = " temp158_2" "(list dispatch-c159_0 c160_0))))" "(if(unsafe-fx< index_5 2)" -"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_112 in_67 config_5))" +"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_108 in_67 config_62))" "(let-values()" "(let-values(((read-one161_0) read-one)" "((temp162_3) '#\\()" "((temp163_2) '#\\()" "((temp164_0) '#\\))" "((in165_0) in_67)" -"((config166_0) config_5))" +"((config166_0) config_62))" "(read-vector11.1" " #f" " #f" @@ -55699,14 +55979,14 @@ static const char *startup_source = "(if(unsafe-fx< index_5 5)" "(if(unsafe-fx< index_5 4)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_5)" +"(if(check-parameter 1/read-square-bracket-as-paren config_62)" "(let-values()" "(let-values(((read-one167_0) read-one)" "((temp168_0) '#\\[)" "((temp169_1) '#\\[)" "((temp170_1) '#\\])" "((in171_0) in_67)" -"((config172_0) config_5))" +"((config172_0) config_62))" "(read-vector11.1" " #f" " #f" @@ -55720,18 +56000,18 @@ static const char *startup_source = " config172_0)))" "(let-values()" "(let-values(((in173_0) in_67)" -"((config174_0) config_5)" -" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_112)))" -"(bad-syntax-error18.1 #f #f in173_0 config174_0 temp175_0)))))" +"((config174_0) config_62)" +" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_108)))" +"(bad-syntax-error20.1 #f #f in173_0 config174_0 temp175_0)))))" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_5)" +"(if(check-parameter 1/read-curly-brace-as-paren config_62)" "(let-values()" "(let-values(((read-one176_0) read-one)" "((temp177_0) '#\\{)" "((temp178_0) '#\\{)" "((temp179_0) '#\\})" "((in180_0) in_67)" -"((config181_0) config_5))" +"((config181_0) config_62))" "(read-vector11.1" " #f" " #f" @@ -55745,41 +56025,47 @@ static const char *startup_source = " config181_0)))" "(let-values()" "(let-values(((in182_0) in_67)" -"((config183_0) config_5)" -" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_112)))" -"(bad-syntax-error18.1 #f #f in182_0 config183_0 temp184_0))))))" +"((config183_0) config_62)" +" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_108)))" +"(bad-syntax-error20.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_67 config_5))" +"(let-values()(read-struct read-one dispatch-c_5 in_67 config_62))" "(if(unsafe-fx< index_5 7)" -"(let-values()(read-box read-one dispatch-c_5 in_67 config_5))" -" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_112 in_67 config_5))))))" +"(let-values()(read-box read-one dispatch-c_5 in_67 config_62))" +" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_108 in_67 config_62))))))" "(if(unsafe-fx< index_5 12)" "(if(unsafe-fx< index_5 9)" "(let-values()" -" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_112 in_67 config_5))" +" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_108 in_67 config_62))" "(if(unsafe-fx< index_5 10)" "(let-values()" "(let-values(((c2_10)" "(let-values(((in_69) in_67)" -"((skip-count_18) 0)" -"((source_45)(read-config-source config_5)))" -"(let-values(((c_113)" +"((skip-count_17) 0)" +"((source_46)(read-config-source config_62)))" +"(let-values(((c_109)" "(peek-char-or-special" " in_69" -" skip-count_18" +" skip-count_17" " 'special" -" source_45)))" -"(if(eq? c_113 'special)(special1.1 'special) c_113)))))" +" source_46)))" +"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" "(if(eqv? c2_10 '#\\@)" "(begin" "(consume-char in_67 c2_10)" -" (read-quote read-one 'unsyntax-splicing \"unquoting #,@\" c_112 in_67 config_5))" -" (read-quote read-one 'unsyntax \"unquoting #,\" c_112 in_67 config_5))))" +"(read-quote" +" read-one" +" 'unsyntax-splicing" +" \"unquoting #,@\"" +" c_108" +" in_67" +" config_62))" +" (read-quote read-one 'unsyntax \"unquoting #,\" c_108 in_67 config_62))))" "(if(unsafe-fx< index_5 11)" -"(let-values()(read-character in_67 config_5))" +"(let-values()(read-character in_67 config_62))" "(let-values()" "(let-values(((in185_0) in_67)" -"((config186_0) config_5)" +"((config186_0) config_62)" "((temp187_1) '|byte string|))" "(read-string5.1 temp187_1 #t in185_0 config186_0))))))" "(if(unsafe-fx< index_5 14)" @@ -55787,39 +56073,41 @@ static const char *startup_source = "(let-values()" "(let-values(((c2_11)" "(let-values(((in_70) in_67)" -"((skip-count_19) 0)" -"((source_46)(read-config-source config_5)))" -"(let-values(((c_114)" +"((skip-count_18) 0)" +"((source_47)(read-config-source config_62)))" +"(let-values(((c_110)" "(peek-char-or-special" " in_70" -" skip-count_19" +" skip-count_18" " 'special" -" source_46)))" -"(if(eq? c_114 'special)(special1.1 'special) c_114)))))" +" source_47)))" +"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" "(if(eqv? '#\\< c2_11)" "(let-values()" -"(begin(consume-char in_67 '#\\<)(read-here-string in_67 config_5)))" +"(begin(consume-char in_67 '#\\<)(read-here-string in_67 config_62)))" "(let-values()" "(let-values(((in188_0) in_67)" -"((config189_0) config_5)" +"((config189_0) config_62)" "((c2190_0) c2_11)" " ((temp191_0) \"bad syntax `~a<`\")" "((dispatch-c192_0) dispatch-c_5))" -"(reader-error10.1" +"(reader-error12.1" " #f" " #f" " c2190_0" " #t" " #f" " #f" +" #f" +" #f" " in188_0" " config189_0" " temp191_0" "(list dispatch-c192_0)))))))" "(let-values()" -"(let-values(((c193_0) c_112)" +"(let-values(((c193_0) c_108)" "((in194_0) in_67)" -"((config195_0) config_5)" +"((config195_0) config_62)" "((dispatch-c196_0) dispatch-c_5)" "((temp197_0) 'symbol))" "(read-symbol-or-number8.1" @@ -55834,91 +56122,91 @@ static const char *startup_source = "(let-values()" "(let-values(((temp198_0) #f)" "((in199_0) in_67)" -"((config200_0) config_5)" +"((config200_0) config_62)" "((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_12)" "(let-values(((in_71) in_67)" -"((skip-count_20) 0)" -"((source_47)(read-config-source config_5)))" -"(let-values(((c_115)" +"((skip-count_19) 0)" +"((source_48)(read-config-source config_62)))" +"(let-values(((c_111)" "(peek-char-or-special" " in_71" -" skip-count_20" +" skip-count_19" " 'special" -" source_47)))" -"(if(eq? c_115 'special)(special1.1 'special) c_115)))))" -"(if(char-delimiter? c2_12 config_5)" -"(let-values()(wrap #t in_67 config_5 c_112))" +" source_48)))" +"(if(eq? c_111 'special)(special1.1 'special) c_111)))))" +"(if(char-delimiter? c2_12 config_62)" +"(let-values()(wrap #t in_67 config_62 c_108))" "(let-values()" "(read-delimited-constant" -" c_112" -"(char=? c_112 '#\\t)" +" c_108" +"(char=? c_108 '#\\t)" " '(#\\r #\\u #\\e)" " #t" " in_67" -" config_5)))))" +" config_62)))))" "(let-values()" "(let-values(((c2_13)" "(let-values(((in_72) in_67)" -"((skip-count_21) 0)" -"((source_48)(read-config-source config_5)))" -"(let-values(((c_116)" +"((skip-count_20) 0)" +"((source_49)(read-config-source config_62)))" +"(let-values(((c_112)" "(peek-char-or-special" " in_72" -" skip-count_21" +" skip-count_20" " 'special" -" source_48)))" -"(if(eq? c_116 'special)(special1.1 'special) c_116)))))" -"(if(char-delimiter? c2_13 config_5)" -"(let-values()(wrap #f in_67 config_5 c_112))" +" source_49)))" +"(if(eq? c_112 'special)(special1.1 'special) c_112)))))" +"(if(char-delimiter? c2_13 config_62)" +"(let-values()(wrap #f in_67 config_62 c_108))" "(if(let-values(((or-part_351)(char=? c2_13 '#\\x)))" "(if or-part_351 or-part_351(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" " dispatch-c_5" -" c_112" +" c_108" " c2_13" " in_67" -" config_5))" +" config_62))" "(let-values()" "(read-delimited-constant" -" c_112" -"(char=? c_112 '#\\f)" +" c_108" +"(char=? c_108 '#\\f)" " '(#\\a #\\l #\\s #\\e)" " #f" " in_67" -" config_5)))))))))))" +" config_62)))))))))))" "(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_67)" -"((config204_0) config_5)" +"((config204_0) config_62)" " ((temp205_1) \"#e\"))" "(read-symbol-or-number8.1 #f #f temp205_1 #t temp202_0 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" "(let-values(((temp206_0) #f)" "((in207_0) in_67)" -"((config208_0) config_5)" +"((config208_0) config_62)" " ((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_67)" -"((config212_0) config_5)" +"((config212_0) config_62)" " ((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_67)" -"((config216_0) config_5)" +"((config216_0) config_62)" " ((temp217_0) \"#I\"))" "(read-symbol-or-number8.1 #f #f temp217_0 #t temp214_0 in215_0 config216_0))))))" "(if(unsafe-fx< index_5 23)" @@ -55926,33 +56214,33 @@ static const char *startup_source = "(let-values()" "(let-values(((temp218_0) #f)" "((in219_0) in_67)" -"((config220_0) config_5)" +"((config220_0) config_62)" " ((temp221_0) \"#d\"))" "(read-symbol-or-number8.1 #f #f temp221_0 #t temp218_0 in219_0 config220_0)))" "(let-values()" "(let-values(((temp222_1) #f)" "((in223_0) in_67)" -"((config224_0) config_5)" +"((config224_0) config_62)" " ((temp225_0) \"#B\"))" "(read-symbol-or-number8.1 #f #f temp225_0 #t temp222_1 in223_0 config224_0))))" "(if(unsafe-fx< index_5 24)" "(let-values()" "(let-values(((temp226_0) #f)" "((in227_0) in_67)" -"((config228_0) config_5)" +"((config228_0) config_62)" " ((temp229_0) \"#o\"))" "(read-symbol-or-number8.1 #f #f temp229_0 #t temp226_0 in227_0 config228_0)))" "(if(unsafe-fx< index_5 25)" "(let-values()" "(let-values(((temp230_1) #f)" "((in231_0) in_67)" -"((config232_0) config_5)" +"((config232_0) config_62)" " ((temp233_1) \"#O\"))" "(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_1 in231_0 config232_0)))" "(let-values()" "(let-values(((temp234_0) #f)" "((in235_0) in_67)" -"((config236_0) config_5)" +"((config236_0) config_62)" " ((temp237_1) \"#D\"))" "(read-symbol-or-number8.1" " #f" @@ -55967,74 +56255,76 @@ static const char *startup_source = "(let-values()" "(let-values(((temp238_0) #f)" "((in239_0) in_67)" -"((config240_0) config_5)" +"((config240_0) config_62)" " ((temp241_0) \"#b\"))" "(read-symbol-or-number8.1 #f #f temp241_0 #t temp238_0 in239_0 config240_0)))" "(if(unsafe-fx< index_5 28)" "(let-values()" "(let-values(((temp242_0) #f)" "((in243_0) in_67)" -"((config244_0) config_5)" +"((config244_0) config_62)" " ((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_67)" -"((config248_0) config_5)" +"((config248_0) config_62)" " ((temp249_0) \"#X\"))" "(read-symbol-or-number8.1 #f #f temp249_0 #t temp246_0 in247_0 config248_0)))" "(let-values()" "(let-values(((c2_14)" "(let-values(((in_73) in_67)" -"((source_49)(read-config-source config_5)))" -"(read-char-or-special in_73 special1.1 source_49))))" +"((source_50)(read-config-source config_62)))" +"(read-char-or-special in_73 special1.1 source_50))))" "(let-values(((tmp_59) c2_14))" "(if(if(equal? tmp_59 '#\\s) #t(equal? tmp_59 '#\\S))" "(let-values()" -"(read-one #f in_67(override-parameter read-case-sensitive config_5 #t)))" +"(read-one #f in_67(override-parameter read-case-sensitive config_62 #t)))" "(if(if(equal? tmp_59 '#\\i) #t(equal? tmp_59 '#\\I))" "(let-values()" "(read-one" " #f" " in_67" -"(override-parameter read-case-sensitive config_5 #f)))" +"(override-parameter read-case-sensitive config_62 #f)))" "(let-values()" "(let-values(((in250_0) in_67)" -"((config251_0) config_5)" +"((config251_0) config_62)" "((c2252_0) c2_14)" " ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" -"((c255_0) c_112))" -"(reader-error10.1" +"((c255_0) c_108))" +"(reader-error12.1" " #f" " #f" " c2252_0" " #t" " #f" " #f" +" #f" +" #f" " in250_0" " config251_0" " 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_112 in_67 config_5))" +"(let-values()(read-hash read-one dispatch-c_5 c_108 in_67 config_62))" "(let-values()" -"(let-values(((accum-str_12)(accum-string-init! config_5)))" +"(let-values(((accum-str_12)(accum-string-init! config_62)))" "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_12 c_112)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_12 c_108)(values))))" "(let-values(((c2_15)" "(let-values(((in_74) in_67)" -"((source_50)(read-config-source config_5)))" -"(read-char-or-special in_74 special1.1 source_50))))" +"((source_51)(read-config-source config_62)))" +"(read-char-or-special in_74 special1.1 source_51))))" "(begin" "(if(char? c2_15)" "(let-values()(accum-string-add! accum-str_12 c2_15))" "(void))" "(let-values(((tmp_60) c2_15))" "(if(equal? tmp_60 '#\\x)" -"(let-values()(read-regexp c_112 accum-str_12 in_67 config_5))" +"(let-values()(read-regexp c_108 accum-str_12 in_67 config_62))" "(if(equal? tmp_60 '#\\e)" "(let-values()" "(read-extension-reader" @@ -56042,20 +56332,20 @@ static const char *startup_source = " read-undotted" " dispatch-c_5" " in_67" -" config_5))" +" config_62))" "(let-values()" "(let-values(((in256_0) in_67)" -"((config257_0) config_5)" +"((config257_0) config_62)" "((c2258_0) c2_15)" "((temp259_0)" "(let-values(((accum-str260_0) accum-str_12)" -"((config261_0) config_5))" +"((config261_0) config_62))" "(accum-string-get!6.1" " #f" " #f" " accum-str260_0" " config261_0))))" -"(bad-syntax-error18.1" +"(bad-syntax-error20.1" " c2258_0" " #t" " in256_0" @@ -56063,33 +56353,33 @@ static const char *startup_source = " temp259_0)))))))))))))" "(if(unsafe-fx< index_5 33)" "(let-values()" -"(let-values(((accum-str_13)(accum-string-init! config_5)))" +"(let-values(((accum-str_13)(accum-string-init! config_62)))" "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_13 c_112)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_13 c_108)(values))))" "(let-values(((c2_16)" "(let-values(((in_75) in_67)" -"((source_51)(read-config-source config_5)))" -"(read-char-or-special in_75 special1.1 source_51))))" +"((source_52)(read-config-source config_62)))" +"(read-char-or-special in_75 special1.1 source_52))))" "(begin" "(if(char? c2_16)" "(let-values()(accum-string-add! accum-str_13 c2_16))" "(void))" "(let-values(((tmp_61) c2_16))" "(if(equal? tmp_61 '#\\x)" -"(let-values()(read-regexp c_112 accum-str_13 in_67 config_5))" +"(let-values()(read-regexp c_108 accum-str_13 in_67 config_62))" "(let-values()" "(let-values(((in262_0) in_67)" -"((config263_0) config_5)" +"((config263_0) config_62)" "((c2264_0) c2_16)" "((temp265_0)" "(let-values(((accum-str266_0) accum-str_13)" -"((config267_0) config_5))" +"((config267_0) config_62))" "(accum-string-get!6.1" " #f" " #f" " accum-str266_0" " config267_0))))" -"(bad-syntax-error18.1" +"(bad-syntax-error20.1" " c2264_0" " #t" " in262_0" @@ -56100,7 +56390,7 @@ static const char *startup_source = "(let-values(((read-undotted268_0) read-undotted)" "((dispatch-c269_0) dispatch-c_5)" "((in270_0) in_67)" -"((config271_0) config_5))" +"((config271_0) config_62))" "(read-extension-lang7.1" " #f" " #f" @@ -56113,7 +56403,7 @@ static const char *startup_source = "(let-values(((read-undotted272_0) read-undotted)" "((dispatch-c273_0) dispatch-c_5)" "((in274_0) in_67)" -"((config275_0) config_5))" +"((config275_0) config_62))" "(read-extension-#!16.1" " #f" " #f" @@ -56122,15 +56412,17 @@ static const char *startup_source = " in274_0" " config275_0)))" "(let-values()" -"(if(check-parameter 1/read-accept-compiled config_5)" +"(if(check-parameter 1/read-accept-compiled config_62)" "(let-values()" -"(wrap((read-config-read-compiled config_5) in_67) in_67 config_5 c_112))" +"(wrap((read-config-read-compiled config_62) in_67) in_67 config_62 c_108))" "(let-values()" "(let-values(((in276_0) in_67)" -"((config277_0) config_5)" +"((config277_0) config_62)" " ((temp278_0) \"`~a~~` compiled expressions not enabled\")" "((dispatch-c279_0) dispatch-c_5))" -"(reader-error10.1" +"(reader-error12.1" +" #f" +" #f" " #f" " #f" " #f" @@ -56143,11 +56435,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_245 in_76 config_60)" +"(lambda(v_248 in_76 config_63)" "(begin" -"(if(1/special-comment? v_245)" -"(let-values()(if(read-config-keep-comment? config_60) v_245(read-undotted #f in_76 config_60)))" -"(let-values() v_245)))))" +"(if(1/special-comment? v_248)" +"(let-values()(if(read-config-keep-comment? config_63) v_248(read-undotted #f in_76 config_63)))" +"(let-values() v_248)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -56189,8 +56481,8 @@ static const char *startup_source = "(values))))" "(let-values(((ns_112)(1/current-namespace)))" "(let-values(((name_68)" -"(let-values(((mod39_0) mod_7)((temp40_3) #f))" -"(reference->resolved-module-path32.1 temp40_3 mod39_0))))" +"(let-values(((mod39_0) mod_7)((temp40_4) #f))" +"(reference->resolved-module-path32.1 temp40_4 mod39_0))))" "(let-values(((m_24)(namespace->module ns_112 name_68)))" "(if m_24(module-is-predefined? m_24) #f))))))))))" "(define-values" @@ -56343,12 +56635,12 @@ static const char *startup_source = "(let-values()" "(namespace-set-root-expand-ctx!" " m-ns_17" -"(let-values(((temp54_4)(namespace-mpi m-ns_17)))" -"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_4)))))" +"(let-values(((temp54_5)(namespace-mpi m-ns_17)))" +"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_5)))))" "(let-values(((ns46_0) ns_113)" -"((temp47_3)(namespace-mpi m-ns_17))" +"((temp47_2)(namespace-mpi m-ns_17))" "((phase48_2) phase_128))" -"(namespace-module-make-available!112.1 #f #f ns46_0 temp47_3 phase48_2))" +"(namespace-module-make-available!112.1 #f #f ns46_0 temp47_2 phase48_2))" " m-ns_17)))))))))))))))" "(case-lambda" "((mod_19)(begin 'module->namespace(module->namespace21_0 mod_19 #f #f)))" @@ -56396,8 +56688,8 @@ static const char *startup_source = " ns_114)))" "(values))))" "(let-values(((name_70)" -"(let-values(((mod56_0) mod_21)((temp57_1) #f))" -"(reference->resolved-module-path32.1 temp57_1 mod56_0))))" +"(let-values(((mod56_0) mod_21)((temp57_0) #f))" +"(reference->resolved-module-path32.1 temp57_0 mod56_0))))" "(let-values(((phase_136)(namespace-phase ns_114)))" "(let-values(((m-ns_15)" "(let-values(((ns58_0) ns_114)" @@ -56446,8 +56738,8 @@ static const char *startup_source = "(let-values(((or-part_261)(1/module-path? mod_24)))" "(if or-part_261" " or-part_261" -"(let-values(((or-part_370)(1/module-path-index? mod_24)))" -"(if or-part_370 or-part_370(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_368)(1/module-path-index? mod_24)))" +"(if or-part_368 or-part_368(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path32.1)" @@ -56471,22 +56763,22 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-flush-stdout in_77)" -"(let-values(((in23_2) in_77)((temp24_10) #t)((src25_0) src_0))" -"(read*14.1 temp24_10 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))" +"(let-values(((in23_2) in_77)((temp24_9) #t)((src25_0) src_0))" +"(read*14.1 temp24_9 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))" "(let-values()(values((port-read-handler in_77) in_77 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" "(lambda(src_1 in_78 start_59 readtable_4 graph?_1)" "(begin" " 'read-syntax/recursive" -"(let-values(((in26_1) in_78)" -"((temp27_8) #t)" +"(let-values(((in26_2) in_78)" +"((temp27_9) #t)" "((temp28_6) #t)" "((src29_0) src_1)" "((start30_0) start_59)" "((readtable31_1) readtable_4)" -"((temp32_5)(not graph?_1)))" -"(read*14.1 temp27_8 start30_0 #t temp32_5 #t readtable31_1 #t temp28_6 #t src29_0 #t in26_1)))))" +"((temp32_4)(not graph?_1)))" +"(read*14.1 temp27_9 start30_0 #t temp32_4 #t readtable31_1 #t temp28_6 #t src29_0 #t in26_2)))))" "(define-values" "(read$1)" "(lambda(in_11)" @@ -56496,20 +56788,20 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-flush-stdout in_11)" -"(let-values(((in33_2) in_11)((temp34_4) #f))(read*14.1 temp34_4 #f #f #f #f #f #f #f #f #f #f in33_2))))" +"(let-values(((in33_4) in_11)((temp34_4) #f))(read*14.1 temp34_4 #f #f #f #f #f #f #f #f #f #f in33_4))))" "(let-values()(values((port-read-handler in_11) in_11)))))))" "(define-values" "(read/recursive$1)" -"(lambda(in_6 start_60 readtable_5 graph?_2)" +"(lambda(in_79 start_60 readtable_5 graph?_2)" "(begin" " 'read/recursive" -"(let-values(((in35_0) in_6)" -"((temp36_7) #f)" +"(let-values(((in35_0) in_79)" +"((temp36_9) #f)" "((temp37_3) #t)" "((start38_0) start_60)" "((readtable39_0) readtable_5)" -"((temp40_4)(not graph?_2)))" -"(read*14.1 temp36_7 start38_0 #t temp40_4 #t readtable39_0 #t temp37_3 #t #f #f in35_0)))))" +"((temp40_5)(not graph?_2)))" +"(read*14.1 temp36_9 start38_0 #t temp40_5 #t readtable39_0 #t temp37_3 #t #f #f in35_0)))))" "(define-values" "(read*14.1)" "(lambda(for-syntax?1_0" @@ -56523,24 +56815,24 @@ static const char *startup_source = " recursive?8_0" " source3_0" " source9_0" -" in13_2)" +" in13_3)" "(begin" " 'read*14" -"(let-values(((in_79) in13_2))" +"(let-values(((in_80) in13_3))" "(let-values(((for-syntax?_11) for-syntax?1_0))" "(let-values(((recursive?_1)(if recursive?8_0 recursive?2_0 #f)))" -"(let-values(((source_52)(if source9_0 source3_0 #f)))" -"(let-values(((init-c_17)(if init-c10_0 init-c4_0 #f)))" +"(let-values(((source_53)(if source9_0 source3_0 #f)))" +"(let-values(((init-c_18)(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(((in41_1) in_79)" +"(let-values(((in41_1) in_80)" "((for-syntax?42_0) for-syntax?_11)" "((recursive?43_0) recursive?_1)" -"((source44_0) source_52)" +"((source44_0) source_53)" "((temp45_1)(if for-syntax?_11 read-to-syntax #f))" -"((init-c46_0) init-c_17)" +"((init-c46_0) init-c_18)" "((readtable47_0) readtable_6)" "((local-graph?48_0) local-graph?_2)" "((read-compiled-linklet49_0) 1/read-compiled-linklet)" @@ -56580,12 +56872,12 @@ static const char *startup_source = " in41_1))))))))))))))" "(define-values" "(read-language$1)" -"(lambda(in_80 fail-thunk_0)" +"(lambda(in_81 fail-thunk_0)" "(begin" " 'read-language" -"(let-values(((in54_2) in_80)" +"(let-values(((in54_1) in_81)" "((fail-thunk55_0) fail-thunk_0)" -"((temp56_2) #t)" +"((temp56_1) #t)" "((read-to-syntax57_0) read-to-syntax)" "((read-compiled-linklet58_0) 1/read-compiled-linklet)" "((dynamic-require-reader59_0) dynamic-require-reader)" @@ -56599,7 +56891,7 @@ static const char *startup_source = " #t" " dynamic-require-reader59_0" " #t" -" temp56_2" +" temp56_1" " #t" " read-module-declared?60_0" " #t" @@ -56607,14 +56899,14 @@ static const char *startup_source = " #t" " read-to-syntax57_0" " #t" -" in54_2" +" in54_1" " fail-thunk55_0)))))" "(define-values" "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_84) empty-syntax))" -"(if(syntax?$1 the-struct_84)" +"(let-values(((the-struct_86) empty-syntax))" +"(if(syntax?$1 the-struct_86)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -56626,14 +56918,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_84)" -"(syntax-shifted-multi-scopes the-struct_84)" -"(syntax-scope-propagations+tamper the-struct_84)" -"(syntax-mpi-shifts the-struct_84)" +"(syntax-scopes the-struct_86)" +"(syntax-shifted-multi-scopes the-struct_86)" +"(syntax-scope-propagations+tamper the-struct_86)" +"(syntax-mpi-shifts the-struct_86)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_84)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_84))))))" +"(syntax-inspector the-struct_86)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_86))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -56644,17 +56936,17 @@ 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_246 srcloc_12)" +"(lambda(for-syntax?_12 v_249 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_246)(let-values()(syntax->datum$1 v_246))(let-values() v_246)))" -"(if(syntax?$1 v_246)" -"(let-values() v_246)" -"(if(list? v_246)" +"(let-values()(if(syntax?$1 v_249)(let-values()(syntax->datum$1 v_249))(let-values() v_249)))" +"(if(syntax?$1 v_249)" +"(let-values() v_249)" +"(if(list? v_249)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_269) v_246))" +"(let-values(((lst_269) v_249))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -56664,7 +56956,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_282)" -"(let-values(((e_86)(unsafe-car lst_282))" +"(let-values(((e_87)(unsafe-car lst_282))" "((rest_176)(unsafe-cdr lst_282)))" "(let-values(((fold-var_287)" "(let-values(((fold-var_288) fold-var_286))" @@ -56672,7 +56964,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(read-coerce #t e_86 srcloc_12))" +"(read-coerce #t e_87 srcloc_12))" " fold-var_288))))" "(values fold-var_244)))))" "(if(not #f)(for-loop_279 fold-var_287 rest_176) fold-var_287)))" @@ -56682,13 +56974,13 @@ static const char *startup_source = " lst_269))))" " srcloc_12" " #f))" -"(if(pair? v_246)" +"(if(pair? v_249)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_246) srcloc_12)(read-coerce #t(cdr v_246) srcloc_12))" +"(cons(read-coerce #t(car v_249) srcloc_12)(read-coerce #t(cdr v_249) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_246 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_249 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_42)" @@ -56696,19 +56988,19 @@ static const char *startup_source = "(define-values(default-read-handler) #f)" "(define-values" "(default-read-handler?)" -"(lambda(in_81)" +"(lambda(in_82)" "(begin" "(if(not default-read-handler)" -"(let-values()(begin(set! default-read-handler(port-read-handler in_81)) #t))" -"(let-values()(eq? default-read-handler(port-read-handler in_81)))))))" +"(let-values()(begin(set! default-read-handler(port-read-handler in_82)) #t))" +"(let-values()(eq? default-read-handler(port-read-handler in_82)))))))" "(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_82)" +"(lambda(in_43)" "(begin" -"(if(eq? in_82 orig-input-port)" +"(if(eq? in_43 orig-input-port)" "(let-values()(begin(flush-output orig-output-port)(flush-output orig-error-port)))" "(void)))))" "(define-values" @@ -56759,19 +57051,19 @@ static const char *startup_source = "(1/read-syntax/recursive)" "(let-values(((read-syntax/recursive17_0)" "(lambda(src7_0" -" in8_0" +" in8_3" " start9_0" " readtable10_0" " graph?11_0" " src12_0" -" in13_3" +" in13_4" " start14_0" " readtable15_0" " graph?16_0)" "(begin" " 'read-syntax/recursive17" "(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))" -"(let-values(((in_30)(if in13_3 in8_0(current-input-port))))" +"(let-values(((in_31)(if in13_4 in8_3(current-input-port))))" "(let-values(((start_61)(if start14_0 start9_0 #f)))" "(let-values(((readtable_7)(if readtable15_0 readtable10_0(1/current-readtable))))" "(let-values(((graph?_3)(if graph?16_0 graph?11_0 #t)))" @@ -56779,10 +57071,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(input-port? in_30)" +"(if(input-port? in_31)" "(void)" "(let-values()" -" (raise-argument-error 'read-syntax/recursive \"input-port?\" in_30)))" +" (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))" "(if((lambda(x_89)" "(let-values(((or-part_71)(not x_89)))" "(if or-part_71 or-part_71(char? x_89))))" @@ -56800,7 +57092,7 @@ static const char *startup_source = " 'read-syntax/recursive" " \"(or/c readtable? #f)\"" " readtable_7)))" -"(read-syntax/recursive$1 src_3 in_30 start_61 readtable_7 graph?_3))))))))))))))" +"(read-syntax/recursive$1 src_3 in_31 start_61 readtable_7 graph?_3))))))))))))))" "(case-lambda" "(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))" "((src_4 in_83 start_62 readtable_8 graph?11_1)" @@ -56808,7 +57100,7 @@ static const char *startup_source = "((src_5 in_84 start_63 readtable10_1)" "(read-syntax/recursive17_0 src_5 in_84 start_63 readtable10_1 #f #t #t #t #t #f))" "((src_6 in_85 start9_1)(read-syntax/recursive17_0 src_6 in_85 start9_1 #f #f #t #t #t #f #f))" -"((src_7 in8_3)(read-syntax/recursive17_0 src_7 in8_3 #f #f #f #t #t #f #f #f))" +"((src_7 in8_4)(read-syntax/recursive17_0 src_7 in8_4 #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" "(1/read)" @@ -56829,10 +57121,10 @@ static const char *startup_source = "(define-values" "(1/read/recursive)" "(let-values(((read/recursive31_0)" -"(lambda(in23_1 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" +"(lambda(in23_3 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" "(begin" " 'read/recursive31" -"(let-values(((in_53)(if in27_2 in23_1(current-input-port))))" +"(let-values(((in_20)(if in27_2 in23_3(current-input-port))))" "(let-values(((start_38)(if start28_1 start24_0 #f)))" "(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))" "(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))" @@ -56840,9 +57132,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(input-port? in_53)" +"(if(input-port? in_20)" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_53)))" +" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_20)))" "(if((lambda(x_19)" "(let-values(((or-part_93)(not x_19)))" "(if or-part_93 or-part_93(char? x_19))))" @@ -56856,28 +57148,28 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" -"(read/recursive$1 in_53 start_38 readtable_9 graph?_4)))))))))))))" +"(read/recursive$1 in_20 start_38 readtable_9 graph?_4)))))))))))))" "(case-lambda" "(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))" "((in_87 start_64 readtable_10 graph?26_1)(read/recursive31_0 in_87 start_64 readtable_10 graph?26_1 #t #t #t #t))" "((in_88 start_65 readtable25_1)(read/recursive31_0 in_88 start_65 readtable25_1 #f #t #t #t #f))" -"((in_7 start24_1)(read/recursive31_0 in_7 start24_1 #f #f #t #t #f #f))" -"((in23_3)(read/recursive31_0 in23_3 #f #f #f #t #f #f #f)))))" +"((in_89 start24_1)(read/recursive31_0 in_89 start24_1 #f #f #t #t #f #f))" +"((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))" "(define-values" "(1/read-language)" "(let-values(((read-language37_0)" -"(lambda(in33_3 fail-thunk34_0 in35_1 fail-thunk36_0)" +"(lambda(in33_5 fail-thunk34_0 in35_1 fail-thunk36_0)" "(begin" " 'read-language37" -"(let-values(((in_57)(if in35_1 in33_3(current-input-port))))" +"(let-values(((in_56)(if in35_1 in33_5(current-input-port))))" "(let-values(((fail-thunk_2)(if fail-thunk36_0 fail-thunk34_0 read-language-fail-thunk)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(input-port? in_57)" +"(if(input-port? in_56)" "(void)" -" (let-values () (raise-argument-error 'read-language \"input-port?\" in_57)))" +" (let-values () (raise-argument-error 'read-language \"input-port?\" in_56)))" "(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 0) #f))" " fail-thunk_2)" "(void)" @@ -56887,12 +57179,12 @@ static const char *startup_source = " \"(procedure-arity-includes/c 0)\"" " fail-thunk_2)))" "(read-language$1" -" in_57" +" in_56" "(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_58 fail-thunk34_1)(read-language37_0 in_58 fail-thunk34_1 #t #t))" -"((in33_4)(read-language37_0 in33_4 #f #t #f)))))" +"((in_57 fail-thunk34_1)(read-language37_0 in_57 fail-thunk34_1 #t #t))" +"((in33_6)(read-language37_0 in33_6 #f #t #f)))))" " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" "(declare-primitive-module!)" @@ -56905,7 +57197,7 @@ static const char *startup_source = "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" "((mpi7_0) mpi_50)" -"((temp8_5)" +"((temp8_4)" "(hasheqv" " 0" "(let-values(((lst_78)(1/instance-variable-names inst_7)))" @@ -56930,7 +57222,7 @@ static const char *startup_source = "(let-values(((binding_27)" "(let-values(((mpi10_0)" " mpi_50)" -"((temp11_7)" +"((temp11_6)" " 0)" "((sym12_0)" " sym_60))" @@ -56954,7 +57246,7 @@ static const char *startup_source = " #f" " #f" " mpi10_0" -" temp11_7" +" temp11_6" " sym12_0))))" "(values" " sym_60" @@ -56979,7 +57271,7 @@ static const char *startup_source = " for-loop_96)" " '#hash()" " lst_78)))))" -"((temp9_7)" +"((temp9_8)" "(lambda(data-box_5" " ns_46" " phase-shift_20" @@ -57034,7 +57326,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp9_7" +" temp9_8" " #f" " #f" " #f" @@ -57051,7 +57343,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp8_5" +" temp8_4" " #f" " #f" " mpi7_0" @@ -57089,7 +57381,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_87)(1/exn:fail:filesystem:missing-module-path e_87))))" +"(cons 1/prop:exn:missing-module(lambda(e_88)(1/exn:fail:filesystem:missing-module-path e_88))))" " #f" " #f" " '(0)" @@ -57197,7 +57489,7 @@ static const char *startup_source = "(let-values(((stop-ids_2) stop-ids5_0))" "(let-values(((intdefs_3)(if intdefs2_0 intdefs1_0 #f)))" "(let-values()" -"(let-values(((temp59_4) 'local-expand)" +"(let-values(((temp59_6) 'local-expand)" "((s60_0) s_2)" "((context61_0) context_10)" "((stop-ids62_0) stop-ids_2)" @@ -57215,7 +57507,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp59_4" +" temp59_6" " s60_0" " context61_0" " stop-ids62_0" @@ -57236,17 +57528,17 @@ static const char *startup_source = "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" -"(let-values(((temp64_3) 'local-expand)" +"(let-values(((temp64_4) 'local-expand)" "((s65_0) s_430)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" -"((temp69_3) #t)" +"((temp69_2) #t)" "((lift-key70_0) lift-key_4))" "(do-local-expand56.1" " #f" " #f" -" temp69_3" +" temp69_2" " #t" " lift-key70_0" " #t" @@ -57256,7 +57548,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp64_3" +" temp64_4" " s65_0" " context66_0" " stop-ids67_0" @@ -57280,7 +57572,7 @@ static const char *startup_source = "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" -"(let-values(((temp71_5) 'local-expand)" +"(let-values(((temp71_4) 'local-expand)" "((s72_0) s_306)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" @@ -57299,17 +57591,17 @@ static const char *startup_source = " #f" " #f" " #f" -" temp71_5" +" temp71_4" " s72_0" " context73_0" " stop-ids74_0" " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_473 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_473 context_17 stop-ids_10 #f #f)))" -"((s_474 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_474 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_472 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_472 context_17 stop-ids_10 #f #f)))" +"((s_473 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_473 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57350,10 +57642,10 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_475 context_20 stop-ids_13)" +"((s_474 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_475 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_474 context_20 stop-ids_13 #f #f #f #f)))" "((s_409 context_21 stop-ids_14 intdefs_8 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_409 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_87 context_22 stop-ids_15 intdefs24_1)" @@ -57364,13 +57656,13 @@ static const char *startup_source = "(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_476) s35_1))" +"(let-values(((s_475) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_4) 'syntax-local-expand-expression)" -"((s86_1) s_476)" -"((temp87_4) 'expression)" +"((s86_1) s_475)" +"((temp87_5) 'expression)" "((null88_0) null)" "((temp89_4) #f)" "((opaque-only?90_0) opaque-only?_0)" @@ -57391,7 +57683,7 @@ static const char *startup_source = " #t" " temp85_4" " s86_1" -" temp87_4" +" temp87_5" " null88_0" " temp89_4" " #t))))" @@ -57452,8 +57744,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_371) capture-lifts?_0))" -"(if or-part_371 or-part_371 as-transformer?_5))" +"(if(let-values(((or-part_369) capture-lifts?_0))" +"(if or-part_369 or-part_369 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57623,11 +57915,11 @@ static const char *startup_source = "(let-values(((input-s103_0) input-s_1)" "((local-ctx104_0) local-ctx_0)" "((context105_0) context_23)" -"((temp106_3) #f)" +"((temp106_4) #f)" "((temp107_1) #t)" "((lift-key108_0) lift-key_6)" "((temp109_0) #t)" -"((temp110_4) #t))" +"((temp110_5) #t))" "(expand-transformer47.1" " temp109_0" " #t" @@ -57635,9 +57927,9 @@ static const char *startup_source = " #t" " context105_0" " #t" -" temp106_3" +" temp106_4" " #t" -" temp110_4" +" temp110_5" " #t" " lift-key108_0" " #t" @@ -57649,7 +57941,7 @@ static const char *startup_source = "((local-ctx112_0)" " local-ctx_0)" "((context113_0) context_23)" -"((temp114_4) #f)" +"((temp114_3) #f)" "((temp115_2)" "(eq? 'top-level context_23))" "((lift-key116_0) lift-key_6)" @@ -57661,7 +57953,7 @@ static const char *startup_source = " #t" " context113_0" " #t" -" temp114_4" +" temp114_3" " #t" " temp117_1" " #t" @@ -57780,7 +58072,7 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_170" -"(lambda(s_477)(syntax-arm$1 s_477 insp_21))" +"(lambda(s_476)(syntax-arm$1 s_476 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_170 insp_21))))))))))))))))" "(case-lambda" @@ -57789,25 +58081,25 @@ static const char *startup_source = "((s_429 maybe-insp1_1)(syntax-arm6_0 s_429 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_478 maybe-insp_2)" +"(lambda(s_477 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_478)" +"(if(syntax?$1 s_477)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_478)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_477)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_372)(not maybe-insp_2)))" -"(if or-part_372 or-part_372(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_370)(not maybe-insp_2)))" +"(if or-part_370 or-part_370(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_478 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_477 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -57831,7 +58123,7 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_428" -"(lambda(s_479)(syntax-rearm$1 s_479 from-s_2))" +"(lambda(s_478)(syntax-rearm$1 s_478 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_428 from-s_2))))))))))))))" "(case-lambda" @@ -57851,11 +58143,11 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_373) maybe-insp_3))" -"(if or-part_373" -" or-part_373" -"(let-values(((or-part_363)(current-module-code-inspector)))" -"(if or-part_363 or-part_363(current-code-inspector))))))))" +"(let-values(((or-part_371) maybe-insp_3))" +"(if or-part_371" +" or-part_371" +"(let-values(((or-part_362)(current-module-code-inspector)))" +"(if or-part_362 or-part_362(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -58277,9 +58569,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((temp53_4) '#%kernel)" -"((temp54_5) '#%runtime)" -"((temp55_4)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" -"((temp56_3)" +"((temp54_6) '#%runtime)" +"((temp55_3)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" +"((temp56_2)" "(hasheq" " 'variable-reference?" " 1/variable-reference?" @@ -58288,9 +58580,9 @@ static const char *startup_source = " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" "((ns57_0) ns_116))" -"(copy-runtime-module!26.1 #f #f temp56_3 #t ns57_0 #f #f #f #f temp55_4 #t temp54_5 #t temp53_4))" -"(let-values(((temp58_4) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_116))" -"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_4 temp59_5)))))))))))" +"(copy-runtime-module!26.1 #f #f temp56_2 #t ns57_0 #f #f #f #f temp55_3 #t temp54_6 #t temp53_4))" +"(let-values(((temp58_3) '#%kernel)((temp59_7) '(#%core #%runtime #%main #%read))((ns60_0) ns_116))" +"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_3 temp59_7)))))))))))" "(define-values" "(copy-runtime-module!26.1)" "(lambda(alts14_0" @@ -58480,13 +58772,13 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_52)(1/module-path-index-join(list 'quote name_74) #f)))" "(let-values(((ns66_1) ns_118)" -"((temp67_2)" -"(let-values(((temp69_4) #t)" +"((temp67_1)" +"(let-values(((temp69_3) #t)" "((primitive?70_0) primitive?_10)" -"((temp71_6) #t)" +"((temp71_5) #t)" "((temp72_2)(not protected?_11))" "((mpi73_1) mpi_52)" -"((temp74_2)" +"((temp74_0)" "(hasheqv" " 0" "(let-values(((ht_169) ht_168))" @@ -58550,10 +58842,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_374)" +"(if(let-values(((or-part_372)" " protected?_11))" -"(if or-part_374" -" or-part_374" +"(if or-part_372" +" or-part_372" "(member" " sym_98" " protected-syms_0)))" @@ -58579,7 +58871,7 @@ static const char *startup_source = " for-loop_281)" " '#hash()" "(hash-iterate-first ht_169))))))" -"((temp75_2)" +"((temp75_3)" "(lambda(data-box_6" " ns_119" " phase-shift_21" @@ -58630,13 +58922,13 @@ static const char *startup_source = "(void)))" "(void)))))" "(make-module39.1" -" temp69_4" +" temp69_3" " #t" " #f" " #f" " #f" " #f" -" temp75_2" +" temp75_3" " #f" " #f" " #f" @@ -58647,13 +58939,13 @@ static const char *startup_source = " #t" " #f" " #f" -" temp71_6" +" temp71_5" " #t" " #f" " #f" " primitive?70_0" " #t" -" temp74_2" +" temp74_0" " #f" " #f" " mpi73_1" @@ -58663,8 +58955,8 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp68_1)(1/module-path-index-resolve mpi_52)))" -"(declare-module!58.1 #f #f ns66_1 temp67_2 temp68_1))))))))))))))" +"((temp68_3)(1/module-path-index-resolve mpi_52)))" +"(declare-module!58.1 #f #f ns66_1 temp67_1 temp68_3))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" "(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_1 require-names49_0)" @@ -58711,12 +59003,12 @@ static const char *startup_source = " null" " lst_204))))))" "(let-values(((ns79_1) ns_120)" -"((temp80_6)" +"((temp80_5)" "(let-values(((temp82_7) #t)" "((temp83_3) #t)" "((mpi84_0) mpi_53)" "((temp85_5)(list(cons 0 require-mpis_0)))" -"((temp86_2)" +"((temp86_1)" "(if reexport?_0" "(hasheqv" " 0" @@ -58841,7 +59133,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp86_2" +" temp86_1" " temp85_5" " #t" " mpi84_0" @@ -58851,8 +59143,8 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp81_3)(1/module-path-index-resolve mpi_53)))" -"(declare-module!58.1 #f #f ns79_1 temp80_6 temp81_3))))))))))))" +"((temp81_4)(1/module-path-index-resolve mpi_53)))" +"(declare-module!58.1 #f #f ns79_1 temp80_5 temp81_4))))))))))))" "(define-values" "(read-primitives)" "(hasheq" @@ -58954,15 +59246,15 @@ static const char *startup_source = "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_480)" +"(lambda(s_479)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_480) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_480)))" -"(expand$1 s_480(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_477)(begin 'expand-once(expand-once$1(intro s_477)))))" +" (if (syntax?$1 s_479) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_479)))" +"(expand$1 s_479(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_476)(begin 'expand-once(expand-once$1(intro s_476)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_171)" @@ -59373,9 +59665,9 @@ static const char *startup_source = "(lambda()" "(let-values(((c1_31)(linklet-directory-start i_186)))" "(if c1_31" -"((lambda(pos_126)" +"((lambda(pos_125)" "(let-values(((b-pos_0)" -"(search-directory i_186 pos_126(encode-symbols expected-mod_0))))" +"(search-directory i_186 pos_125(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" @@ -59452,7 +59744,7 @@ static const char *startup_source = " 'temp2" "(begin" "(maybe-count-lines!_0 i_84)" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_115)" "(lambda(vals_7)" "(begin" " 'loop" @@ -59488,7 +59780,7 @@ static const char *startup_source = " i_84))))))" "(if(eof-object? s_300)" "(apply values vals_7)" -"(loop_111" +"(loop_115" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" @@ -59501,7 +59793,7 @@ static const char *startup_source = " abort-current-continuation" "(default-continuation-prompt-tag)" " args_10))))))))))" -" loop_111)" +" loop_115)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" @@ -59536,11 +59828,11 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_230)" -"(lambda(result_122 pos_127)" +"(lambda(result_122 pos_126)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_127 len_39)" -"(let-values(((c_75)(unsafe-bytes-ref vec_68 pos_127)))" +"(if(unsafe-fx< pos_126 len_39)" +"(let-values(((c_75)(unsafe-bytes-ref vec_68 pos_126)))" "(let-values(((result_123)" "(let-values()" "(let-values(((result_124)" @@ -59548,7 +59840,7 @@ static const char *startup_source = "(let-values()(not(eq? c_75 0))))))" "(values result_124)))))" "(if(if(not((lambda x_94 result_123) c_75))(not #f) #f)" -"(for-loop_230 result_123(unsafe-fx+ 1 pos_127))" +"(for-loop_230 result_123(unsafe-fx+ 1 pos_126))" " result_123)))" " result_122)))))" " for-loop_230)" @@ -59582,16 +59874,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_188 pos_128 bstr_5)" +"(lambda(i_188 pos_118 bstr_5)" "(begin" -"(if(zero? pos_128)" +"(if(zero? pos_118)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_188 pos_128)(values))))" +"(let-values((()(begin(file-position i_188 pos_118)(values))))" "(let-values(((name-len_0)(read-number i_188)))" -"(let-values(((v_247)(read-bytes name-len_0 i_188)))" +"(let-values(((v_250)(read-bytes name-len_0 i_188)))" "(begin" -"(if(if(bytes? v_247)(=(bytes-length v_247) name-len_0) #f)" +"(if(if(bytes? v_250)(=(bytes-length v_250) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59603,12 +59895,12 @@ static const char *startup_source = " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" "(object-name i_188)" -" pos_128" +" pos_118" " name-len_0" -" v_247)))" -"(if(bytes=? bstr_5 v_247)" +" v_250)))" +"(if(bytes=? bstr_5 v_250)" "(let-values()(read-number i_188))" -"(if(bytesbytes/utf-8" -"(symbol->string s_464))))" +"(symbol->string s_463))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -59693,7 +59985,7 @@ static const char *startup_source = "(let-values(((i_162) #f))" "(dynamic-wind" "(lambda()" -"(set! i_162(let-values(((path3_0) path_14)((temp4_8) #t))(open-input-file6.1 temp4_8 #t #f #f path3_0))))" +"(set! i_162(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" "(lambda()(proc_10 i_162))" "(lambda()(close-input-port i_162)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" @@ -59870,9 +60162,9 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_375) main-path-d_0))" -"(if or-part_375" -" or-part_375" +"(let-values(((or-part_373) main-path-d_0))" +"(if or-part_373" +" or-part_373" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" @@ -60048,7 +60340,7 @@ static const char *startup_source = "(define-values" "(registry-table-ref)" "(lambda(reg_0)" -"(begin(let-values(((e_88)(hash-ref -module-hash-table-table reg_0 #f)))(if e_88(ephemeron-value e_88) #f)))))" +"(begin(let-values(((e_89)(hash-ref -module-hash-table-table reg_0 #f)))(if e_89(ephemeron-value e_89) #f)))))" "(define-values" "(registry-table-set!)" "(lambda(reg_1 v_198)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_198)))))" @@ -60064,7 +60356,7 @@ static const char *startup_source = "(if l_80(let-values(((a_71)(1/assoc p_76 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_77 v_248)" +"(lambda(p_77 v_251)" "(begin" "(let-values(((i_189)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_189)))" @@ -60073,37 +60365,37 @@ static const char *startup_source = " -path-cache" " i_189" "(make-weak-box" -"(cons(cons p_77 v_248)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_77 v_251)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_475 coll-mode?_0)" +"(lambda(s_474 coll-mode?_0)" "(begin" "(let-values(((l_19)" -"((letrec-values(((loop_117)" -"(lambda(s_481)" +"((letrec-values(((loop_116)" +"(lambda(s_480)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_481)))" +"(let-values(((len_41)(string-length s_480)))" "((letrec-values(((iloop_2)" "(lambda(i_102)" "(begin" " 'iloop" "(if(= i_102 len_41)" -"(let-values()(list s_481))" -"(if(char=? '#\\/(string-ref s_481 i_102))" +"(let-values()(list s_480))" +"(if(char=? '#\\/(string-ref s_480 i_102))" "(let-values()" "(cons" -"(substring s_481 0 i_102)" -"(loop_117(substring s_481(add1 i_102)))))" +"(substring s_480 0 i_102)" +"(loop_116(substring s_480(add1 i_102)))))" "(let-values()(iloop_2(add1 i_102)))))))))" " iloop_2)" " 0))))))" -" loop_117)" -" s_475)))" +" loop_116)" +" s_474)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -60112,8 +60404,8 @@ static const char *startup_source = " 'loop" "(if(null?(cdr l_78))" "(values null(car l_78))" -"(let-values(((c_117 f_39)(loop_101(cdr l_78))))" -"(values(cons(car l_78) c_117) f_39)))))))" +"(let-values(((c_113 f_39)(loop_101(cdr l_78))))" +"(values(cons(car l_78) c_113) f_39)))))))" " loop_101)" " l_19))))))" "(define-values" @@ -60146,14 +60438,14 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_476 from-namespace_1)" +"((s_475 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_476)" +"(if(1/resolved-module-path? s_475)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_476)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_475)))" "(if(let-values(((or-part_135)(not from-namespace_1)))" "(if or-part_135 or-part_135(1/namespace? from-namespace_1)))" "(void)" @@ -60162,7 +60454,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_476))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_475))(void))" "(let-values(((hts_1)" "(let-values(((or-part_312)" "(registry-table-ref" @@ -60176,14 +60468,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_476 'declared)" +"(hash-set!(car hts_1) s_475 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_476))" +"(if(pair?(1/resolved-module-path-name s_475))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_476)))" -" s_476))" +"(car(1/resolved-module-path-name s_475)))" +" s_475))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -60195,14 +60487,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_482 relto_0 stx_18)" +"((s_481 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_482 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_481 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60242,7 +60534,7 @@ static const char *startup_source = "(lambda(base_28 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_118)" +"((letrec-values(((loop_117)" "(lambda(a_73 l_33)" "(begin" " 'loop" @@ -60269,12 +60561,12 @@ static const char *startup_source = " 'file)" " base_28)))" " orig-l_10))" -"(loop_118(cdr a_73)(cdr l_33))))" +"(loop_117(cdr a_73)(cdr l_33))))" "(let-values()" -"(loop_118" +"(loop_117" "(cons(car l_33) a_73)" "(cdr l_33)))))))))" -" loop_118)" +" loop_117)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -60292,9 +60584,9 @@ static const char *startup_source = " (if or-part_92 or-part_92 (equal? (cadr s_26) \"..\")))" "(if relto_1" "(let-values(((p_78)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_376)(symbol? p_78)))" -"(if or-part_376" -" or-part_376" +"(let-values(((or-part_374)(symbol? p_78)))" +"(if or-part_374" +" or-part_374" "(if(pair? p_78)(symbol?(car p_78)) #f))))" " #f)" " #f)" @@ -60333,7 +60625,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_377)" +"(let-values(((or-part_375)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" @@ -60357,8 +60649,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_375" +" or-part_375" "(let-values(((or-part_42)" "(current-load-relative-directory)))" "(if or-part_42" @@ -60375,15 +60667,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_378)" +"(let-values(((or-part_376)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_376" +" or-part_376" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60437,8 +60729,8 @@ static const char *startup_source = "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_379) (equal? v_38 \".\")))" -" (if or-part_379 or-part_379 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_377) (equal? v_38 \".\")))" +" (if or-part_377 or-part_377 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_82)" "(1/resolved-module-path-name" @@ -60510,11 +60802,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_380)" +"(let-values(((or-part_378)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_380" -" or-part_380" +"(if or-part_378" +" or-part_378" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -60605,8 +60897,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_381)(path? s-parsed_0)))" -"(if or-part_381 or-part_381(vector? s-parsed_0)))" +"(if(let-values(((or-part_379)(path? s-parsed_0)))" +"(if or-part_379 or-part_379(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -60644,11 +60936,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_382)" +"(let-values(((or-part_380)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_382" -" or-part_382" +"(if or-part_380" +" or-part_380" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -60704,7 +60996,7 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_118)" "(lambda(l_81)" "(begin" " 'loop" @@ -60716,10 +61008,10 @@ static const char *startup_source = "(path->string" "(cdar" " l_81))" -"(loop_119" +"(loop_118" "(cdr" " l_81))))))))" -" loop_119)" +" loop_118)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" @@ -60790,10 +61082,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_383)" +"(let-values(((or-part_381)" "(string? s_31)))" -"(if or-part_383" -" or-part_383" +"(if or-part_381" +" or-part_381" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -60824,14 +61116,14 @@ static const char *startup_source = "(1/eval" " s_59" "(1/current-namespace)" -"(let-values(((c_118)(1/current-compile)))" -"(lambda(e_89 ns_16)" +"(let-values(((c_114)(1/current-compile)))" +"(lambda(e_90 ns_16)" "(if(eq? ns_16(1/current-namespace))" -"(c_118 e_89 #t)" +"(c_114 e_90 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)" -"(let-values()(c_118 e_89 #t))))))))))" +"(let-values()(c_114 e_90 #t))))))))))" "(define-values" "(default-compile-handler)" "(lambda(s_60 immediate-eval?_0)(begin(1/compile s_60(1/current-namespace)(not immediate-eval?_0)))))" @@ -60948,9 +61240,9 @@ 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_249) ctx_14))" -"(let-values(((the-struct_85) v_249))" -"(if(expand-context/outer? the-struct_85)" +"(let-values(((v_252) ctx_14))" +"(let-values(((the-struct_87) v_252))" +"(if(expand-context/outer? the-struct_87)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -60965,27 +61257,27 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_249)))" +"((inner61_0)(root-expand-context/outer-inner v_252)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_85)" +"(expand-context/outer-env the-struct_87)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_85)" +"(expand-context/outer-binding-layer the-struct_87)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_85)" -"(expand-context/outer-current-introduction-scopes the-struct_85)" +"(expand-context/outer-need-eventually-defined the-struct_87)" +"(expand-context/outer-current-introduction-scopes the-struct_87)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_85))))))" +" the-struct_87))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -60996,7 +61288,7 @@ static const char *startup_source = "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" "(let-values(((name_78)(expand-context-name ctx_14)))" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_119)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -61014,30 +61306,30 @@ static const char *startup_source = "(let-values(((body-ctx62_0) body-ctx_2)" "((frame-id63_0) frame-id_2)" "((def-ctx-scopes64_0) def-ctx-scopes_6)" -"((temp65_6)(reverse$1 val-idss_0))" -"((temp66_4)(reverse$1 val-keyss_0))" -"((temp67_3)(reverse$1 val-rhss_0))" -"((temp68_2)(reverse$1 track-stxs_0))" -"((temp69_5)(reverse$1 stx-clauses_0))" -"((temp70_3)(reverse$1 done-bodys_0))" +"((temp65_4)(reverse$1 val-idss_0))" +"((temp66_5)(reverse$1 val-keyss_0))" +"((temp67_2)(reverse$1 val-rhss_0))" +"((temp68_4)(reverse$1 track-stxs_0))" +"((temp69_4)(reverse$1 stx-clauses_0))" +"((temp70_4)(reverse$1 done-bodys_0))" "((s71_0) s_40)" "((stratified?72_0) stratified?_0)" "((name73_0) name_78)" -"((temp74_3)(reverse$1 trans-idss_1)))" +"((temp74_1)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" -" temp74_3" +" temp74_1" " name73_0" " s71_0" " stratified?72_0" " body-ctx62_0" " frame-id63_0" " def-ctx-scopes64_0" -" temp65_6" -" temp66_4" -" temp67_3" -" temp68_2" -" temp69_5" -" temp70_3)))" +" temp65_4" +" temp66_5" +" temp67_2" +" temp68_4" +" temp69_4" +" temp70_4)))" "(let-values()" "(let-values(((rest-bodys_0)(cdr bodys_8)))" "(let-values((()" @@ -61054,63 +61346,63 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-body_0)" -"(let-values(((temp75_3)(car bodys_8))" +"(let-values(((temp75_4)(car bodys_8))" "((temp76_3)" "(if(if name_78" "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_223)" +"(let-values(((v_225)" " body-ctx_2))" -"(let-values(((the-struct_86)" -" v_223))" +"(let-values(((the-struct_88)" +" v_225))" "(if(expand-context/outer?" -" the-struct_86)" +" the-struct_88)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_223)))" +" v_225)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_86)" +" the-struct_88)" "(root-expand-context/outer-use-site-scopes" -" the-struct_86)" +" the-struct_88)" "(root-expand-context/outer-frame-id" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-context" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-env" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-scopes" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-def-ctx-scopes" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-binding-layer" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-reference-records" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-only-immediate?" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-need-eventually-defined" -" the-struct_86)" +" the-struct_88)" "(expand-context/outer-current-introduction-scopes" -" the-struct_86)" +" the-struct_88)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_86))))" +" the-struct_88))))" " body-ctx_2)))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp75_3" +" temp75_4" " temp76_3))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" @@ -61134,29 +61426,29 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_483)" +"(let-values(((s_482)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_483))" +" s_482))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_463)" +"(let-values(((s_483)" "(if(syntax?$1" -" s_483)" +" s_482)" "(syntax-e$1" -" s_483)" -" s_483)))" +" s_482)" +" s_482)))" "(if(pair?" -" s_463)" +" s_483)" "(let-values(((begin81_0)" "(let-values(((s_484)" "(car" -" s_463)))" +" s_483)))" " s_484))" "((e82_0)" "(let-values(((s_485)" "(cdr" -" s_463)))" +" s_483)))" "(let-values(((s_486)" "(if(syntax?$1" " s_485)" @@ -61187,11 +61479,11 @@ static const char *startup_source = " begin79_1" " e80_1))))))" "(let-values(((track_0)" -"(lambda(e_90)" +"(lambda(e_91)" "(begin" " 'track" "(syntax-track-origin$1" -" e_90" +" e_91" " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" @@ -61209,7 +61501,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_120" +"(loop_119" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -61587,13 +61879,13 @@ static const char *startup_source = " body-ctx_2)" " lst_231" " lst_197)))))" -"(loop_120" -"(let-values(((v_250)" +"(loop_119" +"(let-values(((v_253)" " body-ctx_2))" -"(let-values(((the-struct_87)" -" v_250))" +"(let-values(((the-struct_89)" +" v_253))" "(if(expand-context/outer?" -" the-struct_87)" +" the-struct_89)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -61602,39 +61894,39 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_250)))" +" v_253)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_87)" +" the-struct_89)" "(root-expand-context/outer-use-site-scopes" -" the-struct_87)" +" the-struct_89)" "(root-expand-context/outer-frame-id" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-context" -" the-struct_87)" +" the-struct_89)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-scopes" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-def-ctx-scopes" -" the-struct_87)" +" the-struct_89)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-only-immediate?" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-need-eventually-defined" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-current-introduction-scopes" -" the-struct_87)" +" the-struct_89)" "(expand-context/outer-name" -" the-struct_87)))" +" the-struct_89)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_87))))" +" the-struct_89))))" " rest-bodys_0" " null" "(cons" @@ -62274,11 +62566,11 @@ static const char *startup_source = " obs_76" " 'exit-bind)))" "(void)))" -"(loop_120" -"(let-values(((v_251)" +"(loop_119" +"(let-values(((v_254)" " body-ctx_2))" "(let-values(((the-struct_65)" -" v_251))" +" v_254))" "(if(expand-context/outer?" " the-struct_65)" "(let-values(((env124_0)" @@ -62289,7 +62581,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_251)))" +" v_254)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -62349,7 +62641,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_120" +"(loop_119" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -62377,7 +62669,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_120" +"(loop_119" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -62388,7 +62680,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_120)" +" loop_119)" " body-ctx_0" " init-bodys_0" " null" @@ -62441,12 +62733,12 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_252)" +"(let-values(((v_255)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_88) v_252))" -"(if(expand-context/outer? the-struct_88)" +"(let-values(((the-struct_90) v_255))" +"(if(expand-context/outer? the-struct_90)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -62459,29 +62751,29 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_252)))" +"(root-expand-context/outer-inner v_255)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_88)" +"(root-expand-context/outer-frame-id the-struct_90)" " context127_0" -"(expand-context/outer-env the-struct_88)" +"(expand-context/outer-env the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_88)" +" the-struct_90)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_88)" -"(expand-context/outer-reference-records the-struct_88)" +"(expand-context/outer-binding-layer the-struct_90)" +"(expand-context/outer-reference-records the-struct_90)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_88)" +"(expand-context/outer-need-eventually-defined the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_88)" -"(expand-context/outer-name the-struct_88)))" +" the-struct_90)" +"(expand-context/outer-name the-struct_90)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_88))))))" +" the-struct_90))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62538,7 +62830,7 @@ static const char *startup_source = "((letrec-values(((for-loop_295)" "(lambda(fold-var_311" " lst_336" -" pos_129)" +" pos_127)" "(begin" " 'for-loop" "(if(if(pair?" @@ -62552,7 +62844,7 @@ static const char *startup_source = "(unsafe-cdr" " lst_336))" "((i_190)" -" pos_129))" +" pos_127))" "(let-values(((fold-var_312)" "(let-values(((fold-var_313)" " fold-var_311))" @@ -62579,50 +62871,50 @@ static const char *startup_source = " i_190" " last-i_1)" " #f)" -"(let-values(((v_253)" +"(let-values(((v_256)" " finish-ctx_0))" -"(let-values(((the-struct_89)" -" v_253))" +"(let-values(((the-struct_91)" +" v_256))" "(if(expand-context/outer?" -" the-struct_89)" +" the-struct_91)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_253)))" +" v_256)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_89)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_89)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-env" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-binding-layer" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-reference-records" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_89)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_89)" +" the-struct_91)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))" +" the-struct_91))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -62640,7 +62932,7 @@ static const char *startup_source = " fold-var_312" " rest_191" "(+" -" pos_129" +" pos_127" " 1))" " fold-var_312)))" " fold-var_311)))))" @@ -62759,7 +63051,7 @@ static const char *startup_source = "(let-values(((track?_1) track?36_0))" "(let-values()" "(let-values(((phase_141)(expand-context-phase ctx_77)))" -"((letrec-values(((loop_121)" +"((letrec-values(((loop_120)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -62885,7 +63177,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_121" +"(loop_120" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -62951,14 +63243,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_384) split?_0))" -"(if or-part_384" -" or-part_384" +"(let-values(((or-part_382) split?_0))" +"(if or-part_382" +" or-part_382" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_121" +"(loop_120" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -63037,7 +63329,7 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_121" +"(loop_120" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -63049,7 +63341,7 @@ static const char *startup_source = " track?_2" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_121)" +" loop_120)" " idss_1" " keyss_0" " rhss_1" @@ -63323,42 +63615,42 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_254) ctx_79))" -"(let-values(((the-struct_90) v_254))" -"(if(expand-context/outer? the-struct_90)" +"(let-values(((v_257) ctx_79))" +"(let-values(((the-struct_92) v_257))" +"(if(expand-context/outer? the-struct_92)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_79)))" "((binding-layer44_0)" "(increment-binding-layer ids_33 ctx_79 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_254)))" +"((inner46_0)(root-expand-context/outer-inner v_257)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_90)" -"(root-expand-context/outer-use-site-scopes the-struct_90)" +"(root-expand-context/outer-post-expansion-scope the-struct_92)" +"(root-expand-context/outer-use-site-scopes the-struct_92)" " frame-id45_0" -"(expand-context/outer-context the-struct_90)" +"(expand-context/outer-context the-struct_92)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_90)" +"(expand-context/outer-post-expansion-scope-action the-struct_92)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_90)" +"(expand-context/outer-def-ctx-scopes the-struct_92)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_90)" -"(expand-context/outer-only-immediate? the-struct_90)" -"(expand-context/outer-need-eventually-defined the-struct_90)" -"(expand-context/outer-current-introduction-scopes the-struct_90)" -"(expand-context/outer-name the-struct_90)))" +"(expand-context/outer-reference-records the-struct_92)" +"(expand-context/outer-only-immediate? the-struct_92)" +"(expand-context/outer-need-eventually-defined the-struct_92)" +"(expand-context/outer-current-introduction-scopes the-struct_92)" +"(expand-context/outer-name the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))))" +" the-struct_92))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" -"((temp49_2)" -"(let-values(((ctx50_0) ctx_79)((s51_2) s_71)((temp52_6) #t))" -"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx50_0 s51_2))))" -"(expand-body7.1 temp49_2 #f #f sc-bodys47_0 body-ctx48_0))))" +"((temp49_3)" +"(let-values(((ctx50_0) ctx_79)((s51_2) s_71)((temp52_5) #t))" +"(keep-as-needed74.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" +"(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" "(if(expand-context-to-parsed? ctx_79)" "(unflatten-like-formals keys_7 formals_1)" @@ -63382,17 +63674,17 @@ static const char *startup_source = "(if(pair? s_166)" "(let-values(((lambda56_0)(let-values(((s_501)(car s_166))) s_501))" "((formals57_0 body58_0)" -"(let-values(((s_483)(cdr s_166)))" -"(let-values(((s_476)" -"(if(syntax?$1 s_483)" -"(syntax-e$1 s_483)" -" s_483)))" -"(if(pair? s_476)" +"(let-values(((s_482)(cdr s_166)))" +"(let-values(((s_475)" +"(if(syntax?$1 s_482)" +"(syntax-e$1 s_482)" +" s_482)))" +"(if(pair? s_475)" "(let-values(((formals59_0)" -"(let-values(((s_463)(car s_476)))" -" s_463))" +"(let-values(((s_483)(car s_475)))" +" s_483))" "((body60_0)" -"(let-values(((s_67)(cdr s_476)))" +"(let-values(((s_67)(cdr s_475)))" "(let-values(((s_80)" "(if(syntax?$1 s_67)" "(syntax-e$1 s_67)" @@ -63426,8 +63718,8 @@ static const char *startup_source = "(lambda-clause-expander s_15 disarmed-s_6 formals54_0 body55_0 ctx_80 'lambda-renames)))" "(if(expand-context-to-parsed? ctx_80)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" -"(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_7)(list* lambda53_0 formals_2 body_13)))" -"(rebuild5.1 #f #f rebuild-s64_0 temp65_7)))))))))))" +"(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_5)(list* lambda53_0 formals_2 body_13)))" +"(rebuild5.1 #f #f rebuild-s64_0 temp65_5)))))))))))" "(void" "(add-core-form!*" " 'λ" @@ -63652,8 +63944,8 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_82)((s94_0) s_505)((temp95_3) #t))" -"(keep-as-needed74.1 #f #f #f #f temp95_3 #t ctx93_0 s94_0))))" +"(let-values(((ctx93_0) ctx_82)((s94_0) s_505)((temp95_2) #t))" +"(keep-as-needed74.1 #f #f #f #f temp95_2 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" "(let-values(((lst_339) formals80_0)((lst_340) body81_0)((lst_205) clause88_0))" @@ -63729,7 +64021,7 @@ static const char *startup_source = " exp-body_3)" "(let-values(((rebuild-clause98_0)" " rebuild-clause_0)" -"((temp99_4)" +"((temp99_3)" "(list*" " exp-formals_0" " exp-body_3)))" @@ -63737,7 +64029,7 @@ static const char *startup_source = " #f" " #f" " rebuild-clause98_0" -" temp99_4)))))))" +" temp99_3)))))))" " fold-var_321))))" "(values fold-var_322)))))" "(if(not #f)" @@ -63757,7 +64049,7 @@ static const char *startup_source = "(parse-and-flatten-formals)" "(lambda(all-formals_0 sc_36 s_511)" "(begin" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_121)" "(lambda(formals_9)" "(begin" " 'loop" @@ -63767,7 +64059,7 @@ static const char *startup_source = "(let-values()" "(let-values(((p_87)(syntax-e$1 formals_9)))" "(if(pair? p_87)" -"(let-values()(loop_122 p_87))" +"(let-values()(loop_121 p_87))" "(if(null? p_87)" "(let-values() null)" " (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_511 p_87))))))" @@ -63780,29 +64072,29 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"not an identifier\" s_511 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" -"(loop_122(cdr formals_9)))))" +"(loop_121(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" " (raise-syntax-error$1 \"bad argument sequence\" s_511 all-formals_0))))))))))" -" loop_122)" +" loop_121)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_122)" "(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_123(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_122(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_123 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_122 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_123)" +" loop_122)" " keys_8" " formals_10))))" "(define-values" @@ -63985,15 +64277,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_385)" +"(if(let-values(((or-part_383)" "(if(syntax?$1" " s_517)" "(symbol?" "(syntax-e$1" " s_517))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_383" +" or-part_383" "(symbol?" " s_517)))" " s_517" @@ -64228,15 +64520,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_386)" +"(if(let-values(((or-part_384)" "(if(syntax?$1" " s_522)" "(symbol?" "(syntax-e$1" " s_522))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_384" +" or-part_384" "(symbol?" " s_522)))" " s_522" @@ -65560,10 +65852,10 @@ static const char *startup_source = "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_255) expr-ctx_0))" -"(let-values(((the-struct_91) v_255))" +"(let-values(((v_258) expr-ctx_0))" +"(let-values(((the-struct_93) v_258))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_93)" "(let-values(((env164_0) rec-env_0)" "((scopes165_0)" "(cons" @@ -65585,37 +65877,37 @@ static const char *startup_source = " sc_37))" "((inner168_0)" "(root-expand-context/outer-inner" -" v_255)))" +" v_258)))" "(expand-context/outer1.1" " inner168_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_93)" " env164_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_93)" " scopes165_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_93)" " binding-layer167_0" " reference-records166_0" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_93))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed? ctx_83))" @@ -65772,50 +66064,50 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_256)" +"(let-values(((v_259)" " rec-ctx_0))" -"(let-values(((the-struct_92)" -" v_256))" +"(let-values(((the-struct_94)" +" v_259))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_94)" "(let-values(((reference-records175_0)" " orig-rrs_0)" "((inner176_0)" "(root-expand-context/outer-inner" -" v_256)))" +" v_259)))" "(expand-context/outer1.1" " inner176_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_94)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_94)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-env" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-binding-layer" -" the-struct_92)" +" the-struct_94)" " reference-records175_0" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_94)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_94))))))" "(let-values(((bodys172_0)" " bodys_10)" "((temp173_0)" @@ -66376,7 +66668,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_404)" -"(let-values(((e_91)(unsafe-car lst_404))" +"(let-values(((e_92)(unsafe-car lst_404))" "((rest_231)" "(unsafe-cdr lst_404)))" "(let-values(((fold-var_383)" @@ -66398,7 +66690,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(let-values(((e235_0)" -" e_91)" +" e_92)" "((expr-ctx236_0)" " expr-ctx_1))" "(expand7.1" @@ -67077,7 +67369,7 @@ static const char *startup_source = "(let-values(((ctx334_0) ctx_91)((s335_0) s_636))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx334_0 s335_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_124)" +"((letrec-values(((loop_123)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -67133,8 +67425,8 @@ static const char *startup_source = " #f" " temp336_0" " temp337_1))" -"(loop_124 rest-es_1(sub1 index_6))))))))))))" -" loop_124)" +"(loop_123 rest-es_1(sub1 index_6))))))))))))" +" loop_123)" " e331_0" " list-start-index_0)))" "(begin" @@ -67162,8 +67454,8 @@ static const char *startup_source = "(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))" "(lambda(s_642 ctx_92)" "(let-values(((context_24)(expand-context-context ctx_92)))" -"(if(let-values(((or-part_387)(eq? context_24 'top-level)))" -"(if or-part_387 or-part_387(eq? context_24 'module)))" +"(if(let-values(((or-part_385)(eq? context_24 'top-level)))" +"(if or-part_385 or-part_385(eq? context_24 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_642)))" "(let-values(((ok?_50 begin346_0)" @@ -67254,15 +67546,15 @@ static const char *startup_source = "(let-values(((s_656)" "(cdr" " s_654)))" -"(if(let-values(((or-part_388)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" " s_656)" "(symbol?" "(syntax-e$1" " s_656))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_386" +" or-part_386" "(symbol?" " s_656)))" " s_656" @@ -67370,15 +67662,15 @@ static const char *startup_source = "(let-values(((s_660)" "(cdr" " s_658)))" -"(if(let-values(((or-part_389)" +"(if(let-values(((or-part_387)" "(if(syntax?$1" " s_660)" "(symbol?" "(syntax-e$1" " s_660))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_387" +" or-part_387" "(symbol?" " s_660)))" " s_660" @@ -67431,14 +67723,14 @@ static const char *startup_source = "(if(pair? s_668)" "(let-values(((id379_0)" "(let-values(((s_669)(car s_668)))" -"(if(let-values(((or-part_390)" +"(if(let-values(((or-part_388)" "(if(syntax?$1 s_669)" "(symbol?" "(syntax-e$1" " s_669))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_388" +" or-part_388" "(symbol? s_669)))" " s_669" "(raise-syntax-error$1" @@ -67526,14 +67818,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_120 'resolve id_129)))" "(void)))" -"(if(let-values(((or-part_391)(variable? t_58)))" -"(if or-part_391" -" or-part_391" +"(if(let-values(((or-part_389)(variable? t_58)))" +"(if or-part_389" +" or-part_389" "(if(not binding_30)" -"(let-values(((or-part_392)" +"(let-values(((or-part_390)" "(register-eventual-variable!? id_129 ctx_97)))" -"(if or-part_392" -" or-part_392" +"(if or-part_390" +" or-part_390" "(expand-context-allow-unbound? ctx_97)))" " #f)))" "(let-values()" @@ -67693,8 +67985,8 @@ static const char *startup_source = "(let-values(((ctx_98) ctx31_0))" "(let-values(((t_59)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_393) t_59))" -"(if or-part_393 or-part_393 from-rename?_1))" +"(if(let-values(((or-part_391) t_59))" +"(if or-part_391 or-part_391 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_59" @@ -67734,9 +68026,9 @@ static const char *startup_source = "(let-values(((s_683)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))" "(if(pair? s_683)" "(if(let-values(((s_684)(car s_683)))" -"(let-values(((or-part_394)" +"(let-values(((or-part_392)" "(if(syntax?$1 s_684)(symbol?(syntax-e$1 s_684)) #f)))" -"(if or-part_394 or-part_394(symbol? s_684))))" +"(if or-part_392 or-part_392(symbol? s_684))))" "(let-values(((s_685)(cdr s_683)))" "(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" "(null? s_686)))" @@ -67783,11 +68075,11 @@ static const char *startup_source = "(if(pair? s_700)" "(if(let-values(((s_701)(car s_700))) #t)" "(let-values(((s_702)(cdr s_700)))" -"(let-values(((or-part_395)" +"(let-values(((or-part_393)" "(if(syntax?$1 s_702)" "(symbol?(syntax-e$1 s_702))" " #f)))" -"(if or-part_395 or-part_395(symbol? s_702))))" +"(if or-part_393 or-part_393(symbol? s_702))))" " #f)" " #f)))" "(let-values(((s_703)(cdr s_698)))" @@ -67839,7 +68131,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference419_0)" "(let-values(((s_715) disarmed-s_22))" -"(if(if(not(let-values(((or-part_396) ok?_54))(if or-part_396 or-part_396 ok?_55)))" +"(if(if(not(let-values(((or-part_394) ok?_54))(if or-part_394 or-part_394 ok?_55)))" " #t" " #f)" "(let-values(((orig-s_59) s_715))" @@ -67864,7 +68156,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference419_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_397) ok?_54))(if or-part_397 or-part_397 ok?_55))" +"(if(let-values(((or-part_395) ok?_54))(if or-part_395 or-part_395 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id405_0 id411_0)))" "(let-values(((binding_31)" @@ -67880,8 +68172,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_398) binding_31))" -"(if or-part_398 or-part_398(expand-context-allow-unbound? ctx_101)))" +"(if(let-values(((or-part_396) binding_31))" +"(if or-part_396 or-part_396(expand-context-allow-unbound? ctx_101)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -68025,7 +68317,7 @@ static const char *startup_source = "(lambda(specs_0 orig-s_61 rp_1 self_30 phase_44 ctx_105)" "(begin" "(let-values(((ns_123)(expand-context-namespace ctx_105)))" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_112)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" @@ -68227,18 +68519,18 @@ static const char *startup_source = " s_731)))" " s_182))" "((spec10_0)" -"(let-values(((s_466)" +"(let-values(((s_465)" "(cdr" " s_731)))" -"(let-values(((s_473)" +"(let-values(((s_472)" "(if(syntax?$1" -" s_466)" +" s_465)" "(syntax-e$1" -" s_466)" -" s_466)))" +" s_465)" +" s_465)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_473)))" +" s_472)))" "(if(not" " flat-s_42)" "(let-values()" @@ -68285,7 +68577,7 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_114" +"(loop_112" " spec5_0" "(phase+" " p_73" @@ -68299,7 +68591,7 @@ static const char *startup_source = " track-stxes_5" "(let-values(((spec11_0)" " spec_0)" -"((temp12_6)" +"((temp12_7)" "(list*" " for-meta3_0" " phase-level4_0" @@ -68308,7 +68600,7 @@ static const char *startup_source = " #f" " #f" " spec11_0" -" temp12_6))))))))))))" +" temp12_7))))))))))))" "(if(unsafe-fx<" " index_7" " 3)" @@ -68375,7 +68667,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_114" +"(loop_112" " spec14_0" "(phase+" " 1" @@ -68425,10 +68717,10 @@ static const char *startup_source = "(if(pair?" " s_484)" "(let-values(((for-label21_0)" -"(let-values(((s_482)" +"(let-values(((s_481)" "(car" " s_484)))" -" s_482))" +" s_481))" "((spec22_0)" "(let-values(((s_45)" "(cdr" @@ -68464,7 +68756,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_114" +"(loop_112" " spec20_0" " #f" " protected?_15" @@ -68476,7 +68768,7 @@ static const char *startup_source = " track-stxes_7" "(let-values(((spec23_0)" " spec_0)" -"((temp24_11)" +"((temp24_10)" "(list*" " for-label19_0" " exp-specs_7)))" @@ -68484,7 +68776,7 @@ static const char *startup_source = " #f" " #f" " spec23_0" -" temp24_11)))))))))" +" temp24_10)))))))))" "(if(unsafe-fx<" " index_7" " 5)" @@ -68562,7 +68854,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_114" +"(loop_112" " p-spec26_0" " at-phase_13" " #t" @@ -68574,7 +68866,7 @@ static const char *startup_source = " track-stxes_8" "(let-values(((spec29_0)" " spec_0)" -"((temp30_6)" +"((temp30_5)" "(list*" " protect25_0" " exp-specs_8)))" @@ -68582,7 +68874,7 @@ static const char *startup_source = " #f" " #f" " spec29_0" -" temp30_6))))))))))" +" temp30_5))))))))))" "(let-values()" "(let-values((()" "(begin" @@ -68790,15 +69082,15 @@ static const char *startup_source = "(let-values(((s_740)" "(car" " s_739)))" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_363)" "(if(syntax?$1" " s_740)" "(symbol?" "(syntax-e$1" " s_740))" " #f)))" -"(if or-part_364" -" or-part_364" +"(if or-part_363" +" or-part_363" "(symbol?" " s_740)))" " s_740" @@ -68870,15 +69162,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" " s_65)" "(symbol?" "(syntax-e$1" " s_65))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_397" +" or-part_397" "(symbol?" " s_65)))" " s_65" @@ -69156,15 +69448,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" " s_497)" "(symbol?" "(syntax-e$1" " s_497))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_398" +" or-part_398" "(symbol?" " s_497)))" " s_497" @@ -69484,15 +69776,15 @@ static const char *startup_source = "(let-values(((s_513)" "(car" " s_512)))" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" " s_513)" "(symbol?" "(syntax-e$1" " s_513))" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_399" +" or-part_399" "(symbol?" " s_513)))" " s_513" @@ -69601,15 +69893,15 @@ static const char *startup_source = "(let-values(((s_342)" "(car" " s_339)))" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" " s_342)" "(symbol?" "(syntax-e$1" " s_342))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_400" +" or-part_400" "(symbol?" " s_342)))" " s_342" @@ -69794,15 +70086,15 @@ static const char *startup_source = "(let-values(((s_528)" "(car" " s_251)))" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" " s_528)" "(symbol?" "(syntax-e$1" " s_528))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_401" +" or-part_401" "(symbol?" " s_528)))" " s_528" @@ -69934,24 +70226,24 @@ static const char *startup_source = " expand95_1" " form96_1))))))" "(let-values(((exp-spec_0)" -"(let-values(((temp104_5)" +"(let-values(((temp104_4)" " form96_0)" -"((temp105_3)" -"(let-values(((v_257)" +"((temp105_4)" +"(let-values(((v_260)" " ctx_105))" -"(let-values(((the-struct_93)" -" v_257))" +"(let-values(((the-struct_95)" +" v_260))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_95)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_94)" +"(let-values(((the-struct_96)" "(root-expand-context/outer-inner" -" v_257)))" +" v_260)))" "(if(expand-context/inner?" -" the-struct_94)" +" the-struct_96)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -69961,98 +70253,98 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_94)" +" the-struct_96)" "(root-expand-context/inner-module-scopes" -" the-struct_94)" +" the-struct_96)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_94)" +" the-struct_96)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_94)" +" the-struct_96)" "(root-expand-context/inner-defined-syms" -" the-struct_94)" +" the-struct_96)" "(root-expand-context/inner-counter" -" the-struct_94)" +" the-struct_96)" "(root-expand-context/inner-lift-key" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-to-parsed?" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-phase" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-namespace" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-just-once?" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-module-begin-k" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-allow-unbound?" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-in-local-expand?" -" the-struct_94)" +" the-struct_96)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-lifts" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-lift-envs" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-module-lifts" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-require-lifts" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-to-module-lifts" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-requires+provides" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-observer" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-for-serializable?" -" the-struct_94)" +" the-struct_96)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_94)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_94)))))" +" the-struct_96)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_95)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_95))))))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp104_5" -" temp105_3))))" +" temp104_4" +" temp105_4))))" "(let-values((()" "(begin" "(if(if(pair?" @@ -70134,7 +70426,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_114" +"(loop_112" " spec101_0" " at-phase_13" " protected?_15" @@ -70172,7 +70464,7 @@ static const char *startup_source = " lst_78)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_114)" +" loop_112)" " specs_0" " phase_44" " #f" @@ -70384,7 +70676,7 @@ static const char *startup_source = "(let-values(((phase_149)" "(required-phase" " i_191)))" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_402)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -70400,8 +70692,8 @@ static const char *startup_source = " phase_149)" " #f))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_402" +" or-part_402" "(let-values(((lst_413)" " except-ids_1))" "(begin" @@ -70543,13 +70835,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_403)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_405" -" or-part_405" +"(if or-part_403" +" or-part_403" "(let-values(((lst_415)" " requireds_2))" "(begin" @@ -70691,23 +70983,23 @@ static const char *startup_source = " lst_417)))" "(void)))))" "((check-expr_0)" -"(lambda(e_92 num-results_0 enclosing_15)" +"(lambda(e_93 num-results_0 enclosing_15)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_92)" +"(if(parsed-lambda? e_93)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_92)))" -"(if(parsed-case-lambda? e_92)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_93)))" +"(if(parsed-case-lambda? e_93)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_92)))" -"(if(parsed-quote? e_92)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_93)))" +"(if(parsed-quote? e_93)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_92) e_92)" +"(check-datum(parsed-quote-datum e_93) e_93)" "(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_92)" +"(if(parsed-app? e_93)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_92)))" +"(let-values(((rands_1)(parsed-app-rands e_93)))" "(begin" "(let-values(((lst_79) rands_1))" "(begin" @@ -70730,7 +71022,7 @@ static const char *startup_source = "(check-expr_0" " rand_0" " 1" -" e_92))" +" e_93))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_81 rest_240)(values))))" @@ -70738,7 +71030,7 @@ static const char *startup_source = " for-loop_81)" " lst_79)))" "(void)" -"(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_92))))" +"(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_93))))" "(if(if(equal? tmp_66 'cons) #t(equal? tmp_66 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" "(if(equal? tmp_66 'make-struct-type)" @@ -70747,21 +71039,21 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_66 'gensym)" "(let-values()" -"(if(let-values(((or-part_372)(= 0(length rands_1))))" -"(if or-part_372" -" or-part_372" +"(if(let-values(((or-part_370)(= 0(length rands_1))))" +"(if or-part_370" +" or-part_370" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" -"(let-values()(disallow e_92))))" +"(let-values()(disallow e_93))))" "(if(equal? tmp_66 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" -"(let-values()(disallow e_92))))" -"(let-values()(disallow e_92)))))))))))" -"(let-values()(check-no-disallowed-expr_0 e_92)))))))))" +"(let-values()(disallow e_93))))" +"(let-values()(disallow e_93)))))))))))" +"(let-values()(check-no-disallowed-expr_0 e_93)))))))))" "((check-no-disallowed-expr_0)" "(lambda(e_39)" "(begin" @@ -70812,7 +71104,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_266)" -"(let-values(((e_93)(unsafe-car lst_266))" +"(let-values(((e_94)(unsafe-car lst_266))" "((rest_192)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" @@ -70821,7 +71113,7 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_93))" +" e_94))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_106 rest_192)(values))))" @@ -70917,7 +71209,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_272)" -"(let-values(((e_94)(unsafe-car lst_272))" +"(let-values(((e_95)(unsafe-car lst_272))" "((rest_146)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" @@ -70926,7 +71218,7 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_94))" +" e_95))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_331 rest_146)(values))))" @@ -70941,7 +71233,7 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_37 e_95)" +"(lambda(d_37 e_96)" "(begin" "(if(let-values(((or-part_163)(number? d_37)))" "(if or-part_163" @@ -70957,10 +71249,10 @@ static const char *startup_source = " or-part_172" "(let-values(((or-part_173)(bytes? d_37)))(if or-part_173 or-part_173(null? d_37)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_95))))))" +"(let-values()(disallow e_96))))))" "(define-values" "(quoted-string?)" -"(lambda(e_96)(begin(if(parsed-quote? e_96)(string?(parsed-quote-datum e_96)) #f))))" +"(lambda(e_97)(begin(if(parsed-quote? e_97)(string?(parsed-quote-datum e_97)) #f))))" "(define-values" "(cross-phase-primitive-name)" "(lambda(id_151)" @@ -71020,57 +71312,57 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_86)))" "((expand-context-module-begin-k ctx_109)" " s_86" -"(let-values(((v_258) ctx_109))" -"(let-values(((the-struct_95) v_258))" -"(if(expand-context/outer? the-struct_95)" +"(let-values(((v_261) ctx_109))" +"(let-values(((the-struct_97) v_261))" +"(if(expand-context/outer? the-struct_97)" "(let-values(((inner226_0)" -"(let-values(((the-struct_96)(root-expand-context/outer-inner v_258)))" -"(if(expand-context/inner? the-struct_96)" +"(let-values(((the-struct_98)(root-expand-context/outer-inner v_261)))" +"(if(expand-context/inner? the-struct_98)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_96)" -"(root-expand-context/inner-module-scopes the-struct_96)" -"(root-expand-context/inner-top-level-bind-scope the-struct_96)" -"(root-expand-context/inner-all-scopes-stx the-struct_96)" -"(root-expand-context/inner-defined-syms the-struct_96)" -"(root-expand-context/inner-counter the-struct_96)" -"(root-expand-context/inner-lift-key the-struct_96)" -"(expand-context/inner-to-parsed? the-struct_96)" -"(expand-context/inner-phase the-struct_96)" -"(expand-context/inner-namespace the-struct_96)" -"(expand-context/inner-just-once? the-struct_96)" +"(root-expand-context/inner-self-mpi the-struct_98)" +"(root-expand-context/inner-module-scopes the-struct_98)" +"(root-expand-context/inner-top-level-bind-scope the-struct_98)" +"(root-expand-context/inner-all-scopes-stx the-struct_98)" +"(root-expand-context/inner-defined-syms the-struct_98)" +"(root-expand-context/inner-counter the-struct_98)" +"(root-expand-context/inner-lift-key the-struct_98)" +"(expand-context/inner-to-parsed? the-struct_98)" +"(expand-context/inner-phase the-struct_98)" +"(expand-context/inner-namespace the-struct_98)" +"(expand-context/inner-just-once? the-struct_98)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_96)" -"(expand-context/inner-in-local-expand? the-struct_96)" -"(expand-context/inner-stops the-struct_96)" -"(expand-context/inner-declared-submodule-names the-struct_96)" -"(expand-context/inner-lifts the-struct_96)" -"(expand-context/inner-lift-envs the-struct_96)" -"(expand-context/inner-module-lifts the-struct_96)" -"(expand-context/inner-require-lifts the-struct_96)" -"(expand-context/inner-to-module-lifts the-struct_96)" -"(expand-context/inner-requires+provides the-struct_96)" -"(expand-context/inner-observer the-struct_96)" -"(expand-context/inner-for-serializable? the-struct_96)" -"(expand-context/inner-should-not-encounter-macros? the-struct_96)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_96)))))" +"(expand-context/inner-allow-unbound? the-struct_98)" +"(expand-context/inner-in-local-expand? the-struct_98)" +"(expand-context/inner-stops the-struct_98)" +"(expand-context/inner-declared-submodule-names the-struct_98)" +"(expand-context/inner-lifts the-struct_98)" +"(expand-context/inner-lift-envs the-struct_98)" +"(expand-context/inner-module-lifts the-struct_98)" +"(expand-context/inner-require-lifts the-struct_98)" +"(expand-context/inner-to-module-lifts the-struct_98)" +"(expand-context/inner-requires+provides the-struct_98)" +"(expand-context/inner-observer the-struct_98)" +"(expand-context/inner-for-serializable? the-struct_98)" +"(expand-context/inner-should-not-encounter-macros? the-struct_98)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_98)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_95)" -"(root-expand-context/outer-use-site-scopes the-struct_95)" -"(root-expand-context/outer-frame-id the-struct_95)" -"(expand-context/outer-context the-struct_95)" -"(expand-context/outer-env the-struct_95)" -"(expand-context/outer-post-expansion-scope-action the-struct_95)" -"(expand-context/outer-scopes the-struct_95)" -"(expand-context/outer-def-ctx-scopes the-struct_95)" -"(expand-context/outer-binding-layer the-struct_95)" -"(expand-context/outer-reference-records the-struct_95)" -"(expand-context/outer-only-immediate? the-struct_95)" -"(expand-context/outer-need-eventually-defined the-struct_95)" -"(expand-context/outer-current-introduction-scopes the-struct_95)" -"(expand-context/outer-name the-struct_95)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_95)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_97)" +"(root-expand-context/outer-use-site-scopes the-struct_97)" +"(root-expand-context/outer-frame-id the-struct_97)" +"(expand-context/outer-context the-struct_97)" +"(expand-context/outer-env the-struct_97)" +"(expand-context/outer-post-expansion-scope-action the-struct_97)" +"(expand-context/outer-scopes the-struct_97)" +"(expand-context/outer-def-ctx-scopes the-struct_97)" +"(expand-context/outer-binding-layer the-struct_97)" +"(expand-context/outer-reference-records the-struct_97)" +"(expand-context/outer-only-immediate? the-struct_97)" +"(expand-context/outer-need-eventually-defined the-struct_97)" +"(expand-context/outer-current-introduction-scopes the-struct_97)" +"(expand-context/outer-name the-struct_97)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_97)))))))))" "(void" "(add-core-form!*" " '#%declare" @@ -71156,15 +71448,15 @@ static const char *startup_source = "(let-values(((s_490)" "(car" " s_762)))" -"(if(let-values(((or-part_380)" +"(if(let-values(((or-part_378)" "(if(syntax?$1" " s_490)" "(symbol?" "(syntax-e$1" " s_490))" " #f)))" -"(if or-part_380" -" or-part_380" +"(if or-part_378" +" or-part_378" "(symbol?" " s_490)))" " s_490" @@ -71386,18 +71678,18 @@ static const char *startup_source = "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_99)" " v_102))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_99)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_98)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" " v_102)))" "(if(expand-context/inner?" -" the-struct_98)" +" the-struct_100)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" @@ -71408,88 +71700,88 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_98)" +" the-struct_100)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_98)" +" the-struct_100)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-stops" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-declared-submodule-names" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_98)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_98)))))" +" the-struct_100)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_99)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_99)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-env" -" the-struct_97)" +" the-struct_99)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-reference-records" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_99))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -71743,18 +72035,18 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_112)" -"(let-values(((v_259)" +"(let-values(((v_262)" " mb-init-ctx_0))" -"(let-values(((the-struct_99)" -" v_259))" +"(let-values(((the-struct_101)" +" v_262))" "(if(expand-context/outer?" -" the-struct_99)" +" the-struct_101)" "(let-values(((inner306_0)" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" -" v_259)))" +" v_262)))" "(if(expand-context/inner?" -" the-struct_100)" +" the-struct_102)" "(let-values(((module-begin-k307_0)" "(lambda(s_302" " ctx_113)" @@ -71805,92 +72097,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-module-scopes" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_100)" +" the-struct_102)" "(root-expand-context/inner-lift-key" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-to-parsed?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-phase" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-namespace" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-just-once?" -" the-struct_100)" +" the-struct_102)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-in-local-expand?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-stops" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-declared-submodule-names" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-lifts" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-lift-envs" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-module-lifts" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-require-lifts" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-to-module-lifts" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-requires+provides" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_100)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_100)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_100)))))" +" the-struct_102)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_99)" +" the-struct_101)" "(root-expand-context/outer-use-site-scopes" -" the-struct_99)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-context" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-env" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-scopes" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-def-ctx-scopes" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-binding-layer" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-need-eventually-defined" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-current-introduction-scopes" -" the-struct_99)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_99)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_99))))))" +" the-struct_101))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -72004,12 +72296,12 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_112)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_260)" +"(let-values(((v_263)" " ctx_112))" -"(let-values(((the-struct_101)" -" v_260))" +"(let-values(((the-struct_103)" +" v_263))" "(if(expand-context/outer?" -" the-struct_101)" +" the-struct_103)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -72017,11 +72309,11 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_260)))" +" v_263)))" "(if(expand-context/inner?" -" the-struct_102)" +" the-struct_104)" "(let-values(((phase330_0)" " phase_152)" "((namespace331_0)" @@ -72083,81 +72375,81 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_102)" +" the-struct_104)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_102)" +" the-struct_104)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-module-begin-k" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-allow-unbound?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_102)" +" the-struct_104)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_102)" +" the-struct_104)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_102)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_102)))))" +" the-struct_104)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_101)" +" the-struct_103)" "(root-expand-context/outer-use-site-scopes" -" the-struct_101)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_101)" +" the-struct_103)" " context326_0" "(expand-context/outer-env" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_101)" +" the-struct_103)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_101)" +" the-struct_103)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_101)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_101))))))" +" the-struct_103))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" @@ -72222,24 +72514,24 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_261)" +"(let-values(((v_264)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_103)" -" v_261))" +"(let-values(((the-struct_105)" +" v_264))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_105)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_261)))" +" v_264)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_106)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" @@ -72255,89 +72547,89 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-namespace" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-just-once?" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_106)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_106)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_105)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_105))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" @@ -72458,110 +72750,110 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_262)" +"(let-values(((v_265)" " ctx_112))" -"(let-values(((the-struct_105)" -" v_262))" +"(let-values(((the-struct_107)" +" v_265))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_107)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_262)))" +" v_265)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_108)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_108)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-stops" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-to-module-lifts" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_107)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_107))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -72678,110 +72970,110 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_263)" +"(let-values(((v_266)" " ctx_111))" -"(let-values(((the-struct_107)" -" v_263))" +"(let-values(((the-struct_109)" +" v_266))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_109)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_263)))" +" v_266)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_110)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_110)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_110)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-to-module-lifts" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_110)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_109)" "(root-expand-context/outer-frame-id" -" the-struct_107)" +" the-struct_109)" " context409_0" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_109)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_109))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -73006,33 +73298,33 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_264) ctx_114))" -"(let-values(((the-struct_109) v_264))" -"(if(expand-context/outer? the-struct_109)" +"(let-values(((v_267) ctx_114))" +"(let-values(((the-struct_111) v_267))" +"(if(expand-context/outer? the-struct_111)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" -"((inner431_0)(root-expand-context/outer-inner v_264)))" +"((inner431_0)(root-expand-context/outer-inner v_267)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_109)" -"(root-expand-context/outer-use-site-scopes the-struct_109)" -"(root-expand-context/outer-frame-id the-struct_109)" +"(root-expand-context/outer-post-expansion-scope the-struct_111)" +"(root-expand-context/outer-use-site-scopes the-struct_111)" +"(root-expand-context/outer-frame-id the-struct_111)" " context428_0" -"(expand-context/outer-env the-struct_109)" -"(expand-context/outer-post-expansion-scope-action the-struct_109)" -"(expand-context/outer-scopes the-struct_109)" +"(expand-context/outer-env the-struct_111)" +"(expand-context/outer-post-expansion-scope-action the-struct_111)" +"(expand-context/outer-scopes the-struct_111)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_109)" -"(expand-context/outer-reference-records the-struct_109)" +"(expand-context/outer-binding-layer the-struct_111)" +"(expand-context/outer-reference-records the-struct_111)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_109)" -"(expand-context/outer-current-introduction-scopes the-struct_109)" -"(expand-context/outer-name the-struct_109)))" +"(expand-context/outer-need-eventually-defined the-struct_111)" +"(expand-context/outer-current-introduction-scopes the-struct_111)" +"(expand-context/outer-name the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))))" +" the-struct_111))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -73258,7 +73550,7 @@ static const char *startup_source = "(let-values()" "(begin" "(namespace-visit-available-modules! m-ns_19 phase_155)" -"((letrec-values(((loop_125)" +"((letrec-values(((loop_124)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" @@ -73304,7 +73596,7 @@ static const char *startup_source = "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_125" +"(loop_124" " #t" "(add-post-expansion-scope" " bodys_22" @@ -73432,11 +73724,11 @@ static const char *startup_source = " begin460_1" " e461_1))))))" "(let-values(((track_1)" -"(lambda(e_97)" +"(lambda(e_98)" "(begin" " 'track" "(syntax-track-origin$1" -" e_97" +" e_98" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -73456,7 +73748,7 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_125" +"(loop_124" " tail?_52" " spliced-bodys_0))))))" "(if(equal?" @@ -73658,7 +73950,7 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" @@ -73771,15 +74063,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_404)" "(if(syntax?$1" " s_783)" "(symbol?" "(syntax-e$1" " s_783))" " #f)))" -"(if or-part_406" -" or-part_406" +"(if or-part_404" +" or-part_404" "(symbol?" " s_783)))" " s_783" @@ -73962,7 +74254,7 @@ static const char *startup_source = " syms_24" " ids_43" " rhs470_0)" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" @@ -74096,15 +74388,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_405)" "(if(syntax?$1" " s_544)" "(symbol?" "(syntax-e$1" " s_544))" " #f)))" -"(if or-part_407" -" or-part_407" +"(if or-part_405" +" or-part_405" "(symbol?" " s_544)))" " s_544" @@ -74276,20 +74568,20 @@ static const char *startup_source = "((ids520_0)" " ids_44)" "((temp521_0)" -"(let-values(((v_265)" +"(let-values(((v_268)" " partial-body-ctx_1))" -"(let-values(((the-struct_110)" -" v_265))" +"(let-values(((the-struct_112)" +" v_268))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_112)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_265)))" +" v_268)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_113)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -74298,89 +74590,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-namespace" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" +" the-struct_113)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_113)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_113)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_113)))))" "(expand-context/outer1.1" " inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" +" the-struct_112)" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_112)" "(root-expand-context/outer-frame-id" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-context" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-def-ctx-scopes" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_112)" " need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_112)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110)))))" +" the-struct_112)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -74525,7 +74817,7 @@ static const char *startup_source = " exp-body528_0" " temp529_0))" " parsed-body_0))" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" @@ -74666,7 +74958,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1)))))))" "(if(equal?" @@ -74675,7 +74967,7 @@ static const char *startup_source = "(let-values()" "(cons" " exp-body_7" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1)))" "(if(equal?" @@ -74722,7 +75014,7 @@ static const char *startup_source = " partial-body-ctx545_0))))" "(cons" " submod_2" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1)))))" "(if(equal?" @@ -74751,7 +75043,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1))))" "(if(equal?" @@ -74904,13 +75196,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_125" +"(loop_124" " tail?_52" " rest-bodys_1)))))))))))))))))" "(let-values(((l_83)" @@ -74919,7 +75211,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_125" +"(loop_124" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -74931,7 +75223,7 @@ static const char *startup_source = "(append" " l_83" "(finish_2)))))))))))))))))" -" loop_125)" +" loop_124)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" @@ -75053,7 +75345,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_126)" +"((letrec-values(((loop_125)" "(lambda(tail?_53 bodys_24)" "(begin" " 'loop" @@ -75095,7 +75387,7 @@ static const char *startup_source = "(void)))" " null))" "(let-values()" -"(loop_126" +"(loop_125" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" @@ -75113,14 +75405,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_408)" +"(if(let-values(((or-part_406)" "(parsed? body_24)))" -"(if or-part_408" -" or-part_408" -"(let-values(((or-part_409)" +"(if or-part_406" +" or-part_406" +"(let-values(((or-part_407)" "(expanded+parsed? body_24)))" -"(if or-part_409" -" or-part_409" +"(if or-part_407" +" or-part_407" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -75441,7 +75733,7 @@ static const char *startup_source = " self586_0" " body-ctx587_0))))" "(let-values(((exp-lifted-defns_0)" -"(loop_126 #f lifted-defns_1)))" +"(loop_125 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" @@ -75462,10 +75754,10 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_126" +"(loop_125" " tail?_53" " rest-bodys_2)))))))))))))))))))))" -" loop_126)" +" loop_125)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" @@ -75594,34 +75886,34 @@ static const char *startup_source = "(let-values(((ctx_117) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_127)" +"((letrec-values(((loop_126)" "(lambda(bodys_26 phase_160)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_410)(parsed?(car bodys_26))))" -"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_408)(parsed?(car bodys_26))))" +"(if or-part_408 or-part_408(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_160)))" +"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_160)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_127" +"(loop_126" "(semi-parsed-begin-for-syntax-body(car bodys_26))" "(add1 phase_160))))" "(cons" -"(let-values(((the-struct_112)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_112)" +"(let-values(((the-struct_114)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_114)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_112)" +"(semi-parsed-begin-for-syntax-s the-struct_114)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_112)))" -"(loop_127(cdr bodys_26) phase_160))))" +" the-struct_114)))" +"(loop_126(cdr bodys_26) phase_160))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_69)" @@ -75703,19 +75995,19 @@ static const char *startup_source = " requires+provides_9" " self_38" " phase_160" -"(let-values(((v_266) ctx_117))" -"(let-values(((the-struct_113)" -" v_266))" +"(let-values(((v_269) ctx_117))" +"(let-values(((the-struct_115)" +" v_269))" "(if(expand-context/outer?" -" the-struct_113)" +" the-struct_115)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_266)))" +" v_269)))" "(if(expand-context/inner?" -" the-struct_114)" +" the-struct_116)" "(let-values(((phase601_0)" " phase_160)" "((namespace602_0)" @@ -75728,91 +76020,91 @@ static const char *startup_source = " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_114)" +" the-struct_116)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-stops" -" the-struct_114)" +" the-struct_116)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-module-lifts" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-to-module-lifts" -" the-struct_114)" +" the-struct_116)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_114)))))" +" the-struct_116)))))" "(expand-context/outer1.1" " inner600_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/outer-use-site-scopes" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/outer-frame-id" -" the-struct_113)" +" the-struct_115)" " context599_0" "(expand-context/outer-env" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-scopes" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-def-ctx-scopes" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-binding-layer" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-reference-records" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-only-immediate?" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-need-eventually-defined" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-current-introduction-scopes" -" the-struct_113)" +" the-struct_115)" "(expand-context/outer-name" -" the-struct_113)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113)))))))" +" the-struct_115)))))))" "(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_127(cdr bodys_26) phase_160))" +"(loop_126(cdr bodys_26) phase_160))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -75842,14 +76134,14 @@ static const char *startup_source = "(void)))" "(cons" " new-s_10" -"(loop_127" +"(loop_126" "(cdr bodys_26)" " phase_160))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_160))))))))))))))" -" loop_127)" +"(loop_126(cdr bodys_26) phase_160))))))))))))))" +" loop_126)" " expression-expanded-bodys_1" " phase_159)))))))))))))" "(define-values" @@ -75896,8 +76188,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_411) enclosing-self_3))" -"(if or-part_411 or-part_411 self_39)))))" +"(let-values(((or-part_409) enclosing-self_3))" +"(if or-part_409 or-part_409 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -76002,7 +76294,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_128)" +"((letrec-values(((loop_127)" "(lambda(bodys_27 phase_162)" "(begin" " 'loop" @@ -76083,7 +76375,7 @@ static const char *startup_source = " submod-ctx621_0" " body-s622_0))))" "(let-values(((nested-bodys_3)" -"(loop_128" +"(loop_127" "(semi-parsed-begin-for-syntax-body" " body_25)" "(add1 phase_162))))" @@ -76109,13 +76401,13 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_162))))))))" -"(if(let-values(((or-part_412)(parsed? body_25)))" -"(if or-part_412" -" or-part_412" +"(loop_127 rest-bodys_3 phase_162))))))))" +"(if(let-values(((or-part_410)(parsed? body_25)))" +"(if or-part_410" +" or-part_410" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_162)))" +"(cons body_25(loop_127 rest-bodys_3 phase_162)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" @@ -76335,10 +76627,10 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_117)" " submod_4))" "(if(expanded+parsed?" -" the-struct_115)" +" the-struct_117)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" @@ -76347,11 +76639,11 @@ static const char *startup_source = "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_115)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_115))))" +" the-struct_117))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" @@ -76392,16 +76684,16 @@ static const char *startup_source = " submod-ctx649_0))))))" "(cons" " submod_3" -"(loop_128" +"(loop_127" " rest-bodys_3" " phase_162)))))))" "(let-values()" "(cons" " body_25" -"(loop_128" +"(loop_127" " rest-bodys_3" " phase_162)))))))))))))))))" -" loop_128)" +" loop_127)" " fully-expanded-bodys-except-post-submodules_2" " phase_161)))))))))))))))))" "(define-values" @@ -76589,19 +76881,19 @@ static const char *startup_source = " lst_445" " lst_446)))" "(void)))))" -"(if(let-values(((or-part_413)" +"(if(let-values(((or-part_411)" "(parsed-define-syntaxes?" " p_88)))" -"(if or-part_413" -" or-part_413" +"(if or-part_411" +" or-part_411" "(semi-parsed-begin-for-syntax?" " p_88)))" "(let-values()(void))" -"(if(let-values(((or-part_414)" +"(if(let-values(((or-part_412)" "(parsed-#%declare?" " p_88)))" -"(if or-part_414" -" or-part_414" +"(if or-part_412" +" or-part_412" "(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" @@ -76771,106 +77063,106 @@ static const char *startup_source = "(let-values(((submod_5)" "(let-values(((s670_0) s_847)" "((temp671_0)" -"(let-values(((v_267) ctx_121))" -"(let-values(((the-struct_116) v_267))" -"(if(expand-context/outer? the-struct_116)" +"(let-values(((v_270) ctx_121))" +"(let-values(((the-struct_118) v_270))" +"(if(expand-context/outer? the-struct_118)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_267)))" +" v_270)))" "(if(expand-context/inner?" -" the-struct_117)" +" the-struct_119)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_117)" +" the-struct_119)" "(root-expand-context/inner-module-scopes" -" the-struct_117)" +" the-struct_119)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_117)" +" the-struct_119)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_117)" +" the-struct_119)" "(root-expand-context/inner-defined-syms" -" the-struct_117)" +" the-struct_119)" "(root-expand-context/inner-counter" -" the-struct_117)" +" the-struct_119)" "(root-expand-context/inner-lift-key" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-to-parsed?" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-phase" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-namespace" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-just-once?" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-module-begin-k" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-allow-unbound?" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-in-local-expand?" -" the-struct_117)" +" the-struct_119)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-lifts" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-lift-envs" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-module-lifts" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-require-lifts" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-to-module-lifts" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-requires+provides" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-observer" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-for-serializable?" -" the-struct_117)" +" the-struct_119)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_117)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_117)))))" +" the-struct_119)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/outer-frame-id" -" the-struct_116)" +" the-struct_118)" " context680_0" "(expand-context/outer-env" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-scopes" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-def-ctx-scopes" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-binding-layer" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-reference-records" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-only-immediate?" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-need-eventually-defined" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-current-introduction-scopes" -" the-struct_116)" +" the-struct_118)" "(expand-context/outer-name" -" the-struct_116)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_116)))))" +" the-struct_118)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -77004,67 +77296,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_118) submod_5))" -"(if(expanded+parsed? the-struct_118)" +"(let-values(((the-struct_120) submod_5))" +"(if(expanded+parsed? the-struct_120)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_121)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_119)" +"(if(parsed-module? the-struct_121)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_119)" +"(parsed-s the-struct_121)" " star?696_0" "(parsed-module-name-id" -" the-struct_119)" +" the-struct_121)" "(parsed-module-self" -" the-struct_119)" +" the-struct_121)" "(parsed-module-requires" -" the-struct_119)" +" the-struct_121)" "(parsed-module-provides" -" the-struct_119)" +" the-struct_121)" "(parsed-module-root-ctx-simple?" -" the-struct_119)" +" the-struct_121)" "(parsed-module-encoded-root-ctx" -" the-struct_119)" +" the-struct_121)" "(parsed-module-body" -" the-struct_119)" +" the-struct_121)" "(parsed-module-compiled-module" -" the-struct_119)" +" the-struct_121)" "(parsed-module-compiled-submodules" -" the-struct_119)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_119)))))" +" the-struct_121)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_118)" +"(expanded+parsed-s the-struct_120)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_118))))" +" the-struct_120))))" "(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(parsed-module? the-struct_120)" +"(let-values(((the-struct_122) submod_5))" +"(if(parsed-module? the-struct_122)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_120)" +"(parsed-s the-struct_122)" " star?697_0" -"(parsed-module-name-id the-struct_120)" -"(parsed-module-self the-struct_120)" -"(parsed-module-requires the-struct_120)" -"(parsed-module-provides the-struct_120)" -"(parsed-module-root-ctx-simple? the-struct_120)" -"(parsed-module-encoded-root-ctx the-struct_120)" -"(parsed-module-body the-struct_120)" -"(parsed-module-compiled-module the-struct_120)" +"(parsed-module-name-id the-struct_122)" +"(parsed-module-self the-struct_122)" +"(parsed-module-requires the-struct_122)" +"(parsed-module-provides the-struct_122)" +"(parsed-module-root-ctx-simple? the-struct_122)" +"(parsed-module-encoded-root-ctx the-struct_122)" +"(parsed-module-body the-struct_122)" +"(parsed-module-compiled-module the-struct_122)" "(parsed-module-compiled-submodules" -" the-struct_120)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_120)))))))))))))))))))))))))))))))))))" +" the-struct_122)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77719,9 +78011,9 @@ static const char *startup_source = "(values #t define-values1_1 id2_2 rhs3_1))))))" "(let-values(((ids_50 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_8)" -"(let-values(((temp11_8) rhs3_0)" -"((temp12_7)(as-named-context(as-expression-context ctx_7) ids_50)))" -"(expand7.1 #f #f #f #f temp11_8 temp12_7))))" +"(let-values(((temp11_7) rhs3_0)" +"((temp12_8)(as-named-context(as-expression-context ctx_7) ids_50)))" +"(expand7.1 #f #f #f #f temp11_7 temp12_8))))" "(if(expand-context-to-parsed? ctx_7)" "(parsed-define-values19.1 s_0 ids_50 syms_28 exp-rhs_8)" "(let-values(((s13_0) s_0)((temp14_9)(list define-values1_0 ids_50 exp-rhs_8)))" @@ -77758,21 +78050,21 @@ static const char *startup_source = "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_467)(cdr s_20)))" +"(let-values(((s_466)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_467)" -"(syntax-e$1 s_467)" -" s_467)))" +"(if(syntax?$1 s_466)" +"(syntax-e$1 s_466)" +" s_466)))" "(if(pair? s_24)" "(let-values(((id21_0)" "(let-values(((s_732)(car s_24)))" -"(let-values(((s_475)" +"(let-values(((s_474)" "(if(syntax?$1 s_732)" "(syntax-e$1 s_732)" " s_732)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_475)))" +" s_474)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -77845,28 +78137,28 @@ static const char *startup_source = "(reverse$1 id_172))))))))" "((rhs22_0)" "(let-values(((s_501)(cdr s_24)))" -"(let-values(((s_483)" +"(let-values(((s_482)" "(if(syntax?$1 s_501)" "(syntax-e$1 s_501)" " s_501)))" -"(if(pair? s_483)" +"(if(pair? s_482)" "(let-values(((rhs23_2)" "(let-values(((s_169)" "(car" -" s_483)))" +" s_482)))" " s_169))" "(()" "(let-values(((s_44)" "(cdr" -" s_483)))" -"(let-values(((s_463)" +" s_482)))" +"(let-values(((s_483)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_463)" +" s_483)" "(values)" "(raise-syntax-error$1" " #f" @@ -77887,8 +78179,8 @@ static const char *startup_source = "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" "(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_2 s_878 ctx_126)))" "(let-values(((exp-rhs_9)" -"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_126 ids_51)))" -"(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))" +"(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_51)))" +"(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_126)" "(parsed-define-syntaxes20.1 s_878 ids_51 syms_29 exp-rhs_9)" "(let-values(((s27_3) s_878)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_9)))" @@ -77938,70 +78230,70 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_10)((temp34_5) 'top-level)((temp35_3) #t))" -"(context->transformer-context55.1 temp35_3 #t ctx33_0 temp34_5 #t))))" +"(let-values(((ctx33_0) ctx_10)((temp34_5) 'top-level)((temp35_4) #t))" +"(context->transformer-context55.1 temp35_4 #t ctx33_0 temp34_5 #t))))" "(let-values(((lift-ctx_7)" -"(let-values(((temp36_8)(make-top-level-lift trans-ctx_1)))" -"(make-lift-context6.1 #f #f temp36_8))))" +"(let-values(((temp36_10)(make-top-level-lift trans-ctx_1)))" +"(make-lift-context6.1 #f #f temp36_10))))" "(let-values(((capture-ctx_1)" "(let-values(((v_77) trans-ctx_1))" -"(let-values(((the-struct_121) v_77))" -"(if(expand-context/outer? the-struct_121)" +"(let-values(((the-struct_123) v_77))" +"(if(expand-context/outer? the-struct_123)" "(let-values(((inner37_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_124)" "(root-expand-context/outer-inner v_77)))" -"(if(expand-context/inner? the-struct_122)" +"(if(expand-context/inner? the-struct_124)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_122)" -"(root-expand-context/inner-module-scopes the-struct_122)" +"(root-expand-context/inner-self-mpi the-struct_124)" +"(root-expand-context/inner-module-scopes the-struct_124)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_122)" -"(root-expand-context/inner-all-scopes-stx the-struct_122)" -"(root-expand-context/inner-defined-syms the-struct_122)" -"(root-expand-context/inner-counter the-struct_122)" +" the-struct_124)" +"(root-expand-context/inner-all-scopes-stx the-struct_124)" +"(root-expand-context/inner-defined-syms the-struct_124)" +"(root-expand-context/inner-counter the-struct_124)" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_122)" -"(expand-context/inner-phase the-struct_122)" -"(expand-context/inner-namespace the-struct_122)" -"(expand-context/inner-just-once? the-struct_122)" -"(expand-context/inner-module-begin-k the-struct_122)" -"(expand-context/inner-allow-unbound? the-struct_122)" -"(expand-context/inner-in-local-expand? the-struct_122)" -"(expand-context/inner-stops the-struct_122)" -"(expand-context/inner-declared-submodule-names the-struct_122)" +"(expand-context/inner-to-parsed? the-struct_124)" +"(expand-context/inner-phase the-struct_124)" +"(expand-context/inner-namespace the-struct_124)" +"(expand-context/inner-just-once? the-struct_124)" +"(expand-context/inner-module-begin-k the-struct_124)" +"(expand-context/inner-allow-unbound? the-struct_124)" +"(expand-context/inner-in-local-expand? the-struct_124)" +"(expand-context/inner-stops the-struct_124)" +"(expand-context/inner-declared-submodule-names the-struct_124)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_122)" -"(expand-context/inner-module-lifts the-struct_122)" -"(expand-context/inner-require-lifts the-struct_122)" -"(expand-context/inner-to-module-lifts the-struct_122)" -"(expand-context/inner-requires+provides the-struct_122)" -"(expand-context/inner-observer the-struct_122)" -"(expand-context/inner-for-serializable? the-struct_122)" +"(expand-context/inner-lift-envs the-struct_124)" +"(expand-context/inner-module-lifts the-struct_124)" +"(expand-context/inner-require-lifts the-struct_124)" +"(expand-context/inner-to-module-lifts the-struct_124)" +"(expand-context/inner-requires+provides the-struct_124)" +"(expand-context/inner-observer the-struct_124)" +"(expand-context/inner-for-serializable? the-struct_124)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_122)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_122)))))" +" the-struct_124)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_121)" -"(root-expand-context/outer-use-site-scopes the-struct_121)" -"(root-expand-context/outer-frame-id the-struct_121)" -"(expand-context/outer-context the-struct_121)" -"(expand-context/outer-env the-struct_121)" -"(expand-context/outer-post-expansion-scope-action the-struct_121)" -"(expand-context/outer-scopes the-struct_121)" -"(expand-context/outer-def-ctx-scopes the-struct_121)" -"(expand-context/outer-binding-layer the-struct_121)" -"(expand-context/outer-reference-records the-struct_121)" -"(expand-context/outer-only-immediate? the-struct_121)" -"(expand-context/outer-need-eventually-defined the-struct_121)" -"(expand-context/outer-current-introduction-scopes the-struct_121)" -"(expand-context/outer-name the-struct_121)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_121))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_123)" +"(root-expand-context/outer-use-site-scopes the-struct_123)" +"(root-expand-context/outer-frame-id the-struct_123)" +"(expand-context/outer-context the-struct_123)" +"(expand-context/outer-env the-struct_123)" +"(expand-context/outer-post-expansion-scope-action the-struct_123)" +"(expand-context/outer-scopes the-struct_123)" +"(expand-context/outer-def-ctx-scopes the-struct_123)" +"(expand-context/outer-binding-layer the-struct_123)" +"(expand-context/outer-reference-records the-struct_123)" +"(expand-context/outer-only-immediate? the-struct_123)" +"(expand-context/outer-need-eventually-defined the-struct_123)" +"(expand-context/outer-current-introduction-scopes the-struct_123)" +"(expand-context/outer-name the-struct_123)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_87)" "(lambda(forms_0)" @@ -78021,7 +78313,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-forms_0)" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_128)" "(lambda(forms_1 accum_1)" "(begin" " 'loop" @@ -78061,7 +78353,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-form_0)" -"(let-values(((temp40_5)" +"(let-values(((temp40_6)" "(car" " forms_1))" "((capture-ctx41_0)" @@ -78071,14 +78363,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp40_5" +" temp40_6" " capture-ctx41_0))))" -"(loop_112" +"(loop_128" "(cdr forms_1)" "(cons" " exp-form_0" " accum_1))))))))))" -" loop_112)" +" loop_128)" " forms_0" " null)))" "(let-values(((lifts_14)(get-and-clear-lifts! lift-ctx_7)))" @@ -78102,7 +78394,7 @@ static const char *startup_source = "(let-values(((beg_0)" "(let-values(((lifts42_0) lifts_14)" "((temp43_5) #f)" -"((temp44_4)" +"((temp44_5)" "(expand-context-phase" " trans-ctx_1)))" "(wrap-lifts-as-begin16.1" @@ -78112,7 +78404,7 @@ static const char *startup_source = " #f" " lifts42_0" " temp43_5" -" temp44_4))))" +" temp44_5))))" "(let-values(((exprs_1)" "(reverse$1" "(cdr" @@ -78200,11 +78492,11 @@ static const char *startup_source = " lst_457)))))" "((s52_0) s_33)" "((temp53_5) #f)" -"((temp54_6)(expand-context-namespace ctx_127))" -"((temp55_5)(expand-context-phase ctx_127))" -"((temp56_4)(let-values(((temp59_6) #f))(make-requires+provides8.1 #f #f temp59_6)))" -"((temp57_2) 'require)" -"((temp58_5) #t))" +"((temp54_7)(expand-context-namespace ctx_127))" +"((temp55_4)(expand-context-phase ctx_127))" +"((temp56_3)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f #f temp59_8)))" +"((temp57_1) 'require)" +"((temp58_4) #t))" "(parse-and-perform-requires!30.1" " #f" " #f" @@ -78212,7 +78504,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp58_5" +" temp58_4" " #t" " #f" " #f" @@ -78224,12 +78516,12 @@ static const char *startup_source = " #f" " temp53_5" " #t" -" temp57_2" +" temp57_1" " temp51_3" " s52_0" -" temp54_6" -" temp55_5" -" temp56_4))" +" temp54_7" +" temp55_4" +" temp56_3))" "(if(expand-context-to-parsed? ctx_127)(parsed-require23.1 s_33) s_33))))))))))" "(void" "(add-core-form!*" @@ -78245,8 +78537,8 @@ static const char *startup_source = "(declare-core-module! ns)" "(let-values(((temp1_3) '#%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_3 read-primitives2_0))" -"(let-values(((temp4_9) '#%main)((main-primitives5_0) main-primitives)((ns6_2) ns))" -"(declare-hash-based-module!41.1 ns6_2 #f #f #f #f #f #f #f #f temp4_9 main-primitives5_0))" +"(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_2) ns))" +"(declare-hash-based-module!41.1 ns6_2 #f #f #f #f #f #f #f #f temp4_8 main-primitives5_0))" "(let-values(((temp7_5) '#%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_5 utils-primitives8_0))" "(let-values(((temp10_9) '#%place-struct)" @@ -78261,11 +78553,11 @@ static const char *startup_source = "(let-values(((temp17_5) '#%linklet)" "((linklet-primitives18_0) linklet-primitives_0)" "((ns19_2) ns)" -"((temp20_5) #t)" +"((temp20_6) #t)" "((temp21_2) #t))" -"(declare-hash-based-module!41.1 ns19_2 temp20_5 #t #f #f #f #f temp21_2 #t temp17_5 linklet-primitives18_0)))" -"(let-values(((temp22_6) '#%expobs)((expobs-primitives23_0) expobs-primitives)((ns24_2) ns)((temp25_9) #t))" -"(declare-hash-based-module!41.1 ns24_2 #f #f #f #f temp25_9 #t #f #f temp22_6 expobs-primitives23_0))" +"(declare-hash-based-module!41.1 ns19_2 temp20_6 #t #f #f #f #f temp21_2 #t temp17_5 linklet-primitives18_0)))" +"(let-values(((temp22_6) '#%expobs)((expobs-primitives23_0) expobs-primitives)((ns24_2) ns)((temp25_8) #t))" +"(declare-hash-based-module!41.1 ns24_2 #f #f #f #f temp25_8 #t #f #f temp22_6 expobs-primitives23_0))" "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_8)" @@ -78298,7 +78590,7 @@ static const char *startup_source = " for-loop_20)" " '#hash()" "(hash-iterate-first ht_172)))))" -"((temp29_4)" +"((temp29_5)" "(let-values(((ht_173) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -78331,7 +78623,7 @@ static const char *startup_source = " for-loop_331)" " '#hash()" "(hash-iterate-first ht_173))))))" -"(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_4 ns26_3))" +"(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" "(begin" @@ -78353,7 +78645,7 @@ static const char *startup_source = "(let-values()" "(let-values(((name30_0) name_83)" "((ns31_5) ns)" -"((temp32_6)" +"((temp32_5)" "(let-values(((or-part_295)" "(eq?" " name_83" @@ -78377,7 +78669,7 @@ static const char *startup_source = " ns31_5" " #f" " #f" -" temp32_6" +" temp32_5" " #t" " #f" " #f" @@ -78394,8 +78686,8 @@ static const char *startup_source = "(let-values(((temp33_4) '#%builtin)" "((temp34_6)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" "((ns35_1) ns)" -"((temp36_9) #f))" -"(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_4 temp34_6))" +"((temp36_11) #f))" +"(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" "(define-values(datum->kernel-syntax)(lambda(s_880)(begin(1/datum->syntax core-stx s_880)))))"