bind* ( mvalue quot -- mvalue' )

Vocabulary

monads

Inputs

mvalue	an object
quot	an object

Outputs

mvalue'

an object

Definition

USING: kernel ;

IN: monads

: bind* ( mvalue quot -- mvalue' )
    [ [ drop ] ] dip compose bind ;