diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-19 07:42:16 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-21 23:26:19 +0100 |
| commit | 23f0f5fe6b510d2ab91a2917eb895faa479d9fcf (patch) | |
| tree | 73ce61804aae0e16b1a30994affd75a59ed08efe /library/lib.ml | |
| parent | eb91ccaf236bc9a60a1e216b76a0a42980c072a7 (diff) | |
[api] Miscellaneous consolidation + moves to engine.
We deprecate a few functions that were deprecated in the comments plus
we place `Nameops` and `Univops` in engine where they do seem to
belong in the large picture of code organization.
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 |