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


Vocabulary
combinators.extras

Inputs and outputs
objan object
quota quotation with stack effect ( obj -- ? )
obj/fan object


Definition


: ?1arg ( obj quot: ( obj -- ? ) -- obj/f )
[ ?1res ] 2keep drop [ ] curry [ f ] if ; inline