define-dual ( word1 word2 -- )


Vocabulary
inverse

Inputs
word1a word
word2a word


Outputs
None

Word description
Defines the inverse of each word as being the other one.

See also
define-inverse, define-involution

Definition
USING: kernel quotations ;

IN: inverse

: define-dual ( word1 word2 -- )
2dup swap [ 1quotation define-inverse ] 2bi@ ;