(trim-head) ( seq quot -- seq n )

Vocabulary

sequences.private

Inputs

seq	an object
quot	an object

Outputs

seq	an object
n	an object

Definition

USING: kernel sequences ;

IN: sequences.private

: (trim-head) ( seq quot -- seq n )
    over [ [ not ] compose find drop ] dip swap
    [ dup length ] unless* ; inline