artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: reader_read_sexp_: Prepare for M2-Planet.

Browse source 
* src/reader.c (reader_read_sexp_): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 21:36:36 +02:00
parent a1eade98c6
commit 9cbf29b70a
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/reader.c
View file

@ -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);
} }