remove-first-of ( seq obj -- seq' )

Vocabulary

sequences.extras

Inputs

seq	an object
obj	an object

Outputs

seq'

an object

Definition

USING: kernel ;

IN: sequences.extras

: remove-first-of ( seq obj -- seq' )
    dupd index* [ remove-nth-of ] when* ;