let module Naive = Run.Make(Naive_tree)(Naive_node_list) in
let result_list =
-
- let root = Naive_node_list.(add (Naive_tree.root doc) (create())) in
+ let root = Naive_node_list.create () in
+ let () = Naive_node_list.add (Naive_tree.root doc) root in
let f, msg =
match !Options.parallel, !Options.compose with
true, true ->