15 lines
496 B
OCaml
15 lines
496 B
OCaml
(* $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 ();;
|