remove-last! ( obj seq -- seq )

Vocabulary

sequences.extras

Inputs

obj	an object
seq	a sequence

Outputs

seq	a sequence

Word description

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

Definition

USING: kernel sequences ;

IN: sequences.extras

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