Commit ebfe97a2 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(load_unwind): Rework last change.

parent fff7e982
......@@ -953,12 +953,12 @@ Return t if file exists. */)
}
static Lisp_Object
load_unwind (stream) /* used as unwind-protect function in load */
Lisp_Object stream;
load_unwind (arg) /* used as unwind-protect function in load */
Lisp_Object arg;
{
struct Lisp_Save_Value *p = XSAVE_VALUE (stream);
fclose ((FILE *) p->pointer);
FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer;
if (stream != NULL)
fclose (stream);
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