diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/array.ml | 2 | ||||
| -rw-r--r-- | stdlib/scanf.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/array.ml b/stdlib/array.ml index 076a3af03..37c663dc1 100644 --- a/stdlib/array.ml +++ b/stdlib/array.ml @@ -147,7 +147,7 @@ let sort cmp a = set a i e; end; in - let rec trickle l i e = try trickledown l i e with Bottom i -> set a i e in + let trickle l i e = try trickledown l i e with Bottom i -> set a i e in let rec bubbledown l i = let j = maxson l i in set a i (get a j); diff --git a/stdlib/scanf.ml b/stdlib/scanf.ml index cac4a136a..b619bf8f0 100644 --- a/stdlib/scanf.ml +++ b/stdlib/scanf.ml @@ -1032,7 +1032,7 @@ let scan_range fmt j = scan_closing (j + 1) | _ -> scan_closing j in - let rec scan_first_neg j = + let scan_first_neg j = if j >= len then incomplete_format fmt else match Sformat.get fmt j with | '^' -> |