core: Add the shuffler words but without primitives.

[factor.git] / core / strings / strings.factor

diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 4bbf642ca0d3312f2fd3508527200a591ed98bc1..0a6d1b8a62e3d4e16dc85edbcb1f4580ec26c8b0 100644 (file)
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -56,7 +56,8 @@ PRIVATE>
 
 M: string equal?
     over string? [
-        2dup [ hashcode ] bi@ eq?
+        ! faster during bootstrap than ``[ hashcode ] bi@``
+        over hashcode over hashcode eq?
         [ sequence= ] [ 2drop f ] if
     ] [
         2drop f