clear-if-empty ( list -- )

Vocabulary

unrolled-lists.private

Inputs

list

an object

Outputs

None

Definition

USING: deques kernel ;

IN: unrolled-lists.private

: clear-if-empty ( list -- )
    dup deque-empty? [ dup clear-deque ] when drop ;