Mercurial > emacs
diff src/lread.c @ 64536:0fa146cd9142
(load_unwind): Rework last change.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 20 Jul 2005 14:40:35 +0000 |
parents | dc17db575e11 |
children | a0d1312ede66 187d6a1f84f7 |
line wrap: on
line diff
--- a/src/lread.c Wed Jul 20 14:39:35 2005 +0000 +++ b/src/lread.c Wed Jul 20 14:40:35 2005 +0000 @@ -953,12 +953,12 @@ } 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; }