let profile = ref false
let verbose = ref false
+let dir = Sys.getcwd ()
+let project_root = Filename.dirname Sys.argv.(0)
+let () = Sys.chdir project_root
+
let () =
for i = 1 to Array.length Sys.argv - 1 do
match Sys.argv.(i) with
let overbose = if !verbose then " -classic-display " else ""
let cmd = "ocamlbuild -use-ocamlfind " ^ overbose ^ oprofile ^ odebug ^ otarget
-let _ = Sys.command cmd
+let i = Sys.command cmd
+let () = Sys.chdir dir
+let _ = exit i