From 8672f0d637587d863efb7fa614a0ce67f2d64f2f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 29 Nov 2008 12:05:42 -0600
Subject: [PATCH] Add fast-path for <float-array> on 2 and 3 arguments

---
 basis/float-arrays/float-arrays.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/float-arrays/float-arrays.factor b/basis/float-arrays/float-arrays.factor
index 9a71fe27d5..4aa9f79414 100644
--- a/basis/float-arrays/float-arrays.factor
+++ b/basis/float-arrays/float-arrays.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel kernel.private alien.accessors sequences
 sequences.private math math.private byte-arrays accessors
-alien.c-types parser prettyprint.backend ;
+alien.c-types parser prettyprint.backend combinators ;
 IN: float-arrays
 
 TUPLE: float-array
@@ -67,6 +67,8 @@ M: float-array pprint* pprint-object ;
 ! Specializer hints
 USING: hints math.vectors arrays ;
 
+HINTS: <float-array> { 2 } { 3 } ;
+
 HINTS: vneg { array } { float-array } ;
 HINTS: v*n { array object } { float-array float } ;
 HINTS: n*v { array object } { float float-array } ;