diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index f90bdb2ef2d..be43d7f2959 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -516,9 +516,11 @@ load_descriptor_unwind (oldlist) | |||
| 516 | void | 516 | void |
| 517 | close_load_descs () | 517 | close_load_descs () |
| 518 | { | 518 | { |
| 519 | #ifndef WINDOWSNT | ||
| 519 | Lisp_Object tail; | 520 | Lisp_Object tail; |
| 520 | for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr) | 521 | for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr) |
| 521 | close (XFASTINT (XCONS (tail)->car)); | 522 | close (XFASTINT (XCONS (tail)->car)); |
| 523 | #endif | ||
| 522 | } | 524 | } |
| 523 | 525 | ||
| 524 | static int | 526 | static int |
| @@ -1003,6 +1005,9 @@ read_escape (readcharfun) | |||
| 1003 | register int c = READCHAR; | 1005 | register int c = READCHAR; |
| 1004 | switch (c) | 1006 | switch (c) |
| 1005 | { | 1007 | { |
| 1008 | case -1: | ||
| 1009 | error ("End of file"); | ||
| 1010 | |||
| 1006 | case 'a': | 1011 | case 'a': |
| 1007 | return '\007'; | 1012 | return '\007'; |
| 1008 | case 'b': | 1013 | case 'b': |