gml-primitive ( inputs# outputs# quot: ( registers gml inputs... -- outputs... ) -- quot: ( registers gml -- registers gml ) )

Vocabulary

gml.runtime

Inputs

inputs#	an object
outputs#	an object
quot	a quotation with stack effect ( registers gml inputs... -- outputs... )

Outputs

quot	a quotation with stack effect ( registers gml -- registers gml )

Definition

USING: kernel ;

IN: gml.runtime

MACRO: gml-primitive
    ( inputs# outputs# quot: ( registers gml inputs... -- outputs... ) -- quot: ( registers gml -- registers gml ) )
    swap [ [ [ inputs ] curry ] dip compose ] dip
    [ outputs ] curry compose ;