factor: trim using lists

[factor.git] / extra / benchmark / 3d-matrix-vector / 3d-matrix-vector.factor

diff --git a/extra/benchmark/3d-matrix-vector/3d-matrix-vector.factor b/extra/benchmark/3d-matrix-vector/3d-matrix-vector.factor
index 563bf4558ce8648b5db9fb83f99427935c92c233..7f43e0e7b328a3122f32a4a733d62fead4dcf37f 100644 (file)
--- a/extra/benchmark/3d-matrix-vector/3d-matrix-vector.factor
+++ b/extra/benchmark/3d-matrix-vector/3d-matrix-vector.factor
@@ -1,5 +1,5 @@
-USING: kernel locals math math.matrices.simd math.order math.vectors
-math.vectors.simd prettyprint sequences typed ;
+USING: kernel math math.matrices.simd math.vectors
+math.vectors.simd prettyprint typed ;
 QUALIFIED-WITH: alien.c-types c
 IN: benchmark.3d-matrix-vector
 
@@ -15,7 +15,7 @@ TYPED:: mv-matrix ( pitch: float yaw: float location: float-4 -- matrix: matrix4
     float-4{ 0.0 1.0 0.0 0.0 } yaw   rotation-matrix4
     location vneg translation-matrix4 m4. m4. ;
 
-:: 3d-matrix ( -- )
+:: 3d-matrix-vector-benchmark ( -- )
     f :> result!
     100000 [
         float-4{ 1024.0 768.0 0.0 0.0 } 0.7 0.25 1024.0 p-matrix :> p
@@ -24,4 +24,4 @@ TYPED:: mv-matrix ( pitch: float yaw: float location: float-4 -- matrix: matrix4
     ] times
     result . ;
 
-MAIN: 3d-matrix
+MAIN: 3d-matrix-vector-benchmark