7 vVar, mkVLams, mkVVarApps
10 #include "HsVersions.h"
17 type VExpr = Vect CoreExpr
19 vectorised :: Vect a -> a
25 mapVect :: (a -> b) -> Vect a -> Vect b
26 mapVect f (x,y) = (f x, f y)
31 mkVLams :: [VVar] -> VExpr -> VExpr
32 mkVLams vvs (ve,le) = (mkLams vs ve, mkLams ls le)
36 mkVVarApps :: Var -> VExpr -> [VVar] -> VExpr
37 mkVVarApps lc (ve, le) vvs = (ve `mkVarApps` vs, le `mkVarApps` (lc : ls))