diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-06 12:52:04 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-06 12:52:04 +0000 |
| commit | d099918e5c1b3a1b46eac629511842039abbc0fe (patch) | |
| tree | b9fa6127cee3e8fba7920e47a89e901ded9a6ae8 /scripts | |
| parent | 3b4b50789e74e7d596199e4b18349a810ae18696 (diff) | |
Coqmktop: a misplaced Filename.quote prevented temp file cleanup
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15880 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/coqmktop.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml index 503d05883..230ab7592 100644 --- a/scripts/coqmktop.ml +++ b/scripts/coqmktop.ml @@ -279,11 +279,13 @@ let main () = [] in (* the list of the loaded modules *) - let main_file = Filename.quote (create_tmp_main_file modules) in + let main_file = create_tmp_main_file modules in try let args = - options @ (includes ()) @ copts @ tolink @ dynlink @ [ main_file ] in - (* add topstart.cmo explicitly because we shunted ocamlmktop wrapper *) + options @ (includes ()) @ copts @ tolink @ dynlink @ + [ Filename.quote main_file ] + in + (* add topstart.cmo explicitly because we shunted ocamlmktop wrapper *) let args = if !top then args @ [ "topstart.cmo" ] else args in (* Now, with the .cma, we MUST use the -linkall option *) let command = String.concat " " (prog::args) in |