when-model ( model quot cond -- model )

Vocabulary

models.combinators

Inputs

model	a model
quot	called on the model if the quot yields true
cond	a quotation called on the model's value, yielding a boolean value

Outputs

model

a model

Word description

Calls quot when model updates if its value meets the condition set in cond

Definition

USING: accessors arrays kernel ;

IN: models.combinators

: when-model ( model quot cond -- model )
    rot 1array (when-model) <multi-model> swap >>cond
    swap >>quot ;