Merge pull request #8 from yamt/pqueue2-fix

fix pqueue2:is_empty/1
okeuday · Aug 28, 2012 · 9c467db · 9c467db
2 parents 3971b4a + 844dc8a
commit 9c467db
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pqueue2.erl b/src/pqueue2.erl
@@ -107,8 +107,8 @@ in(Value, P, H) ->
 
 is_empty(empty) ->
     true;
-is_empty({_, empty, empty, queue, Queue}) ->
+is_empty({_, HL, HR, queue, Queue}) ->
-    queue:is_empty(Queue);
+    is_empty(HL) andalso is_empty(HR) andalso queue:is_empty(Queue);
 is_empty(_) ->
     false.