Commit f41722b7 authored by POTTIER Francois's avatar POTTIER Francois

Use [Misc.qiter].

parent 4c2a99e2
......@@ -181,9 +181,7 @@ let enqueue, repeatedly =
let enqueue label =
Queue.add label queue
and repeatedly visit =
while not (Queue.is_empty queue) do
visit (Queue.take queue)
Misc.qiter visit queue
enqueue, repeatedly
Markdown is supported
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