diff options
-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" |