fix negative number reader

2014-06-27 07:59:25 +09:00 · 2014-06-27 07:59:25 +09:00 · 0b85e251a2
parent a98411cd0b
commit 0b85e251a2
1 changed files with 1 additions and 1 deletions
--- a/src/read.c
+++ b/src/read.c
@ -210,7 +210,7 @@ read_minus(pic_state *pic, struct pic_port *port, char c)
  /* TODO: -inf.0, -nan.0 */

  if (isdigit(peek(port))) {
-    return negate(read_number(pic, port, c));
+    return negate(read_number(pic, port, next(port)));
  }
  else {
    return read_symbol(pic, port, c);