Mercurial > urweb

diff src/disjoint.sml @ 334:9601c717d2f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
queryX
author Adam Chlipala <adamc@hcoop.net>
date Sat, 13 Sep 2008 19:49:53 -0400
parents 950320f33232
children bc5015b89dd2
line wrap: on
line diff
--- a/src/disjoint.sml	Sat Sep 13 14:58:57 2008 -0400
+++ b/src/disjoint.sml	Sat Sep 13 19:49:53 2008 -0400
@@ -314,7 +314,7 @@
     in
         case c of
             CDisjoint cs => doDisj cs
-          | TDisjoint cs => doDisj cs
+          | TDisjoint (Instantiate, c1, c2, c) => doDisj (c1, c2, c)
           | _ => (cAll, [])
     end