math.vectors: add higher-order stack effect to vif

diff --git a/basis/math/vectors/vectors.factor b/basis/math/vectors/vectors.factor
index 466c8b4826fe36a422d59a7ae695c79fe84656a4..986afd301aac7d8205f78b52d92089fe0cbcb88e 100644 (file)
--- 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 ] }