gml-sharpV ( registers gml -- registers gml )

Vocabulary

gml.b-rep

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: alien.c-types euler.operators gml.runtime kernel.private
;

IN: gml.b-rep

: gml-sharpV ( registers gml -- registers gml )
    { gml } declare 2 0 [ c-bool> sharp-v ] gml-primitive ;