next ( revquot -- revquot* first )


Vocabulary
inverse

Inputs
revquotan object


Outputs
revquot*an object
firstan object


Definition
USING: sequences ;

IN: inverse

: next ( revquot -- revquot* first )
[ bad-math-inverse ] [ unclip-slice ] if-empty ;