Mercurial > urweb

diff src/explify.sml @ 628:12b73f3c108e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Switch to TDisjoint from CDisjoint; still need to implement obligation generation at EDisjoint uses
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 12:01:24 -0500
parents 354800878b4d
children 70cbdcf5989b
line wrap: on
line diff
--- a/src/explify.sml	Sun Feb 22 17:39:55 2009 -0500
+++ b/src/explify.sml	Tue Feb 24 12:01:24 2009 -0500
@@ -52,7 +52,7 @@
     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)