3falsify ( obj1 obj2 obj3 -- obj1/f obj2/f obj3/f )


Vocabulary
combinators.extras

Inputs
obj1an object
obj2an object
obj3an object


Outputs
obj1/fan object
obj2/fan object
obj3/fan object


Definition
USING: kernel ;

IN: combinators.extras

: 3falsify ( obj1 obj2 obj3 -- obj1/f obj2/f obj3/f )
3dup and and [ 3drop f f f ] unless ; inline