diff options
Diffstat (limited to 'stdlib/scanf.ml')
| -rw-r--r-- | stdlib/scanf.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 | '^' -> |