diff options
| -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)) |