diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2015-12-23 16:01:51 -0500 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-12-23 16:01:51 -0500 |
| commit | 3d3886672433f0775f772d8d2ee47c5f5e0bc745 (patch) | |
| tree | 072d171c17d92a6696024256c4b2f5aaa760df35 /src/reduce.sml | |
| parent | bf037ce78c2c76a34ecca0fb8bafa5d5be38968a (diff) | |
| parent | 4be7962adf740a35222bfd99608c04329a802a04 (diff) | |
Merge branch 'upstream' into dfsg_clean20151220+dfsg
Diffstat (limited to 'src/reduce.sml')
| -rw-r--r-- | src/reduce.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/reduce.sml b/src/reduce.sml index 8691b93a..0762a4a1 100644 --- a/src/reduce.sml +++ b/src/reduce.sml @@ -588,7 +588,7 @@ fun kindConAndExp (namedC, namedE) = (p, body') end) pes - val cc' = {disc = disc, result = c2} + val cc' = {disc = con env' disc, result = con env' c2} in (ECase (e, pes', cc'), loc) end @@ -626,7 +626,7 @@ fun kindConAndExp (namedC, namedE) = end) pes val c' = E.subConInCon (0, c) c' - val cc' = {disc = disc, result = c'} + val cc' = {disc = con env disc, result = con env c'} in (ECase (e, pes', cc'), loc) end |