?1arg ( obj quot: ( obj -- ? ) -- obj/f )

Vocabulary

combinators.extras

Inputs

obj	an object
quot	a quotation with stack effect ( obj -- ? )

Outputs

obj/f

an object

Definition

USING: kernel ;

IN: combinators.extras

: ?1arg ( obj quot: ( obj -- ? ) -- obj/f )
    [ ?call ] keepd '[ _ ] [ f ] if ; inline