make-gml ( quot -- gml b-rep )

Vocabulary

gml

Inputs

quot

an object

Outputs

gml	an object
b-rep	an object

Definition

USING: euler.b-rep gml.runtime kernel namespaces ;

IN: gml

: make-gml ( quot -- gml b-rep )
    [
        <gml> gml set <b-rep> b-rep set call
        gml get b-rep get dup finish-b-rep
    ] with-scope ; inline