underflowable-peek? ( state peek -- ? )

Vocabulary

compiler.cfg.stacks.padding

Inputs

state	an object
peek	an object

Outputs

?

an object

Definition

USING: accessors compiler.cfg.stacks.local kernel sequences ;

IN: compiler.cfg.stacks.padding

: underflowable-peek? ( state peek -- ? )
    2dup loc>> >loc< swap [ 0 1 ? swap nth ] dip classify-read
    dup 2 = [ drop vacant-peek ] [ 2nip 1 = ] if ;