From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 16 Oct 1994 02:37:57 +0000 (+0000)
Subject: (load_unwind): Cast argument of fclose.
X-Git-Tag: emacs-19.34~6302
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8bdaa8c5592bd92f3913d8dd7ce735464c376d3;p=emacs.git

(load_unwind): Cast argument of fclose.
---

diff --git a/src/lread.c b/src/lread.c
index 72283bde8ab..a64a01f8fd6 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -454,8 +454,8 @@ static Lisp_Object
 load_unwind (stream)  /* used as unwind-protect function in load */
      Lisp_Object stream;
 {
-  fclose (XFASTINT (XCONS (stream)->car) << 16
-	  | XFASTINT (XCONS (stream)->cdr));
+  fclose ((FILE *) (XFASTINT (XCONS (stream)->car) << 16
+		    | XFASTINT (XCONS (stream)->cdr)));
   if (--load_in_progress < 0) load_in_progress = 0;
   return Qnil;
 }