let set_error_channel c = 
  error_channel := c