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