fix plen/2 - return 0

This commit is contained in:
Feng 2016-01-25 14:46:30 +08:00
parent d8c116a502
commit f65676c232
1 changed files with 2 additions and 2 deletions

View File

@ -98,8 +98,8 @@ len({pqueue, Queues}) ->
plen(0, {queue, _R, _F, L}) -> plen(0, {queue, _R, _F, L}) ->
L; L;
plen(P, {queue, _R, _F, _}) -> plen(_, {queue, _R, _F, _}) ->
erlang:error(badarg, [P]); 0;
plen(P, {pqueue, Queues}) -> plen(P, {pqueue, Queues}) ->
case lists:keysearch(maybe_negate_priority(P), 1, Queues) of case lists:keysearch(maybe_negate_priority(P), 1, Queues) of
{value, {_, Q}} -> len(Q); {value, {_, Q}} -> len(Q);