commit-literals ( -- )

Vocabulary

stack-checker.state

Word description

Outputs all remaining literals to the current stack-visitor as #push instructions. They are also pushed onto the compile-time data stack.

See also

meta-d, literals

Definition

USING: kernel namespaces sequences ;

IN: stack-checker.state

: commit-literals ( -- )
    literals get [ [ (push-literal) ] each ] [ delete-all ] bi ;