From e960cd8dac76829f3a48167e70a23c65d8dd797f Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 16 Apr 2010 14:13:00 +0000
Subject: Util: remove list_split_at which is a clone of list_chop

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

(limited to 'library')

diff --git a/library/impargs.ml b/library/impargs.ml
index fead921a55..b53b2a89d1 100644
--- a/library/impargs.ml
+++ b/library/impargs.ml
@@ -415,9 +415,9 @@ let compute_global_implicits flags manual = function
 let merge_impls oldimpls newimpls =
   let (before, news), olds =
     let len = List.length newimpls - List.length oldimpls in
-      if len >= 0 then list_split_at len newimpls, oldimpls
+      if len >= 0 then list_chop len newimpls, oldimpls
       else
-	let before, after = list_split_at (-len) oldimpls in
+	let before, after = list_chop (-len) oldimpls in
 	  (before, newimpls), after
   in
     before @ (List.map2 (fun orig ni ->
-- 
cgit v1.2.3