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 ] map-find drop
;