diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-11-14 09:15:10 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-11-14 09:15:10 -0500 |
commit | bf66a540f165fe6bf285732bb203e03a33b190ec (patch) | |
tree | bfa2b4548397ac6717436e5b2870679cabb52945 /src/compiler.sml | |
parent | 3e601bff93e4b17c27cd1e36a459e0c2119e65c1 (diff) |
Better error messages about server-side use of client-side functions
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 3fbc6008..9b43efa0 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -1274,12 +1274,19 @@ val pathcheck = { val toPathcheck = transform pathcheck "pathcheck" o toMono_shake3 +val sidecheck = { + func = SideCheck.check, + print = MonoPrint.p_file MonoEnv.empty +} + +val toSidecheck = transform sidecheck "sidecheck" o toPathcheck + val cjrize = { func = Cjrize.cjrize, print = CjrPrint.p_file CjrEnv.empty } -val toCjrize = transform cjrize "cjrize" o toPathcheck +val toCjrize = transform cjrize "cjrize" o toSidecheck val scriptcheck = { func = ScriptCheck.classify, |