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