Accidentally Accessing PROMSXP

[brodieG]

For:

r2c <- function(call, env=parent.frame(), dir=tempfile()) {
  vetr(is.language(.), environment(), character())
}

We see:

Error in r2c(call = call) : 
  For argument `env`, `parent.frame()$call` should be type "promise" (is "language")