diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-10-19 12:12:59 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-19 12:12:59 -0400 |
commit | 8476261d4f4a9a67119abc05cb40907ad979b4de (patch) | |
tree | 8c46ce5f2896d194de0e2b1b04c9895e80efc17e /src/compiler.sml | |
parent | 98651ecbb17fce5630300f0050f323d7d023cf6b (diff) |
Proper generation of relation names; checking that sequences exist
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 3d2ce354..26aede96 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -463,12 +463,19 @@ val toMono_shake = transform mono_shake "mono_shake1" o toMono_reduce val toMono_opt2 = transform mono_opt "mono_opt2" o toMono_shake +val pathcheck = { + func = (fn file => (PathCheck.check file; file)), + print = MonoPrint.p_file MonoEnv.empty +} + +val toPathcheck = transform pathcheck "pathcheck" o toMono_opt2 + val cjrize = { func = Cjrize.cjrize, print = CjrPrint.p_file CjrEnv.empty } -val toCjrize = transform cjrize "cjrize" o toMono_opt2 +val toCjrize = transform cjrize "cjrize" o toPathcheck val prepare = { func = Prepare.prepare, |