diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-12-13 19:41:07 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-12-13 19:41:07 +0000 |
commit | dbe26481436613a3886a1b45f0cdb996c852758a (patch) | |
tree | 0b87ba4913509aa7cf07ac1f4c1a0264c6afaab9 /libguile/strorder.c | |
parent | a65b9c802eab861830575f4a9f4b974a74552a14 (diff) | |
download | guile-dbe26481436613a3886a1b45f0cdb996c852758a.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/strorder.c')
-rw-r--r-- | libguile/strorder.c | 6 |
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; |