let clear_call_stack () =
  call_stack := [];
  call_stack_for_callbacks := []