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

x6j8x · Dec 14, 2011 · 3365e1a · 3365e1a
1 parent 06a87c4
commit 3365e1a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ] }