let pop_call_stack () = call_stack := List.tl !call_stack; call_stack_for_callbacks := List.tl !call_stack_for_callbacks