diff options
| author | Luc Maranget <luc.maranget@inria.fr> | 2000-08-14 14:24:46 +0000 |
|---|---|---|
| committer | Luc Maranget <luc.maranget@inria.fr> | 2000-08-14 14:24:46 +0000 |
| commit | 2dfaaa4903b9a77c237da4accac81ac817efe271 (patch) | |
| tree | 97bca9d9f7220f86a5341f6fad8d72abc0fae957 | |
| parent | e8ea52a66a73830728e2cc9f96fa3802ca254ab9 (diff) | |
ptit bug dans un format
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3275 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | bytecomp/printlambda.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml index 07dd4b264..6c62e3778 100644 --- a/bytecomp/printlambda.ml +++ b/bytecomp/printlambda.ml @@ -39,7 +39,7 @@ let rec struct_const ppf = function | Const_float_array (f1 :: fl) -> let floats ppf fl = List.iter (fun f -> fprintf ppf "@ %s" f) fl in - fprintf ppf "@[<1[|@[%s%a@]|]@]" f1 floats fl + fprintf ppf "@[<1>[|@[%s%a@]|]@]" f1 floats fl let boxed_integer_name = function | Pnativeint -> "nativeint" |