diff options
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c index a8515a7a2..e315f3e6e 100644 --- a/libguile/objcodes.c +++ b/libguile/objcodes.c @@ -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); |