diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2008-09-10 15:34:51 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2008-09-10 15:34:51 +0000 |
| commit | f855dcf49aa9270609ded8231dda88f0a8a1432f (patch) | |
| tree | 4a177f1a060b0f6d98a094a1effd3d78647b0da6 /stdlib/scanf.ml | |
| parent | adfab743f55d3301cba73b6ace1361407529b1a8 (diff) | |
| download | ocaml-f855dcf49aa9270609ded8231dda88f0a8a1432f.tar.gz | |
PR#4321 bug with positional parameters
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9017 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/scanf.ml')
| -rw-r--r-- | stdlib/scanf.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/stdlib/scanf.ml b/stdlib/scanf.ml index 4d75c149a7..0ddf6a31df 100644 --- a/stdlib/scanf.ml +++ b/stdlib/scanf.ml @@ -1196,11 +1196,12 @@ let scan_format ib ef fmt rv f = incomplete_format bad_conversion conv fmt i in let mf = Sformat.sub fmt (Sformat.index_of_int i) (j - 2 - i) in (* Read the specified format string in the input buffer, - and check its correction. *) + and check its correctness. *) let _x = scan_String max ib in let rf = token_string ib in if not (compatible_format_type rf mf) then format_mismatch rf mf else - (* For conversion %{%}, just return this format string as the token read. *) + (* For conversion %{%}, just return this format string as the token + read. *) if conv = '{' (* '}' *) then scan_fmt ir (stack f rf) j else (* Or else, read according to the format string just read. *) let ir, nf = scan (Obj.magic rf) ir (stack f rf) 0 in |