From 8e64cc8175de6a1fe829b7f318e1b61ea674054a Mon Sep 17 00:00:00 2001 From: Daniel de Rauglaudre Date: Tue, 7 Aug 2001 14:23:54 +0000 Subject: [PATCH] - git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3618 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- typing/printtyp.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/typing/printtyp.ml b/typing/printtyp.ml index 1b84f48b5..5daffdb09 100644 --- a/typing/printtyp.ml +++ b/typing/printtyp.ml @@ -511,11 +511,11 @@ and print_out_sig_item ppf = function | Osig_class (vir_flag, name, params, clt) -> fprintf ppf "@[<2>class%s@ %a%s@ :@ %a@]" - (if vir_flag then "virtual " else "") + (if vir_flag then " virtual" else "") print_out_class_params params name print_out_class_type clt | Osig_class_type (vir_flag, name, params, clt) -> fprintf ppf "@[<2>class type%s@ %a%s@ =@ %a@]" - (if vir_flag then "virtual " else "") + (if vir_flag then " virtual" else "") print_out_class_params params name print_out_class_type clt | Osig_exception (id, tyl) -> fprintf ppf "@[<2>exception %a@]" print_out_constr (id, tyl)