[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-95-g06fc34

From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-95-g06fc34c
Date: Thu, 10 Mar 2011 22:38:41 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, stable-2.0 has been updated
       via  06fc34c23f2c6987ba1dc8cbf5a084ff24a83e53 (commit)
      from  514642d3c7b5406952e5461918b718e13a06a2c1 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 06fc34c23f2c6987ba1dc8cbf5a084ff24a83e53
Author: Mark H Weaver <address@hidden>
Date:   Thu Mar 10 17:35:19 2011 -0500

    Fix bug to make `string=' much faster
    * libguile/srfi-13.c (scm_string_eq): Fix a bug which caused the slow
      general string_compare function to be used for strings of unequal


Summary of changes:
 libguile/srfi-13.c |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c
index ab933c2..06d7f3b 100644
--- a/libguile/srfi-13.c
+++ b/libguile/srfi-13.c
@@ -1181,7 +1181,9 @@ SCM_DEFINE (scm_string_eq, "string=", 2, 4, 0,
       len1 = scm_i_string_length (s1);
       len2 = scm_i_string_length (s2);
-      if (SCM_LIKELY (len1 == len2))
+      if (len1 != len2)
+       return SCM_BOOL_F;
+      else
          if (!scm_i_is_narrow_string (s1))
            len1 *= 4;

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]