Not correctly inferred caller expression

[fikovnik]

With tracing calls to eval function family, in the following:

f <- function(n, expr)
  g(n, eval.parent(substitute(function(...) expr)))

the caller expression get_caller(call)$caller_expression for f(1,1) from the call_exit_callback hook is inferred as f(1,1) instead of g(n, eval.parent(...)).

This is the relevant part of the sys.calls():

... ... ...
[[54]]
f(1, 1)
[[55]]
function(n, expr)
     g(integer(n), eval.parent(substitute(function(...) expr)))
[[56]]
for (x in xs) f(x)
[[57]]
eval(expr, p)
[[58]]
call_exit_callback(<pointer: 0x5616e64400c0>, <pointer: 0x5616e6a2fc30>, 
    <pointer: 0x5616e7b77130>, <pointer: 0x5616e6bcf790>, <pointer: 0x5616e3ee4bc0>)