haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove aux code

This commit is contained in:
ZAN DoYe 2019-05-23 20:37:25 +08:00
parent ad510daa99
commit 97224e635f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/uTop.ml
View File

@ -803,13 +803,13 @@ let () =
let () = let () =
(* "utop" is an internal library so it is not passed as "-package" (* "utop" is an internal library so it is not passed as "-package"
to "ocamlfind ocamlmktop". *) to "ocamlfind ocamlmktop". *)
try Topfind.don't_load_deeply ["utop"]; with Fl_package_base.No_such_package _-> (); Topfind.don't_load_deeply ["utop"];
Topfind.add_predicates ["byte"; "toploop"]; Topfind.add_predicates ["byte"; "toploop"];
(* Add findlib path so Topfind is available and it won't be (* Add findlib path so Topfind is available and it won't be
initialized twice if the user does [#use "topfind"]. *) initialized twice if the user does [#use "topfind"]. *)
Topdirs.dir_directory (Findlib.package_directory "findlib"); Topdirs.dir_directory (Findlib.package_directory "findlib");
(* Make UTop accessible. *) (* Make UTop accessible. *)
try Topdirs.dir_directory (Findlib.package_directory "utop") with Fl_package_base.No_such_package _-> () Topdirs.dir_directory (Findlib.package_directory "utop")
(* +-----------------------------------------------------------------+ (* +-----------------------------------------------------------------+
| Deprecated | | Deprecated |