conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow symbols with leading '.'

This commit is contained in:
Yuichi Nishiwaki 2014-06-25 21:40:26 +09:00
parent bd822fa4c6
commit 029efc91c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/read.c
View File

@ -342,7 +342,7 @@ read_pair(pic_state *pic, struct pic_port *port, char c)
if (c == tCLOSE) { if (c == tCLOSE) {
return pic_nil_value(); return pic_nil_value();
} }
if (c == '.') { if (c == '.' && strchr("()#;,|'\" \t\n\r", peek(port)) != NULL) {
cdr = read(pic, port, next(port)); cdr = read(pic, port, next(port));
if ((c = skip(port, ' ')) != tCLOSE) { if ((c = skip(port, ' ')) != tCLOSE) {