From cd11c5d2ff5d91603a6043a667e5918e99ef303a Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Mon, 25 Nov 2013 17:22:26 +0100
Subject: Fix printing of projections with implicits.

---
 library/impargs.ml  | 4 ++--
 library/impargs.mli | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'library')

diff --git a/library/impargs.ml b/library/impargs.ml
index f0292762f0..4fe898994c 100644
--- a/library/impargs.ml
+++ b/library/impargs.ml
@@ -680,9 +680,9 @@ let check_rigidity isrigid =
   if not isrigid then
     errorlabstrm "" (strbrk "Multiple sequences of implicit arguments available only for references that cannot be applied to an arbitrarily large number of arguments.")
 
-let projection_implicits env p (x, impls) = 
+let projection_implicits env p impls = 
   let pb = Environ.lookup_projection p env in
-    x, CList.skipn_at_least pb.Declarations.proj_npars impls
+    CList.skipn_at_least pb.Declarations.proj_npars impls
 
 let declare_manual_implicits local ref ?enriching l =
   let flags = !implicit_args in
diff --git a/library/impargs.mli b/library/impargs.mli
index 8ad86bdffd..297145f09c 100644
--- a/library/impargs.mli
+++ b/library/impargs.mli
@@ -129,7 +129,8 @@ val make_implicits_list : implicit_status list -> implicits_list list
 
 val drop_first_implicits : int -> implicits_list -> implicits_list
 
-val projection_implicits : env -> projection -> implicits_list -> implicits_list
+val projection_implicits : env -> projection -> implicit_status list -> 
+  implicit_status list
 
 val select_impargs_size : int -> implicits_list list -> implicit_status list
 
-- 
cgit v1.2.3