From 232ccf275feae9a686ded89b64bea6b89116a5bd Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 17 Aug 2000 14:11:00 +0000 Subject: [PATCH] Prototype readevalloop, load_unwind, load_descriptor_unwind. (unreadpure): Give it an arg. --- src/lread.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/lread.c b/src/lread.c index 3a1bc00c03f..7e6b6a17949 100644 --- 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; } -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; -- 2.39.2