let associate_handler ft com =
(*
prerr_endline (Printf.sprintf "associate_handler %s -> %s" ft com);
*)
try
let l = Hashtbl.find file_type_handlers ft in
Hashtbl.replace file_type_handlers ft
(l @ [com])
with
Not_found ->
Hashtbl.add file_type_handlers ft [com]