Using "same?" in more places.

[factor.git] / basis / bit-sets / bit-sets.factor

diff --git a/basis/bit-sets/bit-sets.factor b/basis/bit-sets/bit-sets.factor
index 97201256215263e5a87f30ddd81877ffa4101cd1..f0d366e7ed519f1ac177384fa5e8ac2c38d939b8 100644 (file)
--- a/basis/bit-sets/bit-sets.factor
+++ b/basis/bit-sets/bit-sets.factor
@@ -75,7 +75,7 @@ M: bit-set members
 : bit-set-like ( set bit-set -- bit-set' )
     ! Throws an error if there are keys that can't be put
     ! in the bit set
-    over bit-set? [ 2dup [ table>> length ] bi@ = ] [ f ] if
+    over bit-set? [ 2dup [ table>> length ] same? ] [ f ] if
     [ drop ] [
         [ members ] dip table>> length <bit-set>
         [ [ adjoin ] curry each ] keep