pop-literal ( -- obj )
Stack effect inference implementation

Prev:	pop-d ( -- obj )
Next:	pop-r ( -- obj )

Vocabulary
stack-checker.backend

Inputs
None

Outputs

obj

an object

Word description
Used for popping a value off the datastack which is expected to be a literal.

Definition

USING: accessors arrays kernel namespaces sequences
stack-checker.state stack-checker.values stack-checker.visitor ;

IN: stack-checker.backend

: pop-literal ( -- obj )
    literals get
    [ pop-d [ 1array #drop, ] [ literal value>> ] bi ] [ pop ]
    if-empty ;