?chomp ( seq begin tester chopper -- newseq ? )

Vocabulary

splitting.private

Inputs

seq	an object
begin	an object
tester	an object
chopper	an object

Outputs

newseq	an object
?	an object

Definition

USING: kernel sequences ;

IN: splitting.private

: ?chomp ( seq begin tester chopper -- newseq ? )
    [ [ 2dup ] dip call ] dip [ [ length ] dip call t ] curry
    [ drop f ] if ; inline