(undo) ( revquot -- )

Vocabulary

inverse

Inputs

revquot

an object

Outputs

None

Definition

USING: make sequences ;

IN: inverse

: (undo) ( revquot -- )
    [ unclip-slice inverse % (undo) ] unless-empty ;