classify-read ( stack n -- val )

Vocabulary

compiler.cfg.stacks.padding

Inputs

stack	an object
n	an object

Outputs

val

an object

Definition

USING: kernel math sequences ;

IN: compiler.cfg.stacks.padding

: classify-read ( stack n -- val )
    swap 2dup second member?
    [ 2drop 2 ] [ first >= [ 1 ] [ 0 ] if ] if ;