gml-ifelse ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: gml.runtime gml.types kernel kernel.private ;

IN: gml.core

: gml-ifelse ( registers gml -- registers gml )
    { gml } declare 3 0
    [ [ true? ] [ proc>quot ] [ proc>quot ] tri* if ]
    gml-primitive ;