Merge pull request #172 from KeenS/plus-reader

fix a bug of plus reader
This commit is contained in:
Yuichi Nishiwaki 2014-07-19 17:15:14 +09:00
commit f31e86e751
1 changed files with 1 additions and 1 deletions

View File

@ -278,7 +278,7 @@ read_plus(pic_state *pic, struct pic_port *port, char c)
pic_value sym; pic_value sym;
if (isdigit(peek(port))) { if (isdigit(peek(port))) {
return read_number(pic, port, c); return read_number(pic, port, next(port));
} }
else { else {
sym = read_symbol(pic, port, c); sym = read_symbol(pic, port, c);