Mercurial > emacs

changeset 9552:c1d477aec340

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(load_unwind): Cast argument of fclose.
author Richard M. Stallman <rms@gnu.org>
date Sun, 16 Oct 1994 02:37:57 +0000
parents ac21ac5e8c69
children 6cf77973c97f
files src/lread.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Sun Oct 16 01:42:08 1994 +0000
+++ b/src/lread.c	Sun Oct 16 02:37:57 1994 +0000
@@ -454,8 +454,8 @@
 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;
 }