Commit 22d96a09 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

DataFlow: use [update] at the roots to allow a root to be seeded twice.

parent de93d205
......@@ -200,8 +200,11 @@ module ForCustomMaps
(* Populate the queue with the root variables. *)
(* Our use of [update] here means that it is permitted for [foreach_root]
to seed several properties at a single root. *)
let () =
G.foreach_root (fun x p -> V.set x p; schedule x)
G.foreach_root update
(* As long as the queue is nonempty, take a variable and examine it. *)
......
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