diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-12-22 22:36:27 +0100 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-12-22 22:36:27 +0100 |
| commit | 8c684847844b25bd4ce071867fb480c9caa8cb62 (patch) | |
| tree | 203cf29af544d14959583ae3e36e3c766ffc7c72 /library/library.ml | |
| parent | 602badcad9deec9224b78cd1e1033af30358ef2e (diff) | |
Avoid a pointless conversion/copy.
Diffstat (limited to 'library/library.ml')
| -rw-r--r-- | library/library.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/library.ml b/library/library.ml index ef621e16b..7aaa8b2e6 100644 --- a/library/library.ml +++ b/library/library.ml @@ -602,7 +602,7 @@ let import_module export modl = let check_coq_overwriting p id = let l = DirPath.repr p in let is_empty = match l with [] -> true | _ -> false in - if not !Flags.boot && not is_empty && String.equal (Id.to_string (List.last l)) "Coq" then + if not !Flags.boot && not is_empty && Id.equal (List.last l) coq_root then errorlabstrm "" (str "Cannot build module " ++ pr_dirpath p ++ str "." ++ pr_id id ++ str "." ++ spc () ++ str "it starts with prefix \"Coq\" which is reserved for the Coq library.") |