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

* strorder.c (scm_string_less_p, scm_string_ci_less_p): Bugfix.

Browse source 
(Thanks to Karoly Lorentey.)
This commit is contained in:
Mikael Djurfeldt 1999-08-29 18:04:55 +00:00
parent c1c6aa4b20
commit dd054d4138
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/strorder.c
View file

@ -110,8 +110,8 @@ scm_string_less_p (s1, s2)
SCM_ASSERT (SCM_NIMP (s1) && SCM_ROSTRINGP (s1), s1, SCM_ARG1, s_string_less_p);
SCM_ASSERT (SCM_NIMP (s2) && SCM_ROSTRINGP (s2), s2, SCM_ARG2, s_string_less_p);
len = SCM_ROLENGTH (s1);
s2len = i = SCM_ROLENGTH (s2);
if (len>i) i = len;
s2len = SCM_ROLENGTH (s2);
if (len>s2len) len = s2len;
c1 = SCM_ROUCHARS (s1);
c2 = SCM_ROUCHARS (s2);
@ -172,8 +172,8 @@ scm_string_ci_less_p (s1, s2)
SCM_ASSERT (SCM_NIMP (s1) && SCM_ROSTRINGP (s1), s1, SCM_ARG1, s_string_ci_less_p);
SCM_ASSERT (SCM_NIMP (s2) && SCM_ROSTRINGP (s2), s2, SCM_ARG2, s_string_ci_less_p);
len = SCM_ROLENGTH (s1);
s2len = i = SCM_ROLENGTH (s2);
if (len>i) i=len;
s2len = SCM_ROLENGTH (s2);
if (len>s2len) len = s2len;
c1 = SCM_ROUCHARS (s1);
c2 = SCM_ROUCHARS (s2);
for (i = 0;i<len;i++) {