summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/priority_queue.erl2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/priority_queue.erl b/src/priority_queue.erl
index e29d4a7bb5..5c10259b1a 100644
--- a/src/priority_queue.erl
+++ b/src/priority_queue.erl
@@ -78,7 +78,7 @@ len({pqueue, Queues}) ->
to_list({queue, In, Out}) when is_list(In), is_list(Out) ->
[{0, V} || V <- Out ++ lists:reverse(In, [])];
to_list({pqueue, Queues}) ->
- [{P, V} || {P, Q} <- Queues, V <- queue:to_list(Q)].
+ [{-P, V} || {P, Q} <- Queues, V <- queue:to_list(Q)].
in(Item, Q) ->
in(Item, 0, Q).