intersect-ranges ( ranges1 ranges2 -- n/f )


Vocabulary
compiler.cfg.linear-scan.ranges

Inputs
ranges1an object
ranges2an object


Outputs
n/fan object


Definition
USING: kernel sequences ;

IN: compiler.cfg.linear-scan.ranges

: intersect-ranges ( ranges1 ranges2 -- n/f )
[ [ intersect-range ] with map-find drop ] curry
map-find drop ;