factor: trim using lists

[factor.git] / extra / math / matrices / simd / simd.factor

diff --git a/extra/math/matrices/simd/simd.factor b/extra/math/matrices/simd/simd.factor
index a4394e5a21287574d1b595b43d9552b6b0a3ff15..4ee38a3d003caf8b8fba343d460e55658fe8f2a2 100644 (file)
--- a/extra/math/matrices/simd/simd.factor
+++ b/extra/math/matrices/simd/simd.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009, 2011 Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors classes.struct fry generalizations kernel
-locals math math.combinatorics math.functions math.matrices.simd
-math.vectors math.vectors.simd math.quaternions sequences
+USING: accessors classes.struct generalizations kernel
+math math.functions math.matrices.simd math.vectors
+math.vectors.simd math.quaternions sequences
 sequences.generalizations sequences.private specialized-arrays
 typed ;
 FROM: sequences.private => nth-unsafe ;
@@ -94,7 +94,7 @@ TYPED:: m4.v ( m: matrix4 v: float-4 -- v': float-4 )
     v fourth m4 n*v v+ ;
 
 TYPED:: v.m4 ( v: float-4 m: matrix4 -- c: float-4 )
-    m columns [ v v. ] 4 napply float-4-boa ;
+    m columns [ v vdot ] 4 napply float-4-boa ;
 
 CONSTANT: identity-matrix4
     S{ matrix4 f