# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1292855650 18000
# Node ID 74d35d9a5d16706ab1d5bc104d5901b5d1205214
# Parent  a6d421812b93c9ab84ee54de6409548f9151ef23
Implement constrained type kinding properly; bump mono inline threshhold

diff -r a6d421812b93 -r 74d35d9a5d16 src/elaborate.sml
--- 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
diff -r a6d421812b93 -r 74d35d9a5d16 src/settings.sml
--- a/src/settings.sml	Mon Dec 20 08:48:20 2010 -0500
+++ b/src/settings.sml	Mon Dec 20 09:34:10 2010 -0500
@@ -464,7 +464,7 @@
 fun setCoreInline n = coreInline := n
 fun getCoreInline () = !coreInline
 
-val monoInline = ref 20
+val monoInline = ref 100
 fun setMonoInline n = monoInline := n
 fun getMonoInline () = !monoInline