Bug reported by Yutaka Oiwa on meta formats.

As usual, an index is off by one :( git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6628 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2004-10-04 20:47:49 +00:00 · 2004-10-04 20:47:49 +00:00 · 46d2abd2fb
parent 83b16075a3
commit 46d2abd2fb
1 changed files with 1 additions and 1 deletions
--- a/typing/typecore.ml
+++ b/typing/typecore.ml
@ -723,7 +723,7 @@ let type_format loc fmt =
          let sfmt = String.sub fmt j (sj - j - 1) in
          let ty_sfmt = type_in_format sfmt in
          begin match c with
-          | '{' -> conversion (sj + 1) ty_sfmt
+          | '{' -> conversion sj ty_sfmt
          | _ -> incr meta; conversion (j - 1) ty_sfmt end
        | ')' when !meta > 0 -> decr meta; scan_format (j + 1)
        | c -> bad_conversion i (j - i + 1) in