changeset 49860:38c14af619da

(read1): Allow "?" after a character constant.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Feb 2003 22:45:32 +0000
parents c6bacc76cfb6
children a28b1504b29d
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Tue Feb 18 21:30:08 2003 +0000
+++ b/src/lread.c	Tue Feb 18 22:45:32 2003 +0000
@@ -2278,7 +2278,7 @@
 	else
 	  {
 	    ok = (next_char <= 040
-		  || index ("\"';()[]#", next_char)
+		  || index ("\"';()[]#?", next_char)
 		  || (!first_in_list && next_char == '`')
 		  || (new_backquote_flag && next_char == ','));
 	  }