define-gml-primitive ( word name effect def -- )

Vocabulary

gml.runtime

Inputs

word	an object
name	an object
effect	an object
def	an object

Outputs

None

Definition

USING: accessors kernel kernel.private sequences words ;

IN: gml.runtime

: define-gml-primitive ( word name effect def -- )
    [ [ add-primitive ] curry keep ]
    [ [ in>> length ] [ out>> length ] bi ] [
        [ [ [ [ ~array~ declare ] ] dip ] dip ] dip
        [ gml-primitive ] 3curry compose
    ] tri* primitive-effect define-declared ;