with-self ( quot -- model )

Vocabulary

models.combinators

Inputs

quot	quotation that recieves its own return value

Outputs

model

a model

Word description

Fixed points for models: the quot reacts to the same model to gives

Definition

USING: kernel models ;

IN: models.combinators

: with-self ( quot -- model )
    [ f <basic> dup ] dip call swap [ add-dependency ] keep ;
    inline