(add-history) ( history to -- )

Vocabulary

models.history

Inputs

history	an object
to	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: models.history

: (add-history) ( history to -- )
    swap value>> [ swap push ] [ drop ] if* ;