if-either ( value left-quot right-quot -- )

Vocabulary

monads

Inputs

value	an object
left-quot	an object
right-quot	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: monads

: if-either ( value left-quot right-quot -- )
    [ [ value>> ] [ left? ] bi ] 2dip if ; inline