add-undo ( edit document -- )

Vocabulary

documents

Inputs

edit	an object
document	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: documents

: add-undo ( edit document -- )
    dup inside-undo?>>
    [ 2drop ] [ [ undos>> push ] keep redos>> delete-all ] if ;