Anonym. var
authorGabriele Keller <keller@cse.unsw.edu.au>
Sat, 18 Feb 2012 02:14:39 +0000 (13:14 +1100)
committerGabriele Keller <keller@cse.unsw.edu.au>
Sat, 18 Feb 2012 02:14:39 +0000 (13:14 +1100)
dph-lifted-vseg/Data/Array/Parallel/Lifted/Closure.hs

index 790fab7..10b35f3 100644 (file)
@@ -306,7 +306,7 @@ closure8 fv fl
         fl_5 _ (PTuple4 vs ws xs ys) zs   = AClo fv_6 fl_6 (PTuple5 vs ws xs ys zs)
 
         fv_6 (ua, vb, wc, xd, ye) zf        = Clo fv_7 fl_7 (ua, vb, wc, xd, ye, zf)
-        fl_6 n (PTuple5 us  vs ws xs ys) zs = AClo fv_7 fl_7 (PTuple6 us vs ws xs ys zs)
+        fl_6 _ (PTuple5 us  vs ws xs ys) zs = AClo fv_7 fl_7 (PTuple6 us vs ws xs ys zs)
 
         fv_7 (ta, ub, vc, wd, xe, yf) zg      = Clo fv_8 fl_8 (ta, ub, vc, wd, xe, yf, zg)
         fl_7 _ (PTuple6 ts us vs ws xs ys) zs = AClo fv_8 fl_8 (PTuple7 ts us vs ws xs ys zs)