From 42b6ea5c5ae4d6ed5f464f29a9ba13e84687c45e Mon Sep 17 00:00:00 2001
From: xclerc
Date: Mon, 14 Oct 2013 15:39:46 +0000
Subject: 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
---
 lib/pp.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/pp.ml b/lib/pp.ml
index 331408b6d6..c0b23fd870 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
-- 
cgit v1.2.3