let error x = raise (Findlib_error x)