go-back/forward ( history to from -- )

Vocabulary

models.history

Inputs

history	an object
to	an object
from	an object

Outputs

None

Definition

USING: kernel models sequences ;

IN: models.history

:: go-back/forward ( history to from -- )
    from empty?
    [ history to (add-history) from pop history set-model ]
    unless ;