let print_node (node : nodeid) : unit = let node = try Hashtbl.find (cur_graph ()) node with Not_found -> raise (BadIdent node) in Depgraph.printnode (cur_graph ()) node