diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-13 00:00:04 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-13 00:00:04 +0000 |
commit | 108e88cafee662932c99a83230f674f648866613 (patch) | |
tree | 949ee9b405efe3c5d70a3efc2d51ff997a159b81 /lib/envars.ml | |
parent | 027618d5aa99613ffbe390371cda492690809cc7 (diff) |
Restrict (try...with...) to avoid catching critical exn (part 5)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16281 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/envars.ml')
-rw-r--r-- | lib/envars.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index 84a41f8e4..cf3d6503d 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -36,9 +36,8 @@ let path_to_list p = let sep = if String.equal Sys.os_type "Win32" then ';' else ':' in String.split sep p -let user_path () = - let path = try Sys.getenv "PATH" with _ -> raise Not_found in - path_to_list path +let user_path () = + path_to_list (Sys.getenv "PATH") (* may raise Not_found *) let rec which l f = match l with |