HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
build: Don't include <config.h> in native programs when cross-compiling.
[bpt/guile.git]
/
libguile
/
objcodes.c
diff --git
a/libguile/objcodes.c
b/libguile/objcodes.c
index
a8515a7
..
e315f3e
100644
(file)
--- 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);