diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-14 09:05:08 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-14 09:05:08 +0000 |
| commit | 566a6570a857009f13d58e4d7141802c20713791 (patch) | |
| tree | a5df872d9bdbdc307e5a7f5ed29b6bd1830518db | |
| parent | dbfadc5cb31e2857d2fba3ea46f320485a718af3 (diff) | |
Correction bug PR#278
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3920 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/printmod.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/parsing/printmod.ml b/parsing/printmod.ml index 292967b1c..b20eb5f46 100644 --- a/parsing/printmod.ml +++ b/parsing/printmod.ml @@ -109,6 +109,7 @@ and print_modexpr locals mexpr = match mexpr with let rec printable_body dir = let dir = dirpath_prefix dir in + dir = empty_dirpath || try match Nametab.locate_dir (qualid_of_dirpath dir) with DirOpenModtype _ -> false |