check-stack ( seq n -- seq n )


Vocabulary
gml.runtime

Inputs
seqan object
nan object


Outputs
seqan object
nan object


Definition
USING: kernel math sequences ;

IN: gml.runtime

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