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

Vocabulary

ui.tools.browser.history

Inputs

history	an object
to	an object
from	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: ui.tools.browser.history

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