Improve some comments

src/const.ml

@@ -82,5 +82,5 @@ let rc_file_default = Lazy.(home >>| (fun home -> home ^ "/" ^
 let rc_file = ref rc_file_default;;
 (* Set tmp file, in witch stock launches, in biniou format *)
 let tmp_file = get_var ~default:"/tmp/.oclaunch_trace.dat" "OC_TMP";; (* File where launch are logged *)
-(* Default number for launchment *)
+(* Default number for launch *)
 let default_launch = 1;; (* TODO set it in rc file *)

src/tmp_file.ml

@@ -69,7 +69,7 @@ let rec read () =
 
 (* Function to create the tmp file *)
 and create_tmp_file () =
-    (* An empty list, without launchment *)
+    (* An empty list, without rc, commands, launch... *)
     Tmp_biniou_v.create_tmp_file ~daemon:0 ~rc:[] ()
     (* Convert it to biniou *)
     |> write
@@ -123,7 +123,7 @@ let log ~cmd ?(func= (+) 1 ) () =
   (* Function to generate the new list with right number *)
   let new_li (li : Tmp_biniou_t.rc_entry list) =
     let open List.Assoc in
-    (* Only number of launchment associated with commands *)
+    (* Only number of launch associated with commands *)
     let l = get_log ~rc_tmp:li in
     find l cmd
       |> (function None -> add l cmd Const.default_launch | Some n -> add l cmd (func n))