From 17a540b2a911927ed26190ca8a0b28efccab3bb3 Mon Sep 17 00:00:00 2001
From: sacerdot
Date: Wed, 15 Nov 2000 13:30:51 +0000
Subject: Changed the semantics of AddRecPath.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@852 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/system.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/system.ml')

diff --git a/lib/system.ml b/lib/system.ml
index a967ed191c..55c77b0769 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -39,7 +39,12 @@ let all_subdirs root =
     with End_of_file ->
       closedir dirh
   in
-  if exists_dir root then traverse root ""; 
+  if exists_dir root then
+   begin
+    let root_base_name = Filename.basename root in
+     add root root_base_name ;
+     traverse root root_base_name
+   end ;
   List.rev !l
 
 let safe_getenv_def var def =
-- 
cgit v1.2.3