(when-model)

Vocabulary

models.combinators

Definition

IN: models.combinators

TUPLE: (when-model) < multi-model quot cond ;

Methods

USING: accessors combinators kernel models.combinators ;

M: (when-model) (model-changed)
    [ quot>> ] 2keep [ value>> ] [ cond>> ] bi*
    ( a -- ? ) call-effect
    [ ( model -- ) call-effect ] [ 2drop ] if ;