check-stack ( seq n -- seq n )

Vocabulary

gml.runtime

Inputs

seq	an object
n	an object

Outputs

seq	an object
n	an object

Definition

USING: kernel math sequences ;

IN: gml.runtime

: check-stack ( seq n -- seq n )
    2dup swap length > [ gml-stack-underflow ] when ; inline