From 2b92c02ca0c437d1c3fe1fdbd8bae7845b41933e Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 14 Aug 2011 09:29:04 -0400 Subject: Remove some unnecessary parens --- src/reduce.sml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/reduce.sml') 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 -- cgit v1.2.3