summaryrefslogtreecommitdiff
path: root/libguile/strorder.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-29 18:04:55 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-29 18:04:55 +0000
commitdd054d41382ab6e13e536f80e2697f4b48d1c512 (patch)
tree32701ae461a6979099e6526e684717cb0ca7bd63 /libguile/strorder.c
parentc1c6aa4b204879d22281a382b4330d6fb4e18b9c (diff)
downloadguile-dd054d41382ab6e13e536f80e2697f4b48d1c512.tar.gz
* strorder.c (scm_string_less_p, scm_string_ci_less_p): Bugfix.
(Thanks to Karoly Lorentey.)
Diffstat (limited to 'libguile/strorder.c')
-rw-r--r--libguile/strorder.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/strorder.c b/libguile/strorder.c
index cb618e17a..f445c083c 100644
--- a/libguile/strorder.c
+++ b/libguile/strorder.c
@@ -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++) {