diff options
author | 2010-12-20 09:34:10 -0500 | |
---|---|---|
committer | 2010-12-20 09:34:10 -0500 | |
commit | 0da748d58cbbb8ad4cf756c834195c329876f44c (patch) | |
tree | 1814a154f0b0e2d29b92c9d2ea2d1480f987acec | |
parent | 8c4c29497638920a43893e9a041ed03f0a66171c (diff) |
Implement constrained type kinding properly; bump mono inline threshhold
-rw-r--r-- | src/elaborate.sml | 1 | ||||
-rw-r--r-- | src/settings.sml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 76e22139..c791cff6 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -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 --git a/src/settings.sml b/src/settings.sml index 898b503f..4c611336 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -464,7 +464,7 @@ val coreInline = ref 20 fun setCoreInline n = coreInline := n fun getCoreInline () = !coreInline -val monoInline = ref 20 +val monoInline = ref 100 fun setMonoInline n = monoInline := n fun getMonoInline () = !monoInline |