From ddc9c1bd8e1eaae186468f093e467d8f2e1091cd Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 18 Feb 2013 15:42:36 +0000
Subject: use List.rev_map whenever possible

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

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index aa7d820451..9386c82de0 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -322,7 +322,7 @@ let print_pure_constr csr =
   and sp_display sp =
 (*    let dir,l = decode_kn sp in
     let ls =
-      match List.rev (List.map Id.to_string (Dir_path.repr dir)) with
+      match List.rev_map Id.to_string (Dir_path.repr dir) with
           ("Top"::l)-> l
 	| ("Coq"::_::l) -> l
 	| l             -> l
@@ -331,7 +331,7 @@ let print_pure_constr csr =
   and sp_con_display sp =
 (*    let dir,l = decode_kn sp in
     let ls =
-      match List.rev (List.map Id.to_string (Dir_path.repr dir)) with
+      match List.rev_map Id.to_string (Dir_path.repr dir) with
           ("Top"::l)-> l
 	| ("Coq"::_::l) -> l
 	| l             -> l
-- 
cgit v1.2.3