diff options
| -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 e59c5811f6..e2cd2e465f 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 -> |