cleanup "over push" is "suffix!".

[factor.git] / basis / math / matrices / matrices.factor

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 58e205fcfd5e00a52132c831921906f6d8051417..d1894108c083b9742d7a348452e1bfe40d9a1c57 100644 (file)
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -162,7 +162,7 @@ IN: math.matrices
     [ dupd proj v- ] each ;
 
 : gram-schmidt ( seq -- orthogonal )
-    V{ } clone [ over (gram-schmidt) over push ] reduce ;
+    V{ } clone [ over (gram-schmidt) suffix! ] reduce ;
 
 : norm-gram-schmidt ( seq -- orthonormal )
     gram-schmidt [ normalize ] map ;