summaryrefslogtreecommitdiff
path: root/libguile/strorder.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-12-13 19:41:07 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-12-13 19:41:07 +0000
commitdbe26481436613a3886a1b45f0cdb996c852758a (patch)
tree0b87ba4913509aa7cf07ac1f4c1a0264c6afaab9 /libguile/strorder.c
parenta65b9c802eab861830575f4a9f4b974a74552a14 (diff)
downloadguile-dbe26481436613a3886a1b45f0cdb996c852758a.tar.gz
*** empty log message ***
Diffstat (limited to 'libguile/strorder.c')
-rw-r--r--libguile/strorder.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/strorder.c b/libguile/strorder.c
index 63d2ae7b0..a4fe03daa 100644
--- a/libguile/strorder.c
+++ b/libguile/strorder.c
@@ -55,7 +55,7 @@ scm_string_equal_p (s1, s2)
SCM s2;
{
register scm_sizet i;
- register char *c1, *c2;
+ register unsigned char *c1, *c2;
SCM_ASSERT (SCM_NIMP (s1) && SCM_ROSTRINGP (s1), s1, SCM_ARG1, s_string_equal_p);
SCM_ASSERT (SCM_NIMP (s2) && SCM_ROSTRINGP (s2), s2, SCM_ARG2, s_string_equal_p);
@@ -64,8 +64,8 @@ scm_string_equal_p (s1, s2)
{
return SCM_BOOL_F;
}
- c1 = SCM_ROCHARS (s1);
- c2 = SCM_ROCHARS (s2);
+ c1 = SCM_ROUCHARS (s1);
+ c2 = SCM_ROUCHARS (s2);
while (0 != i--)
if (*c1++ != *c2++)
return SCM_BOOL_F;