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

allow "(a . b #;c )"

This commit is contained in:
Yuichi Nishiwaki 2014-06-28 20:02:13 +09:00
parent 8f5a4e8980
commit 4772441589
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/read.c
View File

@ -361,7 +361,11 @@ read_pair(pic_state *pic, struct pic_port *port, char c)
if (c == '.' && isdelim(peek(port))) {
cdr = read(pic, port, next(port));
closing:
if ((c = skip(port, ' ')) != tCLOSE) {
if (pic_undef_p(read_nullable(pic, port, c))) {
goto closing;
}
read_error(pic, "unmatched parenthesis");
}
return cdr;