(maybe-join) ( M-M-x -- M-x )


Vocabulary
monadics

Inputs
M-M-xan object


Outputs
M-xan object


Definition
USING: accessors kernel ;

IN: monadics

: (maybe-join) ( M-M-x -- M-x )
[ Just? ] 1guard [ value>> ] [ Nothing ] if* ;