Improved error message.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4564 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2002-03-26 17:46:09 +00:00 · 2002-03-26 17:46:09 +00:00 · 4750850b76
parent fc5d8b4344
commit 4750850b76
1 changed files with 3 additions and 1 deletions
--- a/stdlib/format.ml
+++ b/stdlib/format.ml
@ -1001,7 +1001,9 @@ let fprintf_out str out ppf format =
         if i >= limit then format_invalid_arg "bad box format" format i else
         begin match format.[i] with
         | 'v' -> Pp_hovbox, succ i
-         | _ -> format_invalid_arg "bad box name ho" format i end
+         | c ->
+            format_invalid_arg
+              ("bad box name ho" ^ String.make 1 c) format i end
      | 'v' -> Pp_hvbox, succ i
      | c -> Pp_hbox, i
      end