fix-upper-bound ( n ranges -- ranges' )


Vocabulary
compiler.cfg.linear-scan.ranges

Inputs
nan object
rangesan object


Outputs
ranges'an object


Definition
USING: arrays kernel math sequences ;

IN: compiler.cfg.linear-scan.ranges

: fix-upper-bound ( n ranges -- ranges' )
over [ [ first ] ] dip [ <= ] curry compose filter
unclip-last first rot 2array suffix ;