# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 830548489 0
# Node ID e05dd165b889f02d3f633603ed0197652ccc2dad
# Parent  c07a2c3e141d19eaa310844911bfd60b58c66545
(close_load_descs) [WINDOWS_NT]: Don't actually do anything.

(read_escape): Detect READCHAR reporting eof.

diff -r c07a2c3e141d -r e05dd165b889 src/lread.c
--- a/src/lread.c	Fri Apr 26 19:53:20 1996 +0000
+++ b/src/lread.c	Fri Apr 26 19:54:49 1996 +0000
@@ -516,9 +516,11 @@
 void
 close_load_descs ()
 {
+#ifndef WINDOWSNT
   Lisp_Object tail;
   for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr)
     close (XFASTINT (XCONS (tail)->car));
+#endif
 }
 
 static int
@@ -1003,6 +1005,9 @@
   register int c = READCHAR;
   switch (c)
     {
+    case -1:
+      error ("End of file");
+
     case 'a':
       return '\007';
     case 'b':