diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-04-18 07:00:34 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-04-18 07:00:34 +0000 |
| commit | 3447e059f033e7d59b4262fe869115aae20bcb85 (patch) | |
| tree | ec3442ebc0940aefd4d6ab0e67dd88c08d5f5496 /stdlib/format.ml | |
| parent | 059d9fc181595b6cf7d2d1a6472eb97fce1fe86a (diff) | |
| download | ocaml-poly_meth2.tar.gz | |
merging poly_meth2poly_meth2
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/poly_meth2@4692 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/format.ml')
| -rw-r--r-- | stdlib/format.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/stdlib/format.ml b/stdlib/format.ml index 35e03ebeae..1450be30e8 100644 --- 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 |