define-pop-inverse ( word n quot -- )
Invertible quotations

Prev:	define-inverse ( word quot -- )
Next:	[undo] ( quot -- undo )

Vocabulary
inverse

Inputs

word	a word
n	number of arguments to be taken from the inverted quotation
quot	a quotation

Outputs
None

Word description
Defines the inverse of the given word, taking the given number of arguments from the inverted quotation. The quotation given should generate an inverse quotation.

See also
define-inverse

Definition

USING: words ;

IN: inverse

:: define-pop-inverse ( word n quot -- )
    word n "pop-length" set-word-prop
    word quot "pop-inverse" set-word-prop ;