From fe767253a136b0f1d4598592fe27517bb3f7d18b Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 13 Dec 2011 19:46:44 -0800
Subject: [PATCH] math.vectors: add higher-order stack effect to vif

---
 basis/math/vectors/vectors.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/vectors/vectors.factor b/basis/math/vectors/vectors.factor
index 466c8b4826..986afd301a 100644
--- a/basis/math/vectors/vectors.factor
+++ b/basis/math/vectors/vectors.factor
@@ -193,7 +193,7 @@ GENERIC: v? ( mask true false -- result )
 M: object v? 
     [ vand ] [ vandn ] bi-curry* bi vor ; inline
 
-:: vif ( mask true-quot false-quot -- result )
+:: vif ( mask true-quot: ( -- x ) false-quot: ( -- x ) -- result )
     {
         { [ mask vall?  ] [ true-quot  call ] }
         { [ mask vnone? ] [ false-quot call ] }