gml-stack. ( gml -- )

Vocabulary

gml

Inputs

gml

an object

Outputs

None

Definition

USING: accessors gml.printer io sequences ;

IN: gml

: gml-stack. ( gml -- )
    operand-stack>>
    [ "Operand stack:" print [ "• " write print-gml ] each ]
    unless-empty ;