-- All the free vars of the args are disqualified
-- from being let-no-escaped.
+ -- Forcing these fixes a leak in the code generator, noticed while
+ -- profiling for trac #4367
app `seq` fvs `seq` seqVarSet vars `seq` return (
app,
fvs,
assumptions (namely that they will be entered only once).
upd_flag | isPAP env rhs = ReEntrant
- | otherwise = Updatable
+ | otherwise = Updatable
-}
{- ToDo: