Module Handler

type 'a t = {

mutable run	: 'a -> unit	;
execution_context	: Execution_context.t	;
mutable prev	: 'a t	;
mutable next	: 'a t	;

}