(* $Id$ -*- tuareg -*- *)

#directory "/home/cqc/p/console/boot/_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 ();;