Sfoglia il codice sorgente

Fixed bug from type error in priority_queue:delete_value/2.

Paul Downen 13 anni fa
parent
commit
9475106f9b
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      src/priority_queue.erl

+ 1 - 1
src/priority_queue.erl

@@ -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