-vectScalarLam args body
- = do scalars <- globalScalars
- pprTrace "vectScalarLam" (ppr $ is_scalar (extendVarSetList scalars args) body) $
+vectScalarLam args recFns body
+ = do scalars' <- globalScalars
+ let scalars = unionVarSet (mkVarSet recFns) scalars'
+{- pprTrace "vectScalarLam uses" (ppr $ uses scalars body) $
+ pprTrace "vectScalarLam is prim res" (ppr $ is_prim_ty res_ty) $
+ pprTrace "vectScalarLam is scalar body" (ppr $ is_scalar (extendVarSetList scalars args) body) $
+ pprTrace "vectScalarLam arg tys" (ppr $ arg_tys) $ -}