new-arrow ( model quot class -- arrow )

Vocabulary

models.arrow

Inputs

model	an object
quot	an object
class	an object

Outputs

arrow

an object

Definition

USING: accessors kernel models ;

IN: models.arrow

: new-arrow ( model quot class -- arrow )
    f swap new-model swap >>quot [ add-dependency ] keep ;