choose ( M-x M-x -- M-x )

Vocabulary

monadics

Inputs

M-x	an object
M-x	an object

Outputs

M-x

an object

Definition

IN: monadics

GENERIC#: choose 1 ( M-x M-x -- M-x )

Methods

USING: kernel monadics ;

M: Either choose dup Right? [ drop ] [ nip ] if ;


USING: kernel monadics ;

M: Maybe choose dup Nothing? [ drop ] [ nip ] if ;