print(x) for names, empty listenv() is empty

[HenrikBengtsson]

> x <- listenv()
> names(x) <- character(0L)
> print(x)
> capture.output(print(x))
character(0)

Instead, update to give something like:

> print(x)
A named 'listenv' vector with 0 elements.