Refactor all usages of >r/r> in core to use dip, 2dip, 3dip

[factor.git] / core / vectors / vectors-tests.factor

diff --git a/core/vectors/vectors-tests.factor b/core/vectors/vectors-tests.factor
index 4f9bba348320409eacafa36cb228aae3a9cecf74..f2e29d79e84de3c3ddc3c27a8de5fe937ab59cb2 100644 (file)
--- a/core/vectors/vectors-tests.factor
+++ b/core/vectors/vectors-tests.factor
@@ -71,7 +71,7 @@ IN: vectors.tests
 
 [ t ] [
     V{ 1 2 3 4 } dup underlying>> length
-    >r clone underlying>> length r>
+    [ clone underlying>> length ] dip
     =
 ] unit-test
 
@@ -91,7 +91,7 @@ IN: vectors.tests
 [ 4 ] [ 5 V{ 1 2 3 4 5 } index ] unit-test
 
 [ t ] [
-    100 >array dup >vector <reversed> >array >r reverse r> =
+    100 >array dup >vector <reversed> >array [ reverse ] dip =
 ] unit-test
 
 [ fixnum ] [ 1 >bignum V{ } new-sequence length class ] unit-test