singleton-first ( seq -- elt )

Vocabulary

images.jpeg.private

Inputs

seq

an object

Outputs

elt

an object

Definition

USING: kernel sequences ;

IN: images.jpeg.private

: singleton-first ( seq -- elt )
    [ length 1 assert= ] [ first ] bi ;