Reuse the lifting context Var

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 75d1cb1..5734ae1 100644 (file)
--- 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