diff options
| author | herbelin | 2004-01-27 21:48:21 +0000 |
|---|---|---|
| committer | herbelin | 2004-01-27 21:48:21 +0000 |
| commit | f99b868b4ae75747ed227443bf93e0d3ffce74b0 (patch) | |
| tree | 4d54dbd8a7f5cf577ad81eff4dee2047b6e434e1 | |
| parent | e53708c1dd3be7b76d880e5d03fa3101eb44ac43 (diff) | |
Bug activation erronée du traducteur en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5257 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 3fd4f121a5..14a5e43034 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -941,7 +941,7 @@ let is_new_name s = (String.length s >= 10 & String.sub s 0 10 = "uniqueness")) let v7_to_v8_dir fulldir dir = - if dir <> empty_dirpath then + if Options.do_translate () & dir <> empty_dirpath then let update s = let l = List.map string_of_id (repr_dirpath dir) in make_dirpath (List.map id_of_string (s :: List.tl l)) |