diff options
author | Adam Chlipala <adam@chlipala.net> | 2010-09-16 15:34:50 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2010-09-16 15:34:50 -0400 |
commit | 10abf930df47a214ef2d66a6727c9e159093bc57 (patch) | |
tree | 2bedd5ddfc79ccad67baf651ef94e9c78ccdbc8f /src/elaborate.sml | |
parent | e0f7a1d2e4ed4d0a264f042de8698fe98bc3b88c (diff) |
Fix typing of cut operators; fix lexing of XML comments
Diffstat (limited to 'src/elaborate.sml')
-rw-r--r-- | src/elaborate.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index e7848f21..e3f42c19 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1998,6 +1998,7 @@ fun elabExp (env, denv) (eAll as (e, loc)) = val gs3 = D.prove env denv (first, rest, loc) in + checkKind env c' ck kname; ((L'.ECut (e', c', {field = ft, rest = rest}), loc), (L'.TRecord rest, loc), gs1 @ enD gs2 @ enD gs3) end @@ -2013,6 +2014,7 @@ fun elabExp (env, denv) (eAll as (e, loc)) = val gs3 = D.prove env denv (c', rest, loc) in + checkKind env c' ck (L'.KRecord ktype, loc); ((L'.ECutMulti (e', c', {rest = rest}), loc), (L'.TRecord rest, loc), gs1 @ enD gs2 @ enD gs3) end |