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

pretty good

Browse Source
This commit is contained in:
cqc
2021-08-10 23:31:52 -05:00
parent a4c10bbf57
commit 2e1c66f7b6
4 changed files with 38 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
init.ml
View File

@ -1,7 +1,6 @@
(* $Id$ -*- tuareg -*- *)
Sys.command "dune top | head -n -1 > .topenv";; (* `head -n -1` to remove the topinf.cma which fuck this shit all up *)
#use ".topenv";;
#use_output "dune top | grep -v \"ocamltoplevel.cma\\|ocaml_toplevel.cma\\|topinf.cma\"";; (* `head -n -1` to remove the topinf.cma which fuck this shit all up *)
open Topinf;;
let print_directives () =
Format.printf "directive_info_table:@.";
@ -13,4 +12,5 @@ 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";;
#use_silently "main.ml";;