Simplify

Author: jeroen

src/utils.c

@@ -9,7 +9,8 @@ void bail_if(int err, const char *what){
     SEXP wheregit = PROTECT(safe_string(what));
     SEXP expr = PROTECT(Rf_install("raise_libgit2_error"));
     SEXP call = PROTECT(Rf_lang5(expr, code, message, wheregit, kclass));
-    Rf_eval(call, R_FindNamespace(Rf_mkString("gert")));
+    //Rf_eval(call, R_FindNamespace(Rf_mkString("gert")));
+    Rf_eval(call, R_GetCurrentEnv());
     UNPROTECT(6);
     Rf_error("Failed to raise gert S3 error (%s)", info->message);
   }