Mercurial > urweb

diff src/elaborate.sml @ 1351:74d35d9a5d16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implement constrained type kinding properly; bump mono inline threshhold
author Adam Chlipala <adam@chlipala.net>
date Mon, 20 Dec 2010 09:34:10 -0500
parents 8a169fc0838b
children e525ad571e15
line wrap: on
line diff
--- a/src/elaborate.sml	Mon Dec 20 08:48:20 2010 -0500
+++ b/src/elaborate.sml	Mon Dec 20 09:34:10 2010 -0500
@@ -309,6 +309,7 @@
          in
              checkKind env c1' k1 (L'.KRecord ku1, loc);
              checkKind env c2' k2 (L'.KRecord ku2, loc);
+             checkKind env c' k (L'.KType, loc);
 
              ((L'.TDisjoint (c1', c2', c'), loc), k, gs1 @ gs2 @ gs4)
          end