push-if-not-last ( elt seq -- )

Vocabulary

ui.tools.listener.history.private

Inputs

elt	an object
seq	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: ui.tools.listener.history.private

: push-if-not-last ( elt seq -- )
    2dup ?last = [ 2drop ] [ push ] if ;