Dev evaluate gives bad traceback

[hadley]

With this qmd:

```{r}
f <- function() g()
g <- function() h()
h <- function() i()
i <- function() stop("!")
f()
```

CRAN evaluate errors with:

Error in `i()`:
! !
Backtrace:
 1. global f()
 2. global g()
 3. global h()
 4. global i()

But with dev evaluate:

Backtrace:
 1. evaluate (local) `<fn>`()
 2. base::withRestarts(...)
 3. base (local) withRestartList(expr, restarts)
 4. base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
 5. base (local) docall(restart$handler, restartArgs)
 7. evaluate (local) fun(base::quote(`<smplErrr>`))

[hadley]

Simpler reprex:

f <- function() g()
g <- function() h()
h <- function() i()
i <- function() stop("!")

evaluate::evaluate("f()", stop_on_error = 2L)

[hadley]

Another piece: evaluate('stop("1")\n2', stop_on_error = 2L)