@@ -61,7 +61,7 @@ find_value(Val, Queue) ->
end.
delete_value(Val, Queue) ->
- map_values(fun(Vs) -> [ V || V <- Vs, V =/= Val ] end, Queue).
+ gb_trees:map(fun(_Key, Vs) -> [ V || V <- Vs, V =/= Val ] end, Queue).
take_value(Val, Queue) ->
case [ {P, V, Vs} || {P, Vs} <- to_orddict(Queue), V <- Vs, V == Val ] of