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

diff --git a/extra/math/matrices/simd/simd.factor b/extra/math/matrices/simd/simd.factor
index 2769a783bcbf715339a37f5e4abeff1a542ea044..014cd86265edaba1aea28fd8fa5764aeb1996ac2 100644 (file)
--- 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