change-history-index ( history i -- )

Vocabulary

ui.tools.listener.history.private

Inputs

history	an object
i	an object

Outputs

None

Definition

USING: accessors kernel math math.order sequences ;

IN: ui.tools.listener.history.private

: change-history-index ( history i -- )
    over elements>> length 1 - '[ _ + 0 _ clamp ] change-index
    drop ;