flip-quot ( quot -- quot )


Vocabulary
reverse

Inputs
quotan object


Outputs
quotan object


Definition
USING: accessors kernel sequences shuffle stack-checker ;

IN: reverse

: flip-quot ( quot -- quot )
[ infer in>> length ] keep [ [ nreverse ] curry ] dip
compose ;