Clean up code

 - Remove useless parenthesis
 - Use function from Sys module, allow better support of all platforms and
   do not to use one more library. So that, executable is more little

_oasis

@@ -28,5 +28,5 @@ PreBuildCommand: echo "Atdgen executed"
 Executable oclaunch
   Path:       src
   MainIs:     oclaunch.ml
-  BuildDepends: core, atdgen, threads, core_extended
+  BuildDepends: core, atdgen, threads
   CompiledObject: best

src/tmp_file.ml

@@ -75,12 +75,12 @@ and create_tmp_file () =
 (* Function to open tmp file *)
 let rec init () =
   (* If file do not exists, create it *)
-  let file_exists = (Sys.file_exists Const.tmp_file) in
+  let file_exists = Sys.file_exists Const.tmp_file in
     match file_exists with
       | `No -> create_tmp_file ();
           init ()
       | `Unknown -> begin
-          (*Core_extended.Shell.rm tmp;*)
+          Sys.remove Const.tmp_file;
           init ()
         end
       | `Yes -> read ()