summaryrefslogtreecommitdiff
path: root/libguile/objcodes.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-01-27 00:16:54 +0100
committerLudovic Courtès <ludo@gnu.org>2011-01-27 00:16:54 +0100
commit4914fe1963ce5bee2ecd86f3a386dd0e23d3678b (patch)
treeeda93644e11c7aa99cb9e189f532b1d11cdc6897 /libguile/objcodes.c
parenta7ea441163ea1fc096c09070cecf452031b4a00d (diff)
downloadguile-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.c4
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);