Mercurial > emacs

diff src/lread.c @ 68301:581e383fb47c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 28939487a2d5
children 70566c3d72b1 9b150bc96d33 5b7d410e31f9
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);
   }