diff options
author | 2008-12-17 16:53:39 +0000 | |
---|---|---|
committer | 2008-12-17 16:53:39 +0000 | |
commit | 00dcdc88a30adc89065f44fb93a9e6384c217796 (patch) | |
tree | a6566e3a4da1b0c814a9009d653219551c0ca696 | |
parent | 991ea521f4e34afa45f33906091c34116d2c0f63 (diff) |
Avoid printing that extraction has created file Foo when it's not the case
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11695 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | contrib/extraction/extract_env.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/extract_env.ml b/contrib/extraction/extract_env.ml index e59c5811f..e2cd2e465 100644 --- a/contrib/extraction/extract_env.ml +++ b/contrib/extraction/extract_env.ml @@ -408,7 +408,7 @@ let print_structure_to_file (fn,si,mo) dry struc = with e -> Option.iter close_out cout; raise e end; - Option.iter info_file fn; + if not dry then Option.iter info_file fn; (* Now, let's print the signature *) Option.iter (fun si -> |