carbon2-commit: Fix reader crash.

[Aidan Kehoe]

changeset:   4458:f4eb31866c3830c131d730ed67c2aa8b462f80a9
user:        Mike Sperber <sperber at deinprogramm.de>
date:        Sat Mar 15 12:21:11 2008 +0100
files:       src/ChangeLog src/lread.c
description:
Fix reader crash.

2008-03-15  Michael Sperber  <mike at xemacs.org>

	* lread.c (read1): Signal an error on ?\<newline>, thus preventing
	an assertion failure higher up.


diff -r 2785829fe37c25a05d7dc850cf9767fcf8f04786 -r f4eb31866c3830c131d730ed67c2aa8b462f80a9 src/ChangeLog
--- a/src/ChangeLog	Wed Mar 12 19:37:49 2008 +0100
+++ b/src/ChangeLog	Sat Mar 15 12:21:11 2008 +0100
@@ -1,3 +1,8 @@ 2008-03-11  Stephen J. Turnbull  <stephe
+2008-03-15  Michael Sperber  <mike at xemacs.org>
+
+	* lread.c (read1): Signal an error on ?\<newline>, thus preventing
+	an assertion failure higher up.
+
 2008-03-11  Stephen J. Turnbull  <stephen at xemacs.org>
 
 	* specifier.c (CHECK_INSTANCE_ENTRY): Fix typo in comment.
diff -r 2785829fe37c25a05d7dc850cf9767fcf8f04786 -r f4eb31866c3830c131d730ed67c2aa8b462f80a9 src/lread.c
--- 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 @@ retry:
 
 	if (c == '\\')
 	  c = read_escape (readcharfun);
+	if (c < 0)
+	  return Fsignal (Qinvalid_read_syntax, list1 (READCHARFUN_MAYBE (readcharfun)));
 	return make_char (c);
       }