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

db4
Joe Groff 2011-12-13 19:46:44 -08:00
parent bd7e6b33f8
commit fe767253a1
1 changed files with 1 additions and 1 deletions

View File

@ -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 ] }