hehe it's all inside the toplevel now

init.ml

@@ -1,6 +1,7 @@
 (* $Id$ -*- tuareg -*- *)
 
-#directory "/home/cqc/p/console/boot/_build/default/.topinf.objs/byte";;
+Sys.command "dune top | head -n -1 > .topenv";; (* `head -n -1` to remove the topinf.cma which fuck this shit all up *)
+#use ".topenv";;
 open Topinf;;
 let print_directives () = 
   Format.printf "directive_info_table:@.";
@@ -12,3 +13,4 @@ let print_modules () =
   Format.printf "Env.fold_modules !Topinf.toplevel_env :\n";
   Env.fold_modules (fun modname _ _ () -> Format.printf "\t%s@." modname) None !Topinf.toplevel_env ();;
 
+#use "main.ml";;