From 8b8f84b0f0c107184a670f8a152b3b7a99796243 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 15 Jun 2013 08:18:47 -0400
Subject: Add Sigcheck phase to avoid issues with signatures in global
 initializers

---
 src/compiler.sml | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/compiler.sml')

diff --git a/src/compiler.sml b/src/compiler.sml
index 3efa3694..ddd71c30 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -1410,12 +1410,19 @@ val sidecheck = {
 
 val toSidecheck = transform sidecheck "sidecheck" o toPathcheck
 
+val sigcheck = {
+    func = SigCheck.check,
+    print = MonoPrint.p_file MonoEnv.empty
+}
+
+val toSigcheck = transform sigcheck "sigcheck" o toSidecheck
+
 val cjrize = {
     func = Cjrize.cjrize,
     print = CjrPrint.p_file CjrEnv.empty
 }
 
-val toCjrize = transform cjrize "cjrize" o toSidecheck
+val toCjrize = transform cjrize "cjrize" o toSigcheck
 
 val prepare = {
     func = Prepare.prepare,
-- 
cgit v1.2.3