Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ocamlmktop.ml: call ocamlc adjacent to itself. 

This was the behavior of the ocamlmktop shell script.
master
whitequark 2016-03-17 22:17:06 +00:00 committed by alainfrisch
parent 73b7f7c2fa
commit 5f968b00ff
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/ocamlmktop.ml
View File

@ -15,6 +15,8 @@
let _ =
let args = Ccomp.quote_files (List.tl (Array.to_list Sys.argv)) in
exit(Sys.command("ocamlc -I +compiler-libs -linkall ocamlcommon.cma \
let ocamlmktop = Sys.executable_name in
let ocamlc = Filename.(quote (concat (dirname ocamlmktop) "ocamlc")) in
exit(Sys.command(ocamlc ^ " -I +compiler-libs -linkall ocamlcommon.cma \
ocamlbytecomp.cma ocamltoplevel.cma "
^ args ^ " topstart.cmo"))