diff options
| author | herbelin | 2007-08-29 13:09:36 +0000 |
|---|---|---|
| committer | herbelin | 2007-08-29 13:09:36 +0000 |
| commit | bfb2e68ff5587b71de525584deab04d4169d29d7 (patch) | |
| tree | 41d1ae2b6ccf0992f7347d670304d4fb8178709a /interp/topconstr.ml | |
| parent | e829fb40b1c9f599dd7ad2597b519b4283e9d460 (diff) | |
- Débogueur: positionnement de set_detype_anonymous pour ne pas
échouer sur les Rel liées a des Anonymous et export de l'instance
des evars vers le printeur du débogueur.
- Suppression d'un reste de code mort lié à la V7 dans pretyping.ml.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10102 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/topconstr.ml')
| -rw-r--r-- | interp/topconstr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 0c5e6dbaed..a44f0b6b43 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -565,7 +565,7 @@ type constr_expr = * constr_expr * constr_expr | CHole of loc | CPatVar of loc * (bool * patvar) - | CEvar of loc * existential_key + | CEvar of loc * existential_key * constr_expr list option | CSort of loc * rawsort | CCast of loc * constr_expr * constr_expr cast_type | CNotation of loc * notation * constr_expr list @@ -627,7 +627,7 @@ let constr_loc = function | CIf (loc,_,_,_,_) -> loc | CHole loc -> loc | CPatVar (loc,_) -> loc - | CEvar (loc,_) -> loc + | CEvar (loc,_,_) -> loc | CSort (loc,_) -> loc | CCast (loc,_,_) -> loc | CNotation (loc,_,_) -> loc |