remove-first ( obj seq -- seq' )

Vocabulary

sequences.extras

Inputs

obj	an object
seq	a sequence

Outputs

seq'	a sequence

Word description

Remove the first occurrence of obj in seq.

Definition

USING: kernel sequences ;

IN: sequences.extras

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