Commit c8bdaa8c authored by Richard M. Stallman's avatar Richard M. Stallman

(load_unwind): Cast argument of fclose.

parent 95cdbff5
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment