Using "same?" in more places.

[factor.git] / basis / splitting / monotonic / monotonic-tests.factor

diff --git a/basis/splitting/monotonic/monotonic-tests.factor b/basis/splitting/monotonic/monotonic-tests.factor
index 77dccfb434b8628e268b465407fb0b6a36b70f0f..64d1ac0ee6d86887e82eb7d348a98f996c073d8e 100644 (file)
--- a/basis/splitting/monotonic/monotonic-tests.factor
+++ b/basis/splitting/monotonic/monotonic-tests.factor
@@ -58,8 +58,8 @@ USING: tools.test math arrays kernel sequences ;
 
 [ { { 2 2 } { 3 3 3 3 } { 4 } { 5 } } ]
 [
-    { 2 2 3 3 3 3 4 5 }        
-    [ [ odd? ] bi@ = ] slice monotonic-slice
+    { 2 2 3 3 3 3 4 5 }
+    [ [ odd? ] same? ] slice monotonic-slice
     [ >array ] map
 ] unit-test
 
@@ -67,6 +67,6 @@ USING: tools.test math arrays kernel sequences ;
     { { 1 1 1 } { 2 2 2 2 } { 3 3 } }
 ] [
     { 1 1 1 2 2 2 2 3 3 }
-    [ [ odd? ] bi@ = ] slice monotonic-slice
+    [ [ odd? ] same? ] slice monotonic-slice
     [ >array ] map
 ] unit-test