mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Gerd Moellmann 2000-09-12 10:58:42 +00:00
parent 71246c2c41
commit 6a69efd78e
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lread.c
View file

@ -708,6 +708,10 @@ Return t if file exists.")
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)))
@ -715,6 +719,7 @@ Return t if file exists.")
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! */