HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
95cdbff
)
(load_unwind): Cast argument of fclose.
author
Richard M. Stallman
<rms@gnu.org>
Sun, 16 Oct 1994 02:37:57 +0000
(
02:37
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Sun, 16 Oct 1994 02:37:57 +0000
(
02:37
+0000)
src/lread.c
patch
|
blob
|
blame
|
history
diff --git
a/src/lread.c
b/src/lread.c
index
72283bd
..
a64a01f
100644
(file)
--- 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;
}