outputs ( outputs# -- quot: ( gml outputs... -- gml ) )

Vocabulary

gml.runtime

Inputs

outputs#

an object

Outputs

quot	a quotation with stack effect ( gml outputs... -- gml )

Definition

USING: accessors generalizations kernel math ;

IN: gml.runtime

MACRO: outputs
    ( outputs# -- quot: ( gml outputs... -- gml ) )
    [ 1 + ] keep [ [ npick operand-stack>> ] curry ] dip
    [ pushn ] curry compose ;