catch R exceptions (dummy)

Author: mgondan

src/crolog.cpp

@@ -1924,6 +1924,11 @@ PREDICATE(r_eval_, 1)
     throw PlException(PlTerm_string(ex.what())) ;
     return false ;
   }
+  catch(...)
+  {
+    throw PlException(PlTerm_string("unknown exception")) ;
+    return false ;
+  }
 
   return true ;
 }
@@ -1956,6 +1961,11 @@ PREDICATE(r_eval_, 2)
     throw PlException(PlTerm_string(ex.what())) ;
     return false ;
   }
+  catch(...)
+  {
+    throw PlException(PlTerm_string("unknown exception")) ;
+    return false ;
+  }
 
   try
   {
@@ -1970,6 +1980,11 @@ PREDICATE(r_eval_, 2)
     throw PlException(PlTerm_string(ex.what())) ;
     return false ;
   }
+  catch(...)
+  {
+    throw PlException(PlTerm_string("unknown exception")) ;
+    return false ;
+  }
 
   return true ;
 }