diff options
Diffstat (limited to 'library/lib.ml')
-rw-r--r-- | library/lib.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/lib.ml b/library/lib.ml index 36292d367..6abbf7ef9 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -12,7 +12,7 @@ open Util open Names open Libnames open Globnames -open Nameops +(* open Nameops *) open Libobject open Context.Named.Declaration @@ -361,8 +361,8 @@ let end_compilation_checks dir = | None -> anomaly (Pp.str "There should be a module name...") | Some m -> if not (Names.DirPath.equal m dir) then anomaly - (str "The current open module has name" ++ spc () ++ pr_dirpath m ++ - spc () ++ str "and not" ++ spc () ++ pr_dirpath m ++ str "."); + (str "The current open module has name" ++ spc () ++ DirPath.print m ++ + spc () ++ str "and not" ++ spc () ++ DirPath.print m ++ str "."); in oname |