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 [ [ push ] compose ] dip
    [ [ [ pop swap ] ] dip ] dip [ 2bi ] 2curry compose if-empty
    ; inline