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

Vocabulary

models

Inputs

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

Outputs

None

Word description

Applies the quotation to the current value of the model to yield a new value, then changes the value of the model to the new value without notifying any observers registered with add-connection.

Notes

There are very few reasons for user code to call this word. Instead, call change-model, which notifies observers.

See also

set-model, ?set-model, change-model, change-model*, push-model, pop-model

Definition

USING: accessors ;

IN: models

: (change-model)
    ( ..a model quot: ( ..a obj -- ..b newobj ) -- ..b )
    call-change-model value<< ; inline