clear-undo ( document -- )

Vocabulary

documents

Inputs

document

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: documents

: clear-undo ( document -- )
    V{ } clone >>undos V{ } clone >>redos drop ;