Mercurial > urweb

diff src/explify.sml @ 84:e86370850c30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Disjointness assumptions
author Adam Chlipala <adamc@hcoop.net>
date Tue, 01 Jul 2008 12:10:46 -0400
parents b4f2a258e52c
children 1f85890c9846
line wrap: on
line diff
--- a/src/explify.sml	Tue Jul 01 11:39:14 2008 -0400
+++ b/src/explify.sml	Tue Jul 01 12:10:46 2008 -0400
@@ -56,6 +56,7 @@
 
       | L.CApp (c1, c2) => (L'.CApp (explifyCon c1, explifyCon c2), loc)
       | L.CAbs (x, k, c) => (L'.CAbs (x, explifyKind k, explifyCon c), loc)
+      | L.CDisjoint _ => raise Fail "Explify CDisjoint"
 
       | L.CName s => (L'.CName s, loc)