(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 [ negate find drop ] dip swap [ dup length ] unless* ;
    inline