diff options
author | 2003-05-19 17:35:03 +0000 | |
---|---|---|
committer | 2003-05-19 17:35:03 +0000 | |
commit | 1abd56dea147493178a582569f50c9c6f03c6008 (patch) | |
tree | 940ad7cdc5bef6de02ea76d7b7bd450920313798 /parsing/ppconstr.ml | |
parent | 4f17ea4dcc68bb4619dbf2b8578333288f145fe5 (diff) |
Renommage CMeta en CPatVar qui sert à saisir les PMeta de Pattern
Utilisation d'ident plutôt que int pour PMeta/CPatVar
Ajout CEvar pour la saisie des Evar
Pas d'entrée utilisateur pour les Meta noyau
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4033 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/ppconstr.ml')
-rw-r--r-- | parsing/ppconstr.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index d716e773b..72a693012 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -20,6 +20,7 @@ open Coqast open Ppextend open Topconstr open Term +open Pattern (*i*) let latom = 0 @@ -275,7 +276,8 @@ let rec pr inherited a = | COrderedCase (_,_,_,_,_) -> anomaly "malformed if or destructuring let" | CHole _ -> str "?", latom - | CMeta (_,p) -> str "?" ++ int p, latom + | CEvar (_,n) -> str "?" ++ int n, latom + | CPatVar (_,(_,p)) -> str "?" ++ pr_patvar p, latom | CSort (_,s) -> pr_sort s, latom | CCast (_,a,b) -> hv 0 (pr (lcast,L) a ++ cut () ++ str "::" ++ pr (lcast,E) b), lcast |