major refactor

init.ml

@@ -0,0 +1,14 @@
+(* $Id$ -*- tuareg -*- *)
+
+#directory "/home/cqc/p/pinephone/komm/komm/_build/default/.topinf.objs/byte";;
+open Topinf;;
+let print_directives () = 
+  Format.eprintf "directive_info_table:@.";
+  Hashtbl.iter (fun n _ -> Format.eprintf "\t%s@." n) Topinf.directive_info_table;;
+
+#directory "+compiler-libs";;
+
+let print_modules () =
+  Format.eprintf "Env.fold_modules:\n";
+  Env.fold_modules (fun modname _ _ () -> Format.eprintf "\t%s@." modname) None !Topinf.toplevel_env ();;
+print_modules ();;