From dd054d41382ab6e13e536f80e2697f4b48d1c512 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 29 Aug 1999 18:04:55 +0000 Subject: [PATCH] * strorder.c (scm_string_less_p, scm_string_ci_less_p): Bugfix. (Thanks to Karoly Lorentey.) --- libguile/strorder.c | 8 ++++---- 1 file 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