Suppression ;;

ocaml/affichage_graphe.ml

@@ -41,23 +41,23 @@ let graphe_to_dot fn oriente graphe marques estimations parents =
         graphe.(x)
   done;
   print "}";
-  close_out os;;
+  close_out os
 
 let run wait cmd =
   if wait then
     ignore (Unix.system cmd)
   else
-    ignore (Unix.open_process cmd);;
+    ignore (Unix.open_process cmd)
 
 let rundot fn =
   let bn = try Filename.chop_extension fn with Invalid_argument _ -> fn in
   let pdfn = bn^".pdf" in
   run true ("dot -Tpdf " ^ (Filename.quote fn) ^ " -o " ^ (Filename.quote pdfn));
-  pdfn;;
+  pdfn
 
 let openPDF wait fn =
-    run wait ("evince " ^ (Filename.quote fn));;
+    run wait ("evince " ^ (Filename.quote fn))
 
 let vizgraph wait fn =
   let pdfn = rundot fn in
-  openPDF wait pdfn;;
+  openPDF wait pdfn