summaryrefslogtreecommitdiff
path: root/libguile/objcodes.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-07-02 21:55:28 +0200
committerAndy Wingo <wingo@pobox.com>2009-07-02 21:55:28 +0200
commit7c957b8657a510395fc451ae4a8e7e3fe5a643ad (patch)
treec8d6d065c60e8c42ed99d970e2bb60fc23515292 /libguile/objcodes.c
parent40f892156acba9cac990d2a53333fc41cefcd507 (diff)
downloadguile-7c957b8657a510395fc451ae4a8e7e3fe5a643ad.tar.gz
fix error message for bad objcode cookie
* libguile/objcodes.c: Whoop-dee :)
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r--libguile/objcodes.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 03ea0b8d8..4f219717a 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -70,11 +70,11 @@ make_objcode_by_mmap (int fd)
if (memcmp (addr, OBJCODE_COOKIE, strlen (OBJCODE_COOKIE)))
{
+ SCM args = scm_list_1 (scm_from_locale_stringn
+ (addr, strlen (OBJCODE_COOKIE)));
(void) close (fd);
(void) munmap (addr, st.st_size);
- scm_misc_error (FUNC_NAME, "bad header on object file: ~s",
- scm_list_1 (scm_from_locale_stringn
- (addr, strlen (OBJCODE_COOKIE))));
+ scm_misc_error (FUNC_NAME, "bad header on object file: ~s", args);
}
data = (struct scm_objcode*)(addr + strlen (OBJCODE_COOKIE));