let record_callwise_dependencies_in_db call_site froms =
try
let previous = Callwise_Dependencies.find call_site
in
Callwise_Dependencies.replace
call_site
(Function_Froms.join previous froms)
with Not_found ->
Callwise_Dependencies.add call_site froms