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

2008-11-17 18:17:14 -05:00 · 2008-11-17 18:17:14 -05:00 · 9c27e9d61b
parent d2a67c78b2
commit 9c27e9d61b
1 changed files with 1 additions and 1 deletions
--- 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 } ;