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

fix negative number reader

This commit is contained in:
Yuichi Nishiwaki 2014-06-27 07:59:25 +09:00
parent a98411cd0b
commit 0b85e251a2
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

@ -210,7 +210,7 @@ read_minus(pic_state *pic, struct pic_port *port, char c)
/* TODO: -inf.0, -nan.0 */ /* TODO: -inf.0, -nan.0 */
if (isdigit(peek(port))) { if (isdigit(peek(port))) {
return negate(read_number(pic, port, c)); return negate(read_number(pic, port, next(port)));
} }
else { else {
return read_symbol(pic, port, c); return read_symbol(pic, port, c);