Mercurial > urweb
diff src/explify.sml @ 628:12b73f3c108e
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)