From 57cf756c0e53c9142e4749d851ef1293f3ce0641 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 11 Nov 2008 23:04:15 -0600
Subject: [PATCH] Use eq? instead of number= in a few places

---
 core/combinators/combinators.factor | 2 +-
 core/sbufs/sbufs.factor             | 2 +-
 core/strings/strings.factor         | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index 577dd153a1..8cfa671a8b 100644
--- 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 e45d98a3df..5a30654f03 100644
--- 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 8ff5a7caf4..944286cce5 100644
--- 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