Mercurial > hg > xemacs-beta

diff src/lread.c @ 4439:f4eb31866c38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix reader crash. 2008-03-15 Michael Sperber <mike@xemacs.org> * lread.c (read1): Signal an error on ?\<newline>, thus preventing an assertion failure higher up.
author Mike Sperber <sperber@deinprogramm.de>
date Sat, 15 Mar 2008 12:21:11 +0100
parents d9eb5ea14f65
children ac6231e0c1df
line wrap: on
line diff
--- a/src/lread.c	Wed Mar 12 19:37:49 2008 +0100
+++ b/src/lread.c	Sat Mar 15 12:21:11 2008 +0100
@@ -2763,6 +2763,8 @@
 
 	if (c == '\\')
 	  c = read_escape (readcharfun);
+	if (c < 0)
+	  return Fsignal (Qinvalid_read_syntax, list1 (READCHARFUN_MAYBE (readcharfun)));
 	return make_char (c);
       }