# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020188800 0
# Node ID 8fe017cea04202b8d9e3423525b83827f0bb436f
# Parent  184909bcbc7bc66cb21d7a5cac2d52f15b874bd3
(Frequire): Error if called while preparing to dump.

diff -r 184909bcbc7b -r 8fe017cea042 src/fns.c
--- a/src/fns.c	Tue Apr 30 17:46:26 2002 +0000
+++ b/src/fns.c	Tue Apr 30 17:46:40 2002 +0000
@@ -2973,7 +2973,7 @@
       {
 	Lisp_Object pargs[3];
 
-	/* Colorize prompt accordingly to `minibuffer-prompt' face.  */
+	/* Colorize prompt according to `minibuffer-prompt' face.  */
 	pargs[0] = build_string ("%s(y or n) ");
 	pargs[1] = intern ("face");
 	pargs[2] = intern ("minibuffer-prompt");
@@ -3250,6 +3250,10 @@
     {
       int count = specpdl_ptr - specpdl;
       int nesting = 0;
+
+      if (! NILP (Vpurify_flag))
+	error ("(require %s) while preparing to dump",
+	       XSYMBOL (feature)->name->data);
       
       /* A certain amount of recursive `require' is legitimate,
 	 but if we require the same feature recursively 3 times,