literals-available? ( n -- literals ? )

Vocabulary

stack-checker.backend

Inputs

n

an object

Outputs

literals	an object
?	an object

Definition

USING: kernel math namespaces sequences stack-checker.state ;

IN: stack-checker.backend

: literals-available? ( n -- literals ? )
    literals get 2dup length <=
    [ [ swap tail* ] [ shorten-by ] 2bi t ] [ 2drop f f ] if ;