Commit de93d205 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

DataFlow: remove a redundant call to [CompactQueue.is_empty].

parent fd743881
......@@ -206,9 +206,13 @@ module ForCustomMaps
(* As long as the queue is nonempty, take a variable and examine it. *)
let () =
while not (CompactQueue.is_empty pending) do
let var = CompactQueue.take pending in
B.set var false;
examine var
done
try
while true do
let x = CompactQueue.take pending in
B.set x false;
examine x
done
with CompactQueue.Empty ->
()
end
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment