mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-12-13 19:41:07 +00:00
parent a65b9c802e
commit dbe2648143
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/strorder.c
View file

@ -55,7 +55,7 @@ scm_string_equal_p (s1, s2)
SCM s2; SCM s2;
{ {
register scm_sizet i; 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 (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); 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; return SCM_BOOL_F;
} }
c1 = SCM_ROCHARS (s1); c1 = SCM_ROUCHARS (s1);
c2 = SCM_ROCHARS (s2); c2 = SCM_ROUCHARS (s2);
while (0 != i--) while (0 != i--)
if (*c1++ != *c2++) if (*c1++ != *c2++)
return SCM_BOOL_F; return SCM_BOOL_F;