remove-first! ( obj seq -- seq )

Vocabulary

sequences.extras

Inputs

obj	an object
seq	a sequence

Outputs

seq	a sequence

Word description

A version of remove-first that modifies seq in place.

Definition

USING: kernel sequences ;

IN: sequences.extras

: remove-first! ( obj seq -- seq )
    [ index ] keep over [ remove-nth! ] [ nip ] if ;