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 )
dup callable? [ ] [ [ call ] curry ] if ; inline