comparison src/lread.c @ 31536:76cf765a7dad

(init_lread): Set Vloads_in_progress to nil. (Fload): Show list of recursively loaded files, when signaling an error.

31535:2914658cb414

    }

  /* 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);
  record_unwind_protect (record_load_unwind, Vloads_in_progress);
  Vloads_in_progress = Fcons (found, Vloads_in_progress);

  /* Load .elc files directly, but not when they are
     remote and have no handler!  */

  Vload_file_name = Qnil;

  load_descriptor_list = Qnil;

  Vstandard_input = Qt;
}

/* Print a warning, using format string FORMAT, that directory DIRNAME
   does not exist.  Print it on stderr and put it in *Message*.  */

31536:76cf765a7dad

    }

  /* 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)))
    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);

  /* Load .elc files directly, but not when they are
     remote and have no handler!  */

  Vload_file_name = Qnil;

  load_descriptor_list = Qnil;

  Vstandard_input = Qt;
  Vloads_in_progress = Qnil;
}

/* Print a warning, using format string FORMAT, that directory DIRNAME
   does not exist.  Print it on stderr and put it in *Message*.  */