Commit c71263b3 authored by POTTIER Francois's avatar POTTIER Francois

Line break.

parent 59037c1f
...@@ -95,7 +95,8 @@ let noncomment s = ...@@ -95,7 +95,8 @@ let noncomment s =
let cmx (m : string) : string = let cmx (m : string) : string =
let candidate = m ^ ".cmx" in let candidate = m ^ ".cmx" in
if Sys.file_exists (m ^ ".ml") then candidate else Compatibility.String.uncapitalize_ascii candidate if Sys.file_exists (m ^ ".ml") then candidate
else Compatibility.String.uncapitalize_ascii candidate
(* ---------------------------------------------------------------------------- *) (* ---------------------------------------------------------------------------- *)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment