parse-vector ( seq -- vec )

Vocabulary

gml.parser

Inputs

seq

an object

Outputs

vec

an object

Definition

USING: combinators gml.types kernel sequences ;

IN: gml.parser

: parse-vector ( seq -- vec )
    dup length {
        { 2 [ first2 <vec2d> ] }
        { 3 [ first3 <vec3d> ] }
        [ bad-vector-length ]
    } case ;