with-undo ( ..a document quot: ( ..a document -- ..b ) -- ..b )

Vocabulary

documents.private

Inputs

document	an object
quot	a quotation with stack effect ( ..a document -- ..b )

Outputs

None

Definition

USING: accessors kernel ;

IN: documents.private

: with-undo
    ( ..a document quot: ( ..a document -- ..b ) -- ..b )
    [ t >>inside-undo? ] dip keep f >>inside-undo? drop ; inline