Fixed dependency issue with linear splits

This commit is contained in:
Cédric Pasteur 2011-10-17 15:25:52 +02:00
parent e2d4d33d97
commit 4f9a91eebd

View file

@ -70,7 +70,7 @@ struct
let names = Read.read (containt node) in
List.iter (attach names_to_graph node) names;
let reads = Misc.list_diff names (Read.linear_read (containt node)) in
List.iter (attach lin_map node) names;
List.iter (attach lin_map node) reads;
make_graph g_list names_to_graph lin_map
in