new-model ( value class -- model )

Vocabulary

models

Inputs

value	an object
class	an object

Outputs

model

an object

Definition

USING: accessors kernel ;

IN: models

: new-model ( value class -- model )
    new swap >>value V{ } clone >>connections
    V{ } clone >>dependencies 0 >>ref ; inline