From d4d5f8f6be58f1f6a2e0983676f9c93ff1fdb354 Mon Sep 17 00:00:00 2001
From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 1 Aug 2007 04:24:41 +0000
Subject: [PATCH] Reuse the lifting context Var

---
 compiler/vectorise/Vectorise.hs |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 75d1cb1..5734ae1 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -256,10 +256,9 @@ vectLam lc fvs bs body
       buildClosures tyvars lc vvs arg_tys res_ty
         . hoistPolyVExpr tyvars
         $ do
-            new_lc <- newLocalVar FSLIT("lc") intPrimTy
             (vbndrs, vbody) <- vectBndrsIn (vs ++ bs)
-                                           (vectExpr new_lc body)
-            return $ vLams new_lc vbndrs vbody
+                                           (vectExpr lc body)
+            return $ vLams lc vbndrs vbody
   
 vectTyAppExpr :: Var -> CoreExprWithFVs -> [Type] -> VM VExpr
 vectTyAppExpr lc (_, AnnVar v) tys = vectPolyVar lc v tys
-- 
1.7.10.4