undo/redo ( document source-quot dest-quot do-quot -- )

Vocabulary

documents.private

Inputs

document	an object
source-quot	an object
dest-quot	an object
do-quot	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: documents.private

: undo/redo ( document source-quot dest-quot do-quot -- )
    [ dupd call [ drop ] ] 2dip
    '[ pop swap [ @ push ] _ 2bi ] if-empty ; inline