Mercurial > urweb

changeset 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 a6d421812b93
children 703c2c94afd5
files src/elaborate.sml src/settings.sml
diffstat 2 files changed, 2 insertions(+), 1 deletions(-) [+]
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
--- 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