summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2015-11-25 18:48:17 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2015-11-25 18:48:17 -0500
commit9e392faf0f78cb6b96708d96ed9c5fb6f9dd26dd (patch)
tree98c997cb3ae2bab90b4fb48841ea7558ad039840 /src
parent0f3b9466d3348f49e02a5b79a32fb4ea947baaeb (diff)
Reduce: add reduction in some spots previously missed, associated with 'case' return types
Diffstat (limited to 'src')
-rw-r--r--src/reduce.sml4
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