update-model ( model -- )
Models » Implementing models
Prev:set-model ( value model -- )


Vocabulary
models

Inputs
modela model


Outputs
None

Word description
Notifies the model that its value slot has been updated by set-model.

Definition
IN: models

GENERIC: update-model ( model -- )


Methods
USING: accessors kernel models models.illusion ;

M: illusion update-model
[ [ value>> ] keep backtalk ] with-locked-model ;


USING: accessors assocs kernel models models.mapping ;

M: mapping update-model
[ value>> ] [ assoc>> ] bi [ swapd at set-model ] curry
assoc-each ;


USING: kernel models ;

M: model update-model drop ;


USING: accessors kernel models models.product ;

M: product update-model
[ value>> ] keep [ set-model ] set-product-value ;