suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reader: fix #reader

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-26 19:24:52 -07:00
parent 5ba83c6340
commit cf60eb2715
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/read/extension.rkt
View File

@ -234,6 +234,6 @@
(raise-result-error 'read-language "(procedure-arity-includes?/c 2)" result-v)) (raise-result-error 'read-language "(procedure-arity-includes?/c 2)" result-v))
result-v] result-v]
[(special-comment? result-v) [(special-comment? result-v)
(read-recur in config)] (read-recur #f in config)]
[else [else
(coerce result-v in config)])])) (coerce result-v in config)])]))

2
racket/src/racket/src/startup.inc
View File

@ -53157,7 +53157,7 @@ static const char *startup_source =
" result-v_1)))" " result-v_1)))"
" result-v_1))" " result-v_1))"
"(if(1/special-comment? result-v_1)" "(if(1/special-comment? result-v_1)"
"(let-values()(read-recur_4 in_57 config_53))" "(let-values()(read-recur_4 #f in_57 config_53))"
"(let-values()" "(let-values()"
"(coerce result-v_1 in_57 config_53))))))))))))))))))))))))))" "(coerce result-v_1 in_57 config_53))))))))))))))))))))))))))"
"(define-values" "(define-values"