diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-24 10:09:21 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-24 10:09:21 -0400 |
| commit | 9e860c86c7d9c763deb9d51490a6766d9c72ed25 (patch) | |
| tree | 7ba7c7cada5e7afa00c3e46879eb9974849286cf /src/corify.sml | |
| parent | f19ae3bb20fa0c60e737606949b2bec6e3ae04f9 (diff) | |
Record cut
Diffstat (limited to 'src/corify.sml')
| -rw-r--r-- | src/corify.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/corify.sml b/src/corify.sml index 30b4a7df..4277c35e 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -371,6 +371,8 @@ fun corifyExp st (e, loc) = (corifyCon st c, corifyExp st e, corifyCon st t)) xes), loc) | L.EField (e1, c, {field, rest}) => (L'.EField (corifyExp st e1, corifyCon st c, {field = corifyCon st field, rest = corifyCon st rest}), loc) + | L.ECut (e1, c, {field, rest}) => (L'.ECut (corifyExp st e1, corifyCon st c, + {field = corifyCon st field, rest = corifyCon st rest}), loc) | L.EFold k => (L'.EFold (corifyKind k), loc) | L.EWrite e => (L'.EWrite (corifyExp st e), loc) |