mes: Allow tick as part of identifier.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Apr 2018 11:36:23 +0000 (13:36 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Apr 2018 11:36:23 +0000 (13:36 +0200)
* src/reader.c (reader_read_sexp_): Do not treat tick as special.

src/reader.c

index bebc33e434be0e41140b4b7f3e000b1598cb7b4d..8a62df4c53846082d03b928019fce69267d549b1 100644 (file)
@@ -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 ();
           }