let otarget = List.fold_left (fun acc t ->
if t = "clean" || t = "-clean" then (clean_first := true; acc)
else
let otarget = List.fold_left (fun acc t ->
if t = "clean" || t = "-clean" then (clean_first := true; acc)
else
in
t ^ " " ^ acc) "" (if (!target == []) then [ "main.otarget" ] else !target)
let overbose = if !verbose then " -classic-display " else ""
in
t ^ " " ^ acc) "" (if (!target == []) then [ "main.otarget" ] else !target)
let overbose = if !verbose then " -classic-display " else ""
let clean_cmd = if !clean_first then "ocamlbuild -clean;" else ""
let build_cmd = if otarget = "" then "" else
let clean_cmd = if !clean_first then "ocamlbuild -clean;" else ""
let build_cmd = if otarget = "" then "" else