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

now it builds

Browse Source
This commit is contained in:
cqc
2021-07-07 11:56:44 -05:00
parent 0a31ab85e0
commit f31756f9d1
1 changed files with 0 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
bin/main.ml
View File

@ -340,30 +340,6 @@ let draw_sob sob s =
()) items;
(s, Image.empty)
let draw_repl height (s:Display.state) =
()
(* let draw_tree height (s:Display.state) =
* let indent = ref 0 in
* let rec draw_levels (tree:(string) list) pp =
* indent := !indent + 1;
* List.iter (fun (step, node) ->
* Format.pp_open_vbox pp 0;
* Format.pp_open_hbox pp ();
* for _ = 0 to !indent do Format.pp_print_space pp () done;
* Format.fprintf pp "%d-%s@." !indent step;
* Format.pp_close_box pp ();
* let subtree = () in
* draw_levels subtree pp;
* Format.pp_close_box pp ()
* ) tree;
* indent := !indent - 1
* in
* let root = Lwt_main.run
* Printf.printf "Lumplist length: %d\n" (List.length root);
* draw_pp height (draw_levels root) s *)
let draw_lumptree height (s:Display.state) =
let from = [] in (* future optional arg *)
let pile = Lump.branch "./kommpile" "current" in (* future args *)