flip-word ( word -- quot )


Vocabulary
reverse

Inputs
wordan object


Outputs
quotan object


Definition
USING: accessors effects kernel sequences shuffle ;

IN: reverse

: flip-word ( word -- quot )
[ stack-effect in>> length ] keep [ [ nreverse ] curry ] dip
[ execute ] curry compose ;