# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1045608332 0
# Node ID 38c14af619dae74cebb747ec64a9595c950e2ef5
# Parent  c6bacc76cfb6d5cfb2946aa802c809255a75d489
(read1): Allow "?" after a character constant.

diff -r c6bacc76cfb6 -r 38c14af619da src/lread.c
--- 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 == ','));
 	  }