expire ( seq -- )

Vocabulary

help.home

Inputs

seq

an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: help.home

: expire ( seq -- )
    [ length recent-count - [ 0 > ] keep ] keep
    '[ 0 _ _ delete-slice ] when ;