diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-01 13:20:02 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-01 13:20:02 +0000 |
| commit | 9e6e6202c073fed0e2fc915d7f7e6ce927d55218 (patch) | |
| tree | ed17038b7fc77a5cba80c41616d4d18d66dd51f1 /parsing/pretty.ml | |
| parent | afdb9b7fa4a6ce1165b270ffdae4574897aa7c40 (diff) | |
Disparition du type oper mais nouveau type global_reference
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@620 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pretty.ml')
| -rw-r--r-- | parsing/pretty.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/parsing/pretty.ml b/parsing/pretty.ml index cbfacf138..b2b0da945 100644 --- a/parsing/pretty.ml +++ b/parsing/pretty.ml @@ -414,10 +414,9 @@ let print_name name = with Not_found -> try match fst (Declare.global_operator CCI name) with - | Const sp -> print_constant true " = " sp - | MutInd (sp,_) -> print_inductive sp - | MutConstruct((sp,_),_) -> print_inductive sp - | _ -> assert false + | ConstRef sp -> print_constant true " = " sp + | IndRef (sp,_) -> print_inductive sp + | ConstructRef ((sp,_),_) -> print_inductive sp with Not_found -> try let (c,typ) = Global.lookup_var name in |