Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4438:2785829fe37c 4439:f4eb31866c38
2761 if (c < 0) 2761 if (c < 0)
2762 return Fsignal (Qend_of_file, list1 (READCHARFUN_MAYBE (readcharfun))); 2762 return Fsignal (Qend_of_file, list1 (READCHARFUN_MAYBE (readcharfun)));
2763 2763
2764 if (c == '\\') 2764 if (c == '\\')
2765 c = read_escape (readcharfun); 2765 c = read_escape (readcharfun);
2766 if (c < 0)
2767 return Fsignal (Qinvalid_read_syntax, list1 (READCHARFUN_MAYBE (readcharfun)));
2766 return make_char (c); 2768 return make_char (c);
2767 } 2769 }
2768 2770
2769 case '\"': 2771 case '\"':
2770 /* String */ 2772 /* String */