diff options
| author | letouzey | 2012-12-04 13:50:59 +0000 |
|---|---|---|
| committer | letouzey | 2012-12-04 13:50:59 +0000 |
| commit | 68edc2c4b99c18900f623bc3f08d49b17a27129b (patch) | |
| tree | 29476ee0da14e3bf7fb0c4ea49a119fe0fea7c1d /scripts | |
| parent | 8e88ea92d44167ee5cef89e300078a996ff526e6 (diff) | |
Coqmktop: use the atomic Filename.open_temp_file
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16016 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/coqmktop.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml index 441926becf..0373b82e94 100644 --- a/scripts/coqmktop.ml +++ b/scripts/coqmktop.ml @@ -233,8 +233,7 @@ let declare_loading_string () = (* create a temporary main file to link *) let create_tmp_main_file modules = - let main_name = Filename.temp_file "coqmain" ".ml" in - let oc = open_out main_name in + let main_name,oc = Filename.open_temp_file "coqmain" ".ml" in try (* Add the pre-linked modules *) output_string oc "List.iter Mltop.add_known_module [\""; |