Some more hand-written comparison functions to avoid polymorphic comparison.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16887 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/pp.ml b/lib/pp.ml
index 331408b6d..c0b23fd87 100644
--- a/lib/pp.ml
+++ b/lib/pp.ml
@@ -20,6 +20,7 @@ module Glue : sig
   val atom : 'a -> 'a t
   val glue : 'a t -> 'a t -> 'a t
   val empty : 'a t
+  val is_empty : 'a t -> bool
   val iter : ('a -> unit) -> 'a t -> unit
 
 end = struct
@@ -29,6 +30,7 @@ end = struct
   let atom x = [x]
   let glue x y = y @ x
   let empty = []
+  let is_empty x = x = []
 
   let iter f g = List.iter f (List.rev g)
 
@@ -105,7 +107,7 @@ let (++) = Glue.glue
 
 let app = Glue.glue
 
-let is_empty g = g = Glue.empty
+let is_empty g = Glue.is_empty g
 
 
 (* Compute length of an UTF-8 encoded string