singleton-first ( seq -- elt )


Vocabulary
images.jpeg.private

Inputs
seqan object


Outputs
eltan object


Definition
USING: kernel sequences ;

IN: images.jpeg.private

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