diff options
| -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 |