add-history ( args -- )

Vocabulary

gemini.cli

Inputs

args

an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: gemini.cli

: add-history ( args -- )
    HISTORY dup length 10 > [ 0 swap remove-nth! ] when
    dupd remove! push ;