From 26fb2b92acf70e43f71baa77d1c0d595ab71b143 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Thu, 27 Jun 2002 08:48:26 +0000
Subject: Ajout operation is_empty

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4956 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 stdlib/queue.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'stdlib/queue.ml')

diff --git a/stdlib/queue.ml b/stdlib/queue.ml
index 477afcb08..5a08721f5 100644
--- a/stdlib/queue.ml
+++ b/stdlib/queue.ml
@@ -123,6 +123,9 @@ let copy q =
       tail = tail'
     } 
 
+let is_empty q =
+  q.length = 0
+
 let length q =
   q.length
 
-- 
cgit v1.2.3-70-g09d2