gml-pop-back ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: gml.runtime kernel kernel.private math sequences ;

IN: gml.core

: gml-pop-back ( registers gml -- registers gml )
    { gml } declare 0 1 [
        dup pop-operand dup integer?
        [ [ dup pop-operand ] dip head* ] [ but-last ] if
    ] gml-primitive ;