diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-09 11:46:33 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-09 11:46:33 -0400 |
commit | 4960cd8c2ec1e02c90e42d16db13f045427b4173 (patch) | |
tree | a2823b006b357561d5866e778cb3ff2046836f8b /src/compiler.sml | |
parent | 27bece20a8abae9a2b4251e065010a4e52590c45 (diff) |
Termination checking
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 9 |
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, |