diff options
| author | herbelin | 2000-12-25 18:48:26 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-25 18:48:26 +0000 |
| commit | 1ae1127ba307d6b42ffc8732b1af6cb725e04234 (patch) | |
| tree | f60e4b4d8704c9e430e8ab5fc395c2a5612e1ead | |
| parent | fd1a9d7e2b8fb288ff20f372f860b2b7dacc5926 (diff) | |
Effet réorganisation Classops
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1202 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/pretty.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/parsing/pretty.ml b/parsing/pretty.ml index ba2214ad62..33c5f862ee 100644 --- a/parsing/pretty.ml +++ b/parsing/pretty.ml @@ -445,8 +445,8 @@ let print_index_coercion c = print_coercion_value v let print_class i = - let cl,x = class_info_from_index i in - [< 'sTR x.cL_STR >] + let cl,_ = class_info_from_index i in + [< 'sTR (string_of_class cl) >] let print_path ((i,j),p) = [< 'sTR"["; @@ -463,7 +463,8 @@ let print_graph () = let print_classes () = [< prlist_with_sep pr_spc (fun (_,(cl,x)) -> - [< 'sTR x.cL_STR (*; 'sTR(string_of_strength x.cL_STRE) *) >]) + [< 'sTR (string_of_class cl) + (*; 'sTR(string_of_strength x.cL_STRE) *) >]) (classes()) >] let print_coercions () = |