From 740114764c7d31b4afd478b7b7d0e565318aec2c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= <cedric.pasteur@ens.fr>
Date: Tue, 19 Apr 2011 10:38:48 +0200
Subject: [PATCH] Fixed stupid bug in the order of args

---
 compiler/minils/transformations/callgraph.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/minils/transformations/callgraph.ml b/compiler/minils/transformations/callgraph.ml
index db1f952..465143c 100644
--- a/compiler/minils/transformations/callgraph.ml
+++ b/compiler/minils/transformations/callgraph.ml
@@ -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