changeset 68301:581e383fb47c

(Fload): Don't leak the file descriptor returned by openp if we are going to signal an error.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 20 Jan 2006 19:53:36 +0000
parents f283791acd64
children e4979192f24b
files src/lread.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Fri Jan 20 19:12:39 2006 +0000
+++ b/src/lread.c	Fri Jan 20 19:53:36 2006 +0000
@@ -801,8 +801,12 @@
       if (!NILP (Fequal (found, XCAR (tem))))
 	count++;
     if (count > 3)
-      Fsignal (Qerror, Fcons (build_string ("Recursive load"),
-			      Fcons (found, Vloads_in_progress)));
+      {
+	if (fd >= 0)
+	  emacs_close (fd);
+	Fsignal (Qerror, Fcons (build_string ("Recursive load"),
+				Fcons (found, Vloads_in_progress)));
+      }
     record_unwind_protect (record_load_unwind, Vloads_in_progress);
     Vloads_in_progress = Fcons (found, Vloads_in_progress);
   }