From 1dd929d535c1778fb5f1181174352bcd3898af0b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 26 Jun 1998 12:08:28 +0000
Subject: [PATCH] [project @ 1998-06-26 12:08:28 by sof] simplRecursiveGroup:
 accidentally commented out single occurrence optim

---
 ghc/compiler/simplCore/Simplify.lhs |    2 --
 1 file changed, 2 deletions(-)

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index 95afb62..5b0be27 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -1252,7 +1252,6 @@ simplRecursiveGroup env new_ids []
   = returnSmpl ([], env)
 
 simplRecursiveGroup env (new_id : new_ids) ((binder, rhs) : pairs)
-{-
   | inlineUnconditionally binder
   = 	-- Single occurrence, so drop binding and extend env with the inlining
 	-- This is a little delicate, because what if the unique occurrence
@@ -1266,7 +1265,6 @@ simplRecursiveGroup env (new_id : new_ids) ((binder, rhs) : pairs)
 	new_env = bindIdToExpr env binder rhs
     in
     simplRecursiveGroup new_env new_ids pairs
--}
   | otherwise
   = simplRhsExpr env binder rhs new_id		`thenSmpl` \ (new_rhs, arity) ->
     let
-- 
1.7.10.4