diff options
| author | pboutill | 2011-09-01 09:51:31 +0000 |
|---|---|---|
| committer | pboutill | 2011-09-01 09:51:31 +0000 |
| commit | 02c63cbf0c7ee8feacea68b39ceaebdce69c4af8 (patch) | |
| tree | 7b002fb7dc79b03e4015edc50905630a0cb06818 /ide/ideutils.ml | |
| parent | d122799af45e81608a40063568e9f4b6d6deec33 (diff) | |
Coq_makefile : bug when a project file is not in the current directory.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14443 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index c6994a8d97..71ff87f004 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -328,7 +328,4 @@ let browse_keyword f text = try let u = Lazy.force url_for_keyword text in browse f (doc_url() ^ u) with Not_found -> f ("No documentation found for \""^text^"\".\n") -let absolute_filename f = - if Filename.is_relative f then - Filename.concat (Sys.getcwd ()) f - else f +let absolute_filename f = Minilib.correct_path f (Sys.getcwd ()) |