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 _ execute ]
;