console/boot
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

output to draw_pp's ppf

Browse Source
This commit is contained in:
cqc
2021-08-10 02:37:00 -05:00
parent 58975feee5
commit 73d9260b1f
4 changed files with 34 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
init.ml
View File

@ -3,13 +3,12 @@
#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;;
Format.printf "directive_info_table:@.";
Hashtbl.iter (fun n _ -> Format.printf "\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 ();;
Format.printf "Env.fold_modules !Topinf.toplevel_env :\n";
Env.fold_modules (fun modname _ _ () -> Format.printf "\t%s@." modname) None !Topinf.toplevel_env ();;