lift ( quot M-x -- M-y )


Vocabulary
monadics

Inputs
quotan object
M-xan object


Outputs
M-yan object


Definition
USING: kernel reverse ;

IN: monadics

: lift ( quot M-x -- M-y ) swap flip-quot fmap ;