From 64fa6c18eebc2123775cfb702deb7644749ad736 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 24 Oct 2019 21:36:36 +0200 Subject: [PATCH] core: reader_read_sexp_: Prepare for M2-Planet. * src/reader.c (reader_read_sexp_): Prepare for M2-Planet. --- src/reader.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/reader.c b/src/reader.c index 4b675fd2..865a3018 100644 --- a/src/reader.c +++ b/src/reader.c @@ -149,8 +149,9 @@ reset_reader: return cons (cell_symbol_quote, cons (reader_read_sexp_ (readchar (), a), cell_nil)); if (c == '"') return reader_read_string (); - if (c == '.' && (reader_identifier_p (peekchar ()) == 0)) - return cell_dot; + if (c == '.') + if (reader_identifier_p (peekchar ()) == 0) + return cell_dot; return reader_read_identifier_or_number (c); }