Reconstruction fails when getting a function

[Ellpeck]

Slicing

a <- function() 1
b <- get("a")
b()

results in

a <- function() { }
b <- get("a")
b()

Note that the implicit 1 return is missing when it shouldn't be.

This test is part of #800.