math.matrices.simd: hack: replace 'first4' with '4 firstn' since latter is open-coded

2009-09-30 05:00:50 -05:00 · 2009-09-30 05:00:50 -05:00 · 4c856e51e1
parent cdc7b7e2c7
commit 4c856e51e1
1 changed files with 1 additions and 1 deletions
--- a/extra/math/matrices/simd/simd.factor
+++ b/extra/math/matrices/simd/simd.factor
@ -20,7 +20,7 @@ M: matrix4 new-sequence 2drop matrix4 (struct) ; inline
 <PRIVATE

 : rows ( a -- a1 a2 a3 a4 )
-    rows>> first4 ; inline
+    rows>> 4 firstn ; inline

 :: set-rows ( c1 c2 c3 c4 c -- c )
    c rows>> :> rows