Using "same?" in more places.

[factor.git] / basis / persistent / hashtables / hashtables-tests.factor

diff --git a/basis/persistent/hashtables/hashtables-tests.factor b/basis/persistent/hashtables/hashtables-tests.factor
index 482367ad9cf0277bd6c27e692de3346e3e9a0969..fd259593c45318e4c0a2baec43362b4210e22e59 100644 (file)
--- a/basis/persistent/hashtables/hashtables-tests.factor
+++ b/basis/persistent/hashtables/hashtables-tests.factor
@@ -91,7 +91,7 @@ M: hash-0-b hashcode* 2drop 0 ;
     bi ;
 
 : ok? ( assoc1 assoc2 -- ? )
-    [ assoc= ] [ [ assoc-size ] bi@ = ] 2bi and ;
+    [ assoc= ] [ [ assoc-size ] same? ] 2bi and ;
 
 : test-persistent-hashtables-1 ( n -- ? )
     random-assocs ok? ;