2check-when ( ..a obj1 obj2 cond: ( ..a obj1 obj2 -- ? ) true: ( ..a obj1 obj2 -- ..b ) -- ..b )

Vocabulary

combinators.extras

Inputs

obj1	an object
obj2	an object
cond	a quotation with stack effect ( ..a obj1 obj2 -- ? )
true	a quotation with stack effect ( ..a obj1 obj2 -- ..b )

Outputs

None

Definition

USING: kernel ;

IN: combinators.extras

: 2check-when
    ( ..a obj1 obj2 cond: ( ..a obj1 obj2 -- ? ) true: ( ..a obj1 obj2 -- ..b ) -- ..b )
    [ 2check ] dip when ; inline