diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-10-18 17:05:46 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-10-18 17:05:46 +0100 |
| commit | fbfa988072ce2eba808b9a6631af5f8e86cd9df0 (patch) | |
| tree | 5146e558d5c9c6e9a399225eed0784b8dc12558f /src/hls/PrintHTL.ml | |
| parent | 603768a49eac2005729dd03e723ff6c5a6b292f7 (diff) | |
| parent | fe06668f0de56635efe55310d7a64289a37c1d90 (diff) | |
| download | vericert-dev/michalis.tar.gz vericert-dev/michalis.zip | |
Merge branch 'master' into dev/michalisdev/michalis
Diffstat (limited to 'src/hls/PrintHTL.ml')
| -rw-r--r-- | src/hls/PrintHTL.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/hls/PrintHTL.ml b/src/hls/PrintHTL.ml index 3bce337..79221cf 100644 --- a/src/hls/PrintHTL.ml +++ b/src/hls/PrintHTL.ml @@ -140,6 +140,6 @@ let print_if passno prog = match !destination with | None -> () | Some f -> - let oc = open_out (f ^ "." ^ Z.to_string passno) in - print_program oc prog; - close_out oc + let oc = open_out (f ^ "." ^ Z.to_string passno) in + print_program oc prog; + close_out oc |