From d57fd25fa5817507f3acc6f8c2d1b899e4de3c5b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 19 Dec 2000 15:43:46 +0000
Subject: Pédagogie

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1152 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/lib.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/library/lib.ml b/library/lib.ml
index d0a015bd95..4d95bdce9c 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -63,14 +63,13 @@ let find_entry_p p =
   find !lib_stk
 
 let split_lib sp = 
-  let rec findrec acc = function
-    | ((sp',obj) as hd)::t ->
-      	if sp = sp' then (acc,hd,t) else findrec (hd::acc) t
+  let rec findrec after = function
+    | ((sp',obj) as hd)::before ->
+      	if sp = sp' then (after,hd,before) else findrec (hd::after) before
     | [] -> error "no such entry"
   in 
   findrec [] !lib_stk
 
-
 (* Adding operations. *)
 
 let add_entry sp node =
-- 
cgit v1.2.3