WIP

Author: hhugo

testsuite/ocamlbuild_test.ml

@@ -48,7 +48,7 @@ let sys_command cmd =
 
 let rm f =
   if exists f then
-    ignore(sys_command (Printf.sprintf "rm -r %s" f))
+    ignore(Sys.command (Printf.sprintf "rm -r %s" f))
 
 module Match = struct
 
@@ -462,7 +462,7 @@ let run ~root =
 
   let copy l dest =
     mkdir_p dest;
-    List.iter (fun f -> ignore(sys_command (Printf.sprintf "cp %s/%s %s" build_tree f dest))) l
+    List.iter (fun f -> ignore(Sys.command (Printf.sprintf "cp %s/%s %s" build_tree f dest))) l
   in
   let ocamlbuild = Printf.sprintf "%s/ocamlbuild.byte" install_bin_dir in
   copy