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

(Thanks to Karoly Lorentey.)

diff --git a/libguile/strorder.c b/libguile/strorder.c
index cb618e1..f445c08 100644 (file)
--- 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++) {