shorten-ranges ( n ranges -- )


Vocabulary
compiler.cfg.linear-scan.ranges

Inputs
nan object
rangesan object


Outputs
None

Definition
USING: arrays kernel sequences ;

IN: compiler.cfg.linear-scan.ranges

: shorten-ranges ( n ranges -- )
[ empty? ] [ dupd add-new-range ]
[ [ last second 2array ] keep set-last ] 1if ;