gml-makeEVone ( registers gml -- registers gml )

Vocabulary

gml.b-rep

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: euler.operators gml.macros gml.runtime kernel
kernel.private ;

IN: gml.b-rep

: gml-makeEVone ( registers gml -- registers gml )
    { gml } declare 2 1
    [ \ makeEVone-record [ dupd make-ev ] 2 log-euler-op ]
    gml-primitive ;