call-change-model ( model quot -- newvalue model )

Vocabulary

models

Inputs

model	an object
quot	an object

Outputs

newvalue	an object
model	an object

Definition

USING: accessors kernel ;

IN: models

: call-change-model ( model quot -- newvalue model )
    over [ [ value>> ] dip call ] dip ; inline