let detach_globactions () =
  List.iter (fun f -> f ()) !globactions;
  globactions := []