···210210 (* if count<=0 then failwith "no process root" *)
211211 (* ;; *)
212212213213+213214 (** returns the graph and a list of revs within that graph*)
214215 let graph_and_revs ?revset () =
216216+ (*We join_after here to ensure any errors in sub-fibers only propegate to here, otherwise fibers everywhere would get cancelled when an error here occurs*)
217217+ Flock.join_after @@ fun _->
215218 let graph =
216219 Flock.fork_as_promise @@ fun () ->
217220 let revset_arg = match revset with Some revset -> [ "-r"; revset ] | None -> [] in