check-first ( seq -- first )

Vocabulary

help.markup.private

Inputs

seq

an object

Outputs

first

an object

Definition

USING: kernel sequences sequences.private ;

IN: help.markup.private

: check-first ( seq -- first )
    dup length 1 = [ length 1 number-of-arguments ] unless
    first-unsafe ;