?trim-tail ( seq quot: ( elt -- ? ) -- seq/newseq )


Vocabulary
sequences.extras

Inputs
seqa sequence
quota quotation


Outputs
seq/newseqan object


Word description
Similar to trim-tail, but sequences that do not require trimming are left as is.

Definition
USING: kernel sequences sequences.private ;

IN: sequences.extras

: ?trim-tail ( seq quot: ( elt -- ? ) -- seq/newseq )
over empty?
[ drop ]
[ over last-unsafe over call [ trim-tail ] [ drop ] if ] if
; inline