diff options
| -rw-r--r-- | toplevel/mltop.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/mltop.ml b/toplevel/mltop.ml index ca325bc626..e0cb2209d5 100644 --- a/toplevel/mltop.ml +++ b/toplevel/mltop.ml @@ -10,7 +10,6 @@ open Errors open Util open Pp open Flags -open CUnix open Libobject open System @@ -48,8 +47,9 @@ open System (* This path is where we look for .cmo *) let coq_mlpath_copy = ref ["."] let keep_copy_mlpath path = - let cpath = canonical_path_name path in - let filter path' = not (String.equal cpath (canonical_path_name path')) in + let cpath = CUnix.canonical_path_name path in + let filter path' = not (String.equal cpath (CUnix.canonical_path_name path')) + in coq_mlpath_copy := path :: List.filter filter !coq_mlpath_copy (* If there is a toplevel under Coq *) |