pas de | dans les listes de tags

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3205 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2000-06-14 10:01:44 +00:00 · 2000-06-14 10:01:44 +00:00 · 833da5e199
parent e9b78ef13f
commit 833da5e199
1 changed files with 1 additions and 1 deletions
--- a/typing/printtyp.ml
+++ b/typing/printtyp.ml
@ -217,7 +217,7 @@ let rec typexp sch prio0 ppf ty =
        let all_present = List.length present = List.length fields in
        let pr_present =
          print_list (fun ppf (s, _) -> fprintf ppf "`%s" s)
-                     (fun () -> fprintf ppf "@;<1 -2>| ")
+                     (fun () -> fprintf ppf "@ ")
        in
        begin match row.row_name with
        | Some(p, tyl) when namable_row row ->