diff options
Diffstat (limited to 'tools/coqdoc/alpha.ml')
-rw-r--r-- | tools/coqdoc/alpha.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/coqdoc/alpha.ml b/tools/coqdoc/alpha.ml index aef17031d..fe26e0086 100644 --- a/tools/coqdoc/alpha.ml +++ b/tools/coqdoc/alpha.ml @@ -32,10 +32,10 @@ let compare_char c1 c2 = match norm_char c1, norm_char c2 with | _, 'A'..'Z' -> 1 | c1, c2 -> compare c1 c2 -let compare_string s1 s2 = +let compare_string s1 s2 = let n1 = String.length s1 in let n2 = String.length s2 in - let rec cmp i = + let rec cmp i = if i == n1 || i == n2 then n1 - n2 else |