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


Vocabulary
inverse

Inputs
math-inversean object
revquotan object


Outputs
revquot*an object
quotan object


Definition
USING: kernel sequences ;

IN: inverse

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