diff options
| author | herbelin | 2003-11-27 19:21:46 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-27 19:21:46 +0000 |
| commit | 8483f1a319c94f79fea3fa503916418240c4b126 (patch) | |
| tree | e1540ece716eece437ae43fc0f00b3fde62d4d93 | |
| parent | 6ace746e3f49f466591558eaefb001f5948d63fb (diff) | |
Suite commit precedent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5011 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/constrextern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 2339fdad69..e3a408c0da 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -712,7 +712,7 @@ let shortest_qualid_of_v7_global ctx ref = then (* An unqualified name that is not renamed but which coincides *) (* with a new name: force qualification unless it is a variable *) - if fulldir <> empty_dirpath + if fulldir <> empty_dirpath & not (is_coq_root fulldir) then make_dirpath [List.hd (repr_dirpath fulldir)] else empty_dirpath else dir |