From c4b0879bc974db8240176a510f82047a845f8c1d Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 7 Apr 2018 13:36:23 +0200 Subject: [PATCH] mes: Allow tick as part of identifier. * src/reader.c (reader_read_sexp_): Do not treat tick as special. --- src/reader.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/reader.c b/src/reader.c index bebc33e4..8a62df4c 100644 --- a/src/reader.c +++ b/src/reader.c @@ -61,9 +61,6 @@ reader_read_sexp_ (int c, SCM s, SCM a) return reader_read_sexp_ ('\n', s, a); case '\t': return reader_read_sexp_ ('\n', s, a); - case '\'': - return cons (cell_symbol_quote, - cons (reader_read_sexp_ (getchar (), s, a), cell_nil)); case ';': reader_read_line_comment (c); return reader_read_sexp_ ('\n', s, a); @@ -94,6 +91,9 @@ reader_read_sexp_ (int c, SCM s, SCM a) case ')': ungetchar (c); return cell_nil; + case '\'': + return cons (cell_symbol_quote, + cons (reader_read_sexp_ (getchar (), s, a), cell_nil)); case '"': return reader_read_string (); }