From 6a69efd78eec60b8e287515608b0e2d1acc3ce7e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 12 Sep 2000 10:58:42 +0000 Subject: (Fload): Put code checking for recursive loads in #if 0. --- src/lread.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/lread.c b/src/lread.c index 3a0acdd104f..29eb06c501e 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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! */ -- cgit v1.2.1