From 4c856e51e1a0e43caeb12c1778b27f81e060e8fe Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 30 Sep 2009 05:00:50 -0500
Subject: [PATCH] math.matrices.simd: hack: replace 'first4' with '4 firstn'
 since latter is open-coded

---
 extra/math/matrices/simd/simd.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/math/matrices/simd/simd.factor b/extra/math/matrices/simd/simd.factor
index 2769a783bc..014cd86265 100644
--- 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