From 7865cb372d95c42542d59cbcf83ba541b0ab3f8a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 24 Feb 2009 12:01:24 -0500
Subject: Switch to TDisjoint from CDisjoint; still need to implement
 obligation generation at EDisjoint uses

---
 src/explify.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/explify.sml')

diff --git a/src/explify.sml b/src/explify.sml
index b2564789..f9f58c65 100644
--- a/src/explify.sml
+++ b/src/explify.sml
@@ -52,7 +52,7 @@ fun explifyCon (c, loc) =
     case c of
         L.TFun (t1, t2) => (L'.TFun (explifyCon t1, explifyCon t2), loc)
       | L.TCFun (_, x, k, t) => (L'.TCFun (x, explifyKind k, explifyCon t), loc)
-      | L.CDisjoint (_, _, _, c) => explifyCon c
+      | L.TDisjoint (_, _, t) => explifyCon t
       | L.TRecord c => (L'.TRecord (explifyCon c), loc)
 
       | L.CRel n => (L'.CRel n, loc)
-- 
cgit v1.2.3