wrap-non-callable ( obj -- quot )


Vocabulary
fry.private

Inputs
objan object


Outputs
quotan object


Definition
USING: kernel quotations ;

IN: fry.private

: wrap-non-callable ( obj -- quot )
[ callable? ] [ [ call ] curry ] 1unless ; inline