Using "same?" in more places.

[factor.git] / basis / io / directories / search / search-tests.factor

diff --git a/basis/io/directories/search/search-tests.factor b/basis/io/directories/search/search-tests.factor
index db4b58c4fde181c01a5d167ba8c3744191547019..28585d5f41fa64b178697cc6a001bc6cd6f8e9e5 100644 (file)
--- a/basis/io/directories/search/search-tests.factor
+++ b/basis/io/directories/search/search-tests.factor
@@ -8,7 +8,7 @@ IN: io.directories.search.tests
     [
         10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
         current-temporary-directory get [ ] find-all-files
-    ] cleanup-unique-directory [ natural-sort ] bi@ =
+    ] cleanup-unique-directory [ natural-sort ] same?
 ] unit-test
 
 [ f ] [