From 7c957b8657a510395fc451ae4a8e7e3fe5a643ad Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 2 Jul 2009 21:55:28 +0200 Subject: [PATCH] fix error message for bad objcode cookie * libguile/objcodes.c: Whoop-dee :) --- libguile/objcodes.c | 6 +++--- 1 file 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));