Mercurial > emacs

comparison src/lread.c @ 9552:c1d477aec340

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(load_unwind): Cast argument of fclose.
author Richard M. Stallman <rms@gnu.org>
date Sun, 16 Oct 1994 02:37:57 +0000
parents 9052bf69f7de
children 637b4664f7a5
comparison
equal deleted inserted replaced
9551:ac21ac5e8c69 9552:c1d477aec340
452 452
453 static Lisp_Object 453 static Lisp_Object
454 load_unwind (stream) /* used as unwind-protect function in load */ 454 load_unwind (stream) /* used as unwind-protect function in load */
455 Lisp_Object stream; 455 Lisp_Object stream;
456 { 456 {
457 fclose (XFASTINT (XCONS (stream)->car) << 16 457 fclose ((FILE *) (XFASTINT (XCONS (stream)->car) << 16
458 | XFASTINT (XCONS (stream)->cdr)); 458 | XFASTINT (XCONS (stream)->cdr)));
459 if (--load_in_progress < 0) load_in_progress = 0; 459 if (--load_in_progress < 0) load_in_progress = 0;
460 return Qnil; 460 return Qnil;
461 } 461 }
462 462
463 static Lisp_Object 463 static Lisp_Object