-let includes = Hashtbl.create 17
-let register_include dir =
- if not (Hashtbl.mem includes dir) then begin
- Hashtbl.add includes dir ();
- dep [ "extension:ml" ]
- (List.map (fun s -> dir ^ "/" ^ s )
- (Array.to_list (Pathname.readdir dir)))
- end