2falsify ( obj1 obj2 -- obj1/f obj2/f )

Vocabulary

combinators.extras

Inputs

obj1	an object
obj2	an object

Outputs

obj1/f	an object
obj2/f	an object

Definition

USING: kernel ;

IN: combinators.extras

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