pop-literal ( -- rstate obj )

Vocabulary
stack-checker.backend

Definition

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

IN: stack-checker.backend

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