# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968677241 0
# Node ID 76cf765a7dad5942dd2c1ae31761060289925e39
# Parent  2914658cb414db50d8c7a9d564e30a2d898326a2
(init_lread): Set Vloads_in_progress to nil.
(Fload): Show list of recursively loaded files, when signaling an
error.

diff -r 2914658cb414 -r 76cf765a7dad src/lread.c
--- a/src/lread.c	Mon Sep 11 12:52:59 2000 +0000
+++ b/src/lread.c	Mon Sep 11 13:00:41 2000 +0000
@@ -711,7 +711,8 @@
   /* Check if we're loading this file again while another load
      of the same file is already in progress.  */
   if (!NILP (Fmember (found, Vloads_in_progress)))
-    error ("Recursive load of file `%s'", XSTRING (file)->data);
+    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);
 
@@ -3428,6 +3429,7 @@
   load_descriptor_list = Qnil;
 
   Vstandard_input = Qt;
+  Vloads_in_progress = Qnil;
 }
 
 /* Print a warning, using format string FORMAT, that directory DIRNAME