Command-line use of Iflow

1 files changed, 2 insertions, 1 deletions

diff --git a/src/compiler.sml b/src/compiler.sml
index bb55dfce..def0e6c3 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -75,6 +75,7 @@ type ('src, 'dst) transform = {
 }
 
 val debug = ref false
+val doIflow = ref false
 
 fun transform (ph : ('src, 'dst) phase) name = {
     func = fn input => let
@@ -1072,7 +1073,7 @@ val toMono_shake = transform mono_shake "mono_shake1" o toMono_reduce
 val toMono_opt2 = transform mono_opt "mono_opt2" o toMono_shake
 
 val iflow = {
-    func = (fn file => (Iflow.check file; file)),
+    func = (fn file => (if !doIflow then Iflow.check file else (); file)),
     print = MonoPrint.p_file MonoEnv.empty
 }