update-model ( model -- )
Models » Implementing models

Prev:

set-model ( value model -- )

Vocabulary
models

Inputs

model

a 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 ;