Using "same?" in more places.

[factor.git] / extra / path-finding / path-finding-tests.factor

diff --git a/extra/path-finding/path-finding-tests.factor b/extra/path-finding/path-finding-tests.factor
index 6c20104fe1884a570936f30fd0599b66f9493887..c81a3b9d7a573fbb0cc06bb653bca95b59f79736 100644 (file)
--- a/extra/path-finding/path-finding-tests.factor
+++ b/extra/path-finding/path-finding-tests.factor
@@ -41,7 +41,7 @@ M: maze heuristic
     drop v- [ abs ] [ + ] map-reduce ;
 
 M: maze cost
-    drop 2dup [ first ] bi@ = [ [ second ] bi@ > 1 5 ? ] [ 2drop 2 ] if ;
+    drop 2dup [ first ] same? [ [ second ] bi@ > 1 5 ? ] [ 2drop 2 ] if ;
 
 : test1 ( to -- path considered )
     { 1 1 } swap maze new [ find-path ] [ considered ] bi ;