953 |
} |
} |
954 |
|
|
955 |
static Lisp_Object |
static Lisp_Object |
956 |
load_unwind (stream) /* used as unwind-protect function in load */ |
load_unwind (arg) /* used as unwind-protect function in load */ |
957 |
Lisp_Object stream; |
Lisp_Object arg; |
958 |
{ |
{ |
959 |
struct Lisp_Save_Value *p = XSAVE_VALUE (stream); |
FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer; |
960 |
|
if (stream != NULL) |
961 |
fclose ((FILE *) p->pointer); |
fclose (stream); |
962 |
if (--load_in_progress < 0) load_in_progress = 0; |
if (--load_in_progress < 0) load_in_progress = 0; |
963 |
return Qnil; |
return Qnil; |
964 |
} |
} |