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 ] curry ] dip
    [ clamp ] curry compose change-index drop ;