Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3618 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Daniel de Rauglaudre 2001-08-07 14:23:54 +00:00
parent a9de661f1a
commit 8e64cc8175
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typing/printtyp.ml
View File

@ -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)