?first-break ( seq -- newseq f/element )

Vocabulary

wrap.words.private

Inputs

seq

an object

Outputs

newseq	an object
f/element	an object

Definition

USING: accessors kernel sequences ;

IN: wrap.words.private

: ?first-break ( seq -- newseq f/element )
    dup first first break?>>
    [ unclip-slice f swap make-element ] [ f ] if ;