diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-23 14:41:24 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-23 14:41:24 +0000 |
| commit | 8837c2365c382adb0a74bfedabb1659eeb472adc (patch) | |
| tree | 88761584df9487ab39fe2bc2627c029d67acc229 /tools/coq_makefile.ml | |
| parent | 24473ef1954c856907ba8907a4d2c910505125a1 (diff) | |
Revert copy/pasted function in to minilib thanks to clib.cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15352 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coq_makefile.ml')
| -rw-r--r-- | tools/coq_makefile.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/coq_makefile.ml b/tools/coq_makefile.ml index 20117ca6e..b9113c08e 100644 --- a/tools/coq_makefile.ml +++ b/tools/coq_makefile.ml @@ -111,7 +111,7 @@ let classify_files_by_root var files (inc_i,inc_r) = if not (List.exists (fun (pdir,_,_) -> pdir = ".") inc_r) then begin let absdir_of_files = List.rev_map - (fun x -> Minilib.canonical_path_name (Filename.dirname x)) + (fun x -> CUnix.canonical_path_name (Filename.dirname x)) files in (* files in scope of a -I option (assuming they are no overlapping) *) let has_inc_i = List.exists (fun (_,a) -> List.mem a absdir_of_files) inc_i in @@ -149,7 +149,7 @@ let install_include_by_root files_var files (inc_i,inc_r) = printf "\tdone\n" with Not_found -> let absdir_of_files = List.rev_map - (fun x -> Minilib.canonical_path_name (Filename.dirname x)) + (fun x -> CUnix.canonical_path_name (Filename.dirname x)) files in let has_inc_i_files = List.exists (fun (_,a) -> List.mem a absdir_of_files) inc_i in |