math-inverse

Vocabulary

inverse

Definition

USING: kernel words ;

IN: inverse

PREDICATE: math-inverse < word
    "math-inverse" word-prop >boolean ;

Methods

USING: inverse kernel words ;

M: math-inverse inverse
    "math-inverse" word-prop swap next dup \ swap =
    [ drop swap-inverse ] [ pull-inverse ] if ;