Use eq? instead of number= in a few places

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index 577dd153a12a2f6e4e64305944a4340a349aef34..8cfa671a8b2ef4b2a8dcd106dc48bce09863a9af 100644 (file)
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -167,6 +167,6 @@ M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
 
 M: hashtable hashcode*
     [
-        dup assoc-size 1 number=
+        dup assoc-size 1 eq?
         [ assoc-hashcode ] [ nip assoc-size ] if
     ] recursive-hashcode ;

diff --git a/core/sbufs/sbufs.factor b/core/sbufs/sbufs.factor
index e45d98a3df1dfbbda1b59a93b98368fd010e5b91..5a30654f03677a00c34a14ea3b6d97c9a01a0c62 100644 (file)
--- a/core/sbufs/sbufs.factor
+++ b/core/sbufs/sbufs.factor
@@ -33,7 +33,7 @@ M: string new-resizable drop <sbuf> ;
 M: string like
     drop dup string? [
         dup sbuf? [
-            dup length over underlying>> length number= [
+            dup length over underlying>> length eq? [
                 underlying>> dup reset-string-hashcode
             ] [
                 >string

diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 8ff5a7caf4b63981cd531ce4d796822c4b739cbb..944286cce567d72bbd5f01b30c015e76a22cc297 100644 (file)
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -20,7 +20,7 @@ PRIVATE>
 
 M: string equal?
     over string? [
-        over hashcode over hashcode number=
+        over hashcode over hashcode eq?
         [ sequence= ] [ 2drop f ] if
     ] [
         2drop f