comparison src/lread.c @ 31554:8a8d8035d369

(Fload): Put code checking for recursive loads in #if 0.

31553:c26265a22302

	handler = Ffind_file_name_handler (found, Qload);
      if (! NILP (handler))
	return call5 (handler, Qload, found, noerror, nomessage, Qt);
    }

  /* 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!  */
  if (!bcmp (&(XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 4]),
	     ".elc", 4)

31554:8a8d8035d369

	handler = Ffind_file_name_handler (found, Qload);
      if (! NILP (handler))
	return call5 (handler, Qload, found, noerror, nomessage, Qt);
    }

#if 0 /* This is a good idea, but it doesn't quite work.
	 While compiling files, `provide's seem to not be evaluated.
	 Let's come back to this when there's more time.  */
	 
  /* 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);
#endif /* 0 */

  /* Load .elc files directly, but not when they are
     remote and have no handler!  */
  if (!bcmp (&(XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 4]),
	     ".elc", 4)