split-ranges ( ranges n -- before after )
Live ranges utilities
Prev:split-range ( range n -- before after )


Vocabulary
compiler.cfg.linear-scan.ranges

Inputs
rangesan object
nan object


Outputs
beforean object
afteran object


Definition
USING: kernel math sequences ;

IN: compiler.cfg.linear-scan.ranges

: split-ranges ( ranges n -- before after )
[ [ [ first ] ] dip [ <= ] curry compose partition ] [
[ over last ] dip 2dup split-last-range?
[ split-last-range ] [ 2drop ] if
] bi ;