fix a bug of plus reader

2014-07-19 16:47:33 +09:00
parent 34f7497f4f
commit 79afb22833
1 changed files with 1 additions and 1 deletions
@@ -278,7 +278,7 @@ read_plus(pic_state *pic, struct pic_port *port, char c)
  pic_value sym;

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