add-history ( history -- )
History models

Prev:	<history> ( value -- history )
Next:	go-back ( history -- )

Vocabulary
models.history

Inputs

history

a history

Outputs
None

Word description
Adds the current value to the history.

See also
<history>, go-back, go-forward

Definition

USING: accessors kernel sequences ;

IN: models.history

: add-history ( history -- )
    dup forward>> delete-all dup back>> (add-history) ;