<illusion> ( model quot -- illusion )

Vocabulary

models.illusion

Inputs

model	an object
quot	an object

Outputs

illusion

an object

Definition

USING: accessors kernel models ;

IN: models.illusion

: <illusion> ( model quot -- illusion )
    f illusion new-model swap >>quot over >>model
    [ add-dependency ] keep ;