jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Fixed bug in listing colors

Browse source
This commit is contained in:
Cédric Pasteur 2011-04-21 11:24:30 +02:00
parent 032fe693ef
commit c994e58e06
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/utilities/minils/dcoloring.ml
View file

@ -19,7 +19,7 @@ module ColorSet =
module Dsatur = struct
let rec remove_colored l = match l with
| [] -> []
| v::l -> if G.Mark.get v > 0 then l else remove_colored l
| v::l -> if G.Mark.get v > 0 then l else v::(remove_colored l)
let colors i g v =
let color e colors =