core: reader_read_sexp_: Prepare for M2-Planet.
* src/reader.c (reader_read_sexp_): Prepare for M2-Planet.
This commit is contained in:
parent
a1eade98c6
commit
9cbf29b70a
|
@ -149,8 +149,9 @@ reset_reader:
|
||||||
return cons (cell_symbol_quote, cons (reader_read_sexp_ (readchar (), a), cell_nil));
|
return cons (cell_symbol_quote, cons (reader_read_sexp_ (readchar (), a), cell_nil));
|
||||||
if (c == '"')
|
if (c == '"')
|
||||||
return reader_read_string ();
|
return reader_read_string ();
|
||||||
if (c == '.' && (reader_identifier_p (peekchar ()) == 0))
|
if (c == '.')
|
||||||
return cell_dot;
|
if (reader_identifier_p (peekchar ()) == 0)
|
||||||
|
return cell_dot;
|
||||||
return reader_read_identifier_or_number (c);
|
return reader_read_identifier_or_number (c);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue