?first2 ( seq -- first/f second/f )

Vocabulary

wrap.words.private

Inputs

seq

an object

Outputs

first/f	an object
second/f	an object

Definition

USING: kernel math sequences sequences.private ;

IN: wrap.words.private

: ?first2 ( seq -- first/f second/f )
    dup length dup 1 >
    [ drop first2-unsafe ]
    [ 0 > [ first-unsafe f ] [ drop f f ] if ] if ;