ref-model ( model -- n )

Vocabulary

models

Inputs

model

an object

Outputs

n

an object

Definition

USING: accessors kernel math ;

IN: models

: ref-model ( model -- n ) [ 1 + dup ] change-ref drop ;