fix a bug of plus reader
This commit is contained in:
parent
34f7497f4f
commit
79afb22833
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue