diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-01-27 00:16:54 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-01-27 00:16:54 +0100 |
commit | 4914fe1963ce5bee2ecd86f3a386dd0e23d3678b (patch) | |
tree | eda93644e11c7aa99cb9e189f532b1d11cdc6897 /libguile/objcodes.c | |
parent | a7ea441163ea1fc096c09070cecf452031b4a00d (diff) | |
download | guile-4914fe1963ce5bee2ecd86f3a386dd0e23d3678b.tar.gz |
Use `scm_from_latin1_stringn' in `objcodes.c'.
* libguile/objcodes.c (make_objcode_by_mmap): Use
`scm_from_latin1_stringn', not `scm_from_locale_stringn', to display
the invalid cookie in the error case.
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c index 5f3079c87..68035f581 100644 --- a/libguile/objcodes.c +++ b/libguile/objcodes.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -79,7 +79,7 @@ make_objcode_by_mmap (int fd) if (memcmp (addr, SCM_OBJCODE_COOKIE, strlen (SCM_OBJCODE_COOKIE))) { - SCM args = scm_list_1 (scm_from_locale_stringn + SCM args = scm_list_1 (scm_from_latin1_stringn (addr, strlen (SCM_OBJCODE_COOKIE))); (void) close (fd); (void) munmap (addr, st.st_size); |