From: simonpj <unknown>
Date: Tue, 20 Feb 2001 15:37:42 +0000 (+0000)
Subject: [project @ 2001-02-20 15:37:42 by simonpj]
X-Git-Tag: Approximately_9120_patches~2581
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e3873a5edcdfcb9ded737c4683ef7b7470ad0333;p=ghc-hetmet.git

[project @ 2001-02-20 15:37:42 by simonpj]
Add another assert
---

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index df6acfb..756201a 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -571,7 +571,9 @@ callSiteInline dflags black_listed inline_call occ id arg_infos interesting_cont
 		-- Note: there used to be a '&& not top_level' in the guard above,
 		--	 but that stopped us inlining top-level functions used only once,
 		--	 which is stupid
-	  = not in_lam || not (null arg_infos) || interesting_cont
+	  = WARN( not in_lam, ppr id )	-- If (not in_lam) && one_br then PreInlineUnconditionally
+					-- should have caught it, shouldn't it?
+	    not (null arg_infos) || interesting_cont
 
 	  | otherwise
 	  = case guidance of