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

Fix reader error message when encountering illegal graph notation

Browse Source 
Also, document explicitly that graph notation is not allowed at all in
read-syntax mode.
This commit is contained in:
Alexis King 2018-08-21 15:02:09 -05:00
parent 34231aca7e
commit 2a667dc9a8
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-doc/scribblings/reference/reader.scrbl
View File

@ -845,7 +845,8 @@ as constructed by @racket[pregexp], @litchar{#rx#} as constructed by
A @graph-defn[] tags the following datum for reference via A @graph-defn[] tags the following datum for reference via
@graph-ref[], which allows the reader to produce a datum that @graph-ref[], which allows the reader to produce a datum that
has graph structure. has graph structure. Neither form is allowed in
@racket[read-syntax] mode.
For a specific @graph-tag[] in a single read result, each @graph-ref[] For a specific @graph-tag[] in a single read result, each @graph-ref[]
reference is replaced by the datum read for the corresponding reference is replaced by the datum read for the corresponding

4
racket/src/expander/read/graph.rkt
View File

@ -57,8 +57,8 @@
"`#...~a` forms not ~a" "`#...~a` forms not ~a"
c c
(if (read-config-for-syntax? config) (if (read-config-for-syntax? config)
"enabled" "allowed in `read-syntax` mode"
"allowed in `read-syntax` mode"))) "enabled")))
(unless ((accum-string-count accum-str) . <= . 8) (unless ((accum-string-count accum-str) . <= . 8)
(reader-error in config (reader-error in config
"graph ID too long in `~a~a~a`" "graph ID too long in `~a~a~a`"

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

@ -52913,8 +52913,8 @@ static const char *startup_source =
"((c40_0) c_0)" "((c40_0) c_0)"
"((temp41_0)" "((temp41_0)"
"(if(read-config-for-syntax? config_0)" "(if(read-config-for-syntax? config_0)"
" \"enabled\"" " \"allowed in `read-syntax` mode\""
" \"allowed in `read-syntax` mode\")))" " \"enabled\")))"
"(reader-error12.1" "(reader-error12.1"
" unsafe-undefined" " unsafe-undefined"
" '#\\x" " '#\\x"