-- processing the rhs with an *un-extended* environment, so
-- that the same process doesn't occur for ever!
--
-- processing the rhs with an *un-extended* environment, so
-- that the same process doesn't occur for ever!
--
-- (a) Reset the export flags on the binders so
-- that we don't get name clashes on exported things if the
-- local binding floats out to top level. This is most unlikely
-- (a) Reset the export flags on the binders so
-- that we don't get name clashes on exported things if the
-- local binding floats out to top level. This is most unlikely
-- (b) Make the name an Internal one. External Names should never be
-- nested; if it were floated to the top level, we'd get a name
-- clash at code generation time.
-- (b) Make the name an Internal one. External Names should never be
-- nested; if it were floated to the top level, we'd get a name
-- clash at code generation time.
rhs_small_enough (id,rhs)
= idArity id > 0 -- Note [Only functions!]
rhs_small_enough (id,rhs)
= idArity id > 0 -- Note [Only functions!]