?set-model ( value model -- )

Vocabulary

models

Inputs

value	an object
model	a model

Outputs

None

Word description

Similar to set-model, but only sets the value if the new value is different.

See also

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

Definition

USING: accessors kernel ;

IN: models

: ?set-model ( value model -- )
    2dup value>> = [ 2drop ] [ set-model ] if ;