X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgTailCall.lhs;h=56614a87f3d7fe17a8077a1abeaadd8b24b38e12;hb=2f6ad11fa0c2995d950c91fd4301f23aceeb443b;hp=dd7327b745f1d6ad41fb89414b049da1cb25c301;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index dd7327b..56614a8 100644
--- a/compiler/codeGen/CgTailCall.lhs
+++ b/compiler/codeGen/CgTailCall.lhs
@@ -118,9 +118,9 @@ performTailCall fun_info arg_amodes pending_assts
 	      opt_node_asst | nodeMustPointToIt lf_info = node_asst
 			    | otherwise		        = noStmts
 	; EndOfBlockInfo sp _ <- getEndOfBlockInfo
-	; hmods <- getHomeModules
+	; this_pkg <- getThisPackage
 
-	; case (getCallMethod hmods fun_name lf_info (length arg_amodes)) of
+	; case (getCallMethod this_pkg fun_name lf_info (length arg_amodes)) of
 
 	    -- Node must always point to things we enter
 	    EnterIt -> do