swap-inverse ( math-inverse revquot -- revquot* quot )

Vocabulary

inverse

Inputs

math-inverse	an object
revquot	an object

Outputs

revquot*	an object
quot	an object

Definition

USING: kernel sequences ;

IN: inverse

: swap-inverse ( math-inverse revquot -- revquot* quot )
    next assure-constant rot second '[ @ swap @ ] ;