[Guile-commits] GNU Guile branch, master, updated. release_1-9-0-37-g7c957b8

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=7c957b8657a510395fc451ae4a8e7e3fe5a643ad

The branch, master has been updated
       via  7c957b8657a510395fc451ae4a8e7e3fe5a643ad (commit)
      from  40f892156acba9cac990d2a53333fc41cefcd507 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7c957b8657a510395fc451ae4a8e7e3fe5a643ad
Author: Andy Wingo <address@hidden>
Date:   Thu Jul 2 21:55:28 2009 +0200

    fix error message for bad objcode cookie
    
    * libguile/objcodes.c: Whoop-dee :)

-----------------------------------------------------------------------

Summary of changes:
 libguile/objcodes.c |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 03ea0b8..4f21971 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));


hooks/post-receive
-- 
GNU Guile