(Fload): Also run do-after-load-evaluation while dumping.

428b13d6 · Stefan Monnier · 838ff458 · 428b13d6 · 428b13d6
Commit 428b13d6 authored Sep 15, 2009 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

src/ChangeLog src/ChangeLog +4 -0

src/lread.c src/lread.c +1 -2

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2009-09-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* lread.c (Fload): Also run do-after-load-evaluation while dumping.
+
 2009-09-12  Stefan Monnier  <monnier@iro.umontreal.ca>
  
 	* lread.c (Fload): Don't output a message after loading an obsolete

--- a/src/lread.c
+++ b/src/lread.c
@@ -1279,8 +1279,7 @@ Return t if the file exists and loads successfully.  */)
  unbind_to (count, Qnil);

  /* Run any eval-after-load forms for this file */
-  if (NILP (Vpurify_flag)
-      && (!NILP (Ffboundp (Qdo_after_load_evaluation))))
+  if (!NILP (Ffboundp (Qdo_after_load_evaluation)))
    call1 (Qdo_after_load_evaluation, hist_file_name) ;

  UNGCPRO;