diff options
| author | Richard M. Stallman | 1994-10-16 02:37:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-16 02:37:57 +0000 |
| commit | c8bdaa8c5592bd92f3913d8dd7ce735464c376d3 (patch) | |
| tree | b74e1735e210590e6a50c44c277617933a83e182 /src | |
| parent | 95cdbff5459a87a0786c7da3e5919c1f13a5f564 (diff) | |
| download | emacs-c8bdaa8c5592bd92f3913d8dd7ce735464c376d3.tar.gz emacs-c8bdaa8c5592bd92f3913d8dd7ce735464c376d3.zip | |
(load_unwind): Cast argument of fclose.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 454 | load_unwind (stream) /* used as unwind-protect function in load */ | 454 | load_unwind (stream) /* used as unwind-protect function in load */ |
| 455 | Lisp_Object stream; | 455 | Lisp_Object stream; |
| 456 | { | 456 | { |
| 457 | fclose (XFASTINT (XCONS (stream)->car) << 16 | 457 | fclose ((FILE *) (XFASTINT (XCONS (stream)->car) << 16 |
| 458 | | XFASTINT (XCONS (stream)->cdr)); | 458 | | XFASTINT (XCONS (stream)->cdr))); |
| 459 | if (--load_in_progress < 0) load_in_progress = 0; | 459 | if (--load_in_progress < 0) load_in_progress = 0; |
| 460 | return Qnil; | 460 | return Qnil; |
| 461 | } | 461 | } |