Termination checking

1 files changed, 8 insertions, 1 deletions

diff --git a/src/compiler.sml b/src/compiler.sml
index 1578da71..f408837d 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -363,12 +363,19 @@ val elaborate = {
 
 val toElaborate = transform elaborate "elaborate" o toParse
 
+val termination = {
+    func = (fn file => (Termination.check file; file)),
+    print = ElabPrint.p_file ElabEnv.empty
+}
+
+val toTermination = transform termination "termination" o toElaborate
+
 val explify = {
     func = Explify.explify,
     print = ExplPrint.p_file ExplEnv.empty
 }
 
-val toExplify = transform explify "explify" o toElaborate
+val toExplify = transform explify "explify" o toTermination
 
 val corify = {
     func = Corify.corify,