sorted-preference-color ( free preferences shared -- color )


Vocabulary
compiler.cfg.register-allocation.validation.color-preferences

Inputs
freean object
preferencesan object
sharedan object


Outputs
coloran object


Definition
USING: arrays assocs kernel math sequences sorting ;

IN:
compiler.cfg.register-allocation.validation.color-preferences

:: sorted-preference-color
( free preferences shared -- color )
free [| color |
color preferences at 0 or color shared at 0 or +
neg color 2array
] sort-by first ;