Prototype readevalloop, load_unwind,

load_descriptor_unwind.
(unreadpure): Give it an arg.

diff --git a/src/lread.c b/src/lread.c
index 3a1bc00c03fa687b688668d2e0e154176057e0f3..7e6b6a179499bb3d07e4d4ec6e17422989dc040f 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -530,9 +530,11 @@ DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0,
   return val;
 }
 \f
-static void readevalloop ();
-static Lisp_Object load_unwind ();
-static Lisp_Object load_descriptor_unwind ();
+static void readevalloop P_ ((Lisp_Object, FILE*, Lisp_Object, 
+                             Lisp_Object (*) (), int,
+                             Lisp_Object, Lisp_Object));
+static Lisp_Object load_unwind P_ ((Lisp_Object));
+static Lisp_Object load_descriptor_unwind P_ ((Lisp_Object));
 
 /* Non-zero means load dangerous compiled Lisp files.  */
 
@@ -1088,7 +1090,8 @@ build_load_history (stream, source)
 }
 
 Lisp_Object
-unreadpure ()  /* Used as unwind-protect function in readevalloop */
+unreadpure (junk) /* Used as unwind-protect function in readevalloop */
+     Lisp_Object junk;
 {
   read_pure = 0;
   return Qnil;