[undo] ( quot -- undo )
Invertible quotations

Prev:	define-pop-inverse ( word n quot -- )
Next:	undo ( quot -- quot )

Vocabulary
inverse

Inputs

quot	a quotation

Outputs

undo	the inverse of the quotation

Word description
Creates the inverse of the given quotation

See also
undo

Definition

USING: make sequences ;

IN: inverse

: [undo] ( quot -- undo )
    flatten fold reverse [ (undo) ] [ ] make ;