future_lapply(X, FUN = with, a) looks for 'a' in the wrong environment

```r
> X <- list(list(a = 1), list(a = 2))
> y <- lapply(X, FUN = with, a)
> X <- list(list(a = 1), list(a = 2))
> y0 <- lapply(X, FUN = with, a)
> y1 <- future.apply::future_lapply(X, FUN = with, a)
Error: object 'a' not found

Enter a frame number, or 0 to exit

1: future.apply::future_lapply(X, FUN = with, a)
2: future_xapply(FUN = FUN, nX = nX, chunk_args = X, args = list(...), get_chu
3: getGlobalsAndPackagesXApply(FUN = FUN, args = args, MoreArgs = MoreArgs, en
4: (function ()
{
replicate(sink.number(), sink(NULL))
if (interactive()

Selection: 0
```