Vocabulary
inverse

Inputs and outputs

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

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: kernel words ;

IN: inverse

: define-pop-inverse ( word n quot -- )
[ dupd "pop-length" set-word-prop ] dip
"pop-inverse" set-word-prop ;