diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-20 09:34:10 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-20 09:34:10 -0500 |
| commit | 5f3771069b5e4c7e99b1c1bbe98de2e8e7b96161 (patch) | |
| tree | 1814a154f0b0e2d29b92c9d2ea2d1480f987acec /src/elaborate.sml | |
| parent | d3789e023986953df75e8b6453b2a164bdc96e91 (diff) | |
Implement constrained type kinding properly; bump mono inline threshhold
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 1 |
1 files changed, 1 insertions, 0 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 |