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

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


Vocabulary
inverse

Inputs
worda word
nnumber of arguments to be taken from the inverted quotation
quota 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


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