gml-nextring ( registers gml -- registers gml )

Vocabulary

gml.b-rep

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: accessors gml.runtime kernel kernel.private ;

IN: gml.b-rep

: gml-nextring ( registers gml -- registers gml )
    { gml } declare 1 1
    [ [ next-ring>> ] [ base-face>> ] ?unless ] gml-primitive ;