take-while ( ... seq quot: ( ... elt -- ... ? ) -- head-slice )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

head-slice

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: take-while
    ( ... seq quot: ( ... elt -- ... ? ) -- head-slice )
    [ '[ @ not ] find drop ] keepd swap [ dup length ] unless*
    head-slice ; inline