mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 02:10:46 -08:00
Code Issues Projects Releases Wiki Activity

(load_unwind): Rework last change.

Browse source
This commit is contained in:
Kim F. Storm 2005-07-20 14:40:35 +00:00
parent fff7e9825a
commit ebfe97a2d4
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lread.c
View file

@ -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;
}