Fixed stupid bug in the order of args

This commit is contained in:
Cédric Pasteur 2011-04-19 10:38:48 +02:00
parent 3618ccc8ed
commit 740114764c

View file

@ -199,7 +199,7 @@ struct
List.fold_left (fun pds n -> Pnode n :: pds) acc nds
| _ -> pd :: acc
in
{ p with p_desc = List.fold_right program_desc [] p.p_desc }
{ p with p_desc = List.fold_right program_desc p.p_desc [] }
end
end