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