Replace >r r> usage with dip in math.vectors

diff --git a/basis/math/vectors/vectors.factor b/basis/math/vectors/vectors.factor
index 5316720b2f9010f6ad9968252f55a89cec0d188a..01a421b4e7e210d41161743452b71986de1da5e6 100644 (file)
--- a/basis/math/vectors/vectors.factor
+++ b/basis/math/vectors/vectors.factor
@@ -25,7 +25,7 @@ IN: math.vectors
 : normalize ( u -- v ) dup norm v/n ;
 
 : set-axis ( u v axis -- w )
-    [ >r zero? 2over ? r> swap nth ] map-index 2nip ;
+    [ [ zero? 2over ? ] dip swap nth ] map-index 2nip ;
 
 HINTS: vneg { array } ;
 HINTS: norm-sq { array } ;