if-maybe ( maybe just-quot nothing-quot -- )

Vocabulary

monads

Inputs

maybe	an object
just-quot	an object
nothing-quot	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: monads

: if-maybe ( maybe just-quot nothing-quot -- )
    pick nothing? [ 2nip call ] [ drop [ value>> ] dip call ] if
    ; inline