>> ( M-x M-y -- M-y )

Vocabulary

monadics

Inputs

M-x	an object
M-y	an object

Outputs

M-y

an object

Definition

USING: kernel ;

IN: monadics

: >> ( M-x M-y -- M-y ) '[ drop _ ] >>= ;