# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1252986351 0
# Node ID 77cce41847d5dc21274e444b752fcca59e7807df
# Parent  8cbad31101f6a1e01cc9d66266e01e4fc05cd149
(Fload): Also run do-after-load-evaluation while dumping.

diff -r 8cbad31101f6 -r 77cce41847d5 src/ChangeLog
--- a/src/ChangeLog	Tue Sep 15 03:39:40 2009 +0000
+++ b/src/ChangeLog	Tue Sep 15 03:45:51 2009 +0000
@@ -1,3 +1,7 @@
+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
diff -r 8cbad31101f6 -r 77cce41847d5 src/lread.c
--- a/src/lread.c	Tue Sep 15 03:39:40 2009 +0000
+++ b/src/lread.c	Tue Sep 15 03:45:51 2009 +0000
@@ -1279,8 +1279,7 @@
   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;