diff options
author | Stephane Glondu <steph@glondu.net> | 2008-09-08 00:15:04 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2008-09-08 00:16:06 +0200 |
commit | 5c6894942e4de978963144606e89db432c306625 (patch) | |
tree | a8f1fe2e658c9ba460f1c9af99393d9af21b2dfd /contrib/micromega/coq_micromega.ml | |
parent | 745e0fb3b3bc4c435870f1af25c22d495fac9f29 (diff) | |
parent | 113b703a695acbe31ac6dd6a8c4aa94f6fda7545 (diff) |
Merge commit 'upstream/8.2.beta4.svn20080907+dfsg'
Diffstat (limited to 'contrib/micromega/coq_micromega.ml')
-rw-r--r-- | contrib/micromega/coq_micromega.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/micromega/coq_micromega.ml b/contrib/micromega/coq_micromega.ml index 02ff61a1..5ae12394 100644 --- a/contrib/micromega/coq_micromega.ml +++ b/contrib/micromega/coq_micromega.ml @@ -1193,8 +1193,8 @@ let call_csdpcert provername poly = output_value ch_to (provername,poly : provername * micromega_polys); close_out ch_to; let cmdname = - Filename.concat Coq_config.bindir - ("csdpcert" ^ Coq_config.exec_extension) in + List.fold_left Filename.concat Coq_config.coqlib + ["contrib"; "micromega"; "csdpcert" ^ Coq_config.exec_extension] in let c = Sys.command (cmdname ^" "^ tmp_to ^" "^ tmp_from) in (try Sys.remove tmp_to with _ -> ()); if c <> 0 then Util.error ("Failed to call csdp certificate generator"); |