change-model* ( ..a model quot: ( ..a obj -- ..b ) -- ..b )

Vocabulary

models

Inputs

model	a model
quot	a quotation with stack effect ( ..a obj -- ..b )

Outputs

None

Word description

Applies the quotation to the current value of the model and calls model-changed on all observers registered with add-connection without actually changing the value of the model. This is useful for notifying observers of operations that mutate a value, as in push-model and pop-model.

See also

set-model, ?set-model, change-model, (change-model), push-model, pop-model

Definition

USING: kernel ;

IN: models

: change-model*
    ( ..a model quot: ( ..a obj -- ..b ) -- ..b )
    [ keep ] curry change-model ; inline