mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

fix an error message loading invalid bytecode

Browse source 
* libguile/objcodes.c (make_objcode_from_file): Add correct error
  message if full_read failed without an errno.
This commit is contained in:
Andy Wingo 2013-02-19 23:03:19 +01:00
parent 5a4a4454c5
commit e716f4410f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objcodes.c
View file

@ -220,7 +220,9 @@ make_objcode_from_file (int fd)
int errno_save = errno;
(void) close (fd);
errno = errno_save;
SCM_SYSERROR;
if (errno)
SCM_SYSERROR;
scm_misc_error (FUNC_NAME, "file truncated while reading", SCM_EOL);
}
(void) close (fd);