summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-08-14 09:29:04 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-08-14 09:29:04 -0400
commit5414fb5ec2714364e86e3e5ab1e1ac5e163c076f (patch)
treec619fe990a9153a211fd4ce27c91d8f403b485df /src
parentd9f3afe4d190bd623ec6ce835f0be19f52ed36cd (diff)
Remove some unnecessary parens
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 77863bdb..b2462695 100644
--- a/src/reduce.sml
+++ b/src/reduce.sml
@@ -471,7 +471,7 @@ fun kindConAndExp (namedC, namedE) =
let
val pes' = map (fn (p, body) =>
let
- val env' = List.tabulate (patBinds p, fn _ => UnknownE) @ (deKnown env)
+ val env' = List.tabulate (patBinds p, fn _ => UnknownE) @ deKnown env
val body' = exp env' (EApp (body, multiLiftExpInExp (patBinds p) e2), #2 body)
in
(p, body')
@@ -507,7 +507,7 @@ fun kindConAndExp (namedC, namedE) =
let
val pes' = map (fn (p, body) =>
let
- val env' = List.tabulate (patBinds p, fn _ => UnknownE) @ (deKnown env)
+ val env' = List.tabulate (patBinds p, fn _ => UnknownE) @ deKnown env
val body' = exp env' (ECApp (body, c), #2 body)
in