From e31434db0bd91d4c6b3fec8ad09b74c3613630a0 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 19 Aug 2005 21:32:46 +0000
Subject: pas besoin de List.length pour savoir si une liste est vide

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7306 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coqdoc/main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tools')

diff --git a/tools/coqdoc/main.ml b/tools/coqdoc/main.ml
index 8a129e7f7..820ad8240 100644
--- a/tools/coqdoc/main.ml
+++ b/tools/coqdoc/main.ml
@@ -415,6 +415,6 @@ let produce_output fl =
 let main () =
   let files = parse () in
   if not !quiet then banner ();
-  if List.length files > 0 then produce_output files
+  if files <> [] then produce_output files
 
 let _ = Printexc.catch main ()
-- 
cgit v1.2.3