From 1a157442dff4bfa127af467c49280e79889acde7 Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Sat, 26 Dec 2015 10:07:19 +0100
Subject: Do not compose List.length with List.filter.

---
 printing/prettyp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'printing')

diff --git a/printing/prettyp.ml b/printing/prettyp.ml
index 84649e6ebf..08228cb209 100644
--- a/printing/prettyp.ml
+++ b/printing/prettyp.ml
@@ -132,7 +132,7 @@ let print_renames_list prefix l =
 let need_expansion impl ref =
   let typ = Global.type_of_global_unsafe ref in
   let ctx = prod_assum typ in
-  let nprods = List.length (List.filter (fun (_,b,_) -> Option.is_empty b) ctx) in
+  let nprods = List.count (fun (_,b,_) -> Option.is_empty b) ctx in
   not (List.is_empty impl) && List.length impl >= nprods &&
     let _,lastimpl = List.chop nprods impl in
       List.exists is_status_implicit lastimpl
-- 
cgit v1.2.3