diff options
| author |  Stephane Glondu <steph@glondu.net> | 2012-01-07 17:59:15 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2012-01-07 18:20:56 +0100 |
| commit | 2ee61d5995ef572f0124691f10630305a59b4f73 (patch) | |
| tree | eaeffb7be70ce770a822108f8a527312f67fd8b2 /lib/system.ml | |
| parent | ba021624830c7ad5df0688d144e4305551ae1a5f (diff) | |
| parent | de109d8c0c68f569b907e6e24271f259ba28888e (diff) | |
Prepare upload to squeeze-backportsdebian/8.3.pl3+dfsg-1_bpo60+1
Diffstat (limited to 'lib/system.ml')
| -rw-r--r-- | lib/system.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/system.ml b/lib/system.ml index 7744a79b..94a57792 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -1,12 +1,12 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2011 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: system.ml 13750 2010-12-24 09:55:54Z letouzey $ *) +(* $Id: system.ml 14641 2011-11-06 11:59:10Z herbelin $ *) open Pp open Util @@ -103,7 +103,7 @@ let canonical_path_name p = (* All subdirectories, recursively *) let exists_dir dir = - try let _ = opendir dir in true with Unix_error _ -> false + try let _ = closedir (opendir dir) in true with Unix_error _ -> false let skipped_dirnames = ref ["CVS"; "_darcs"] |