extend-last? ( to ranges -- ? )


Vocabulary
compiler.cfg.linear-scan.ranges

Inputs
toan object
rangesan object


Outputs
?an object


Definition
USING: kernel math sequences ;

IN: compiler.cfg.linear-scan.ranges

: extend-last? ( to ranges -- ? )
[ drop f ] [ last first 1 - >= ] if-empty ;