diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 00:05:14 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 00:05:14 +0000 |
commit | ecc9544f651aaa8ea0853206f290f2e15d5dd21e (patch) | |
tree | 560ca4c9d483a580a558974819de1cc5affd2e2e /lib/envars.ml | |
parent | d5cc9129b35953d8882fc511f513f6c9751d722e (diff) |
Fix coqtop -config when absolute path have been given for ocaml*
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16102 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/envars.ml')
-rw-r--r-- | lib/envars.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index 097ffe08e..a5eb827fe 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -18,7 +18,8 @@ let safe_getenv warning n = ("$"^n) ) -let ( / ) = Filename.concat +let ( / ) a b = + if Filename.is_relative b then Filename.concat a b else b let coqify d = d / "coq" |