Fixed annoying error log in tests

src/error.cpp

@@ -8,6 +8,7 @@ proc delete_error() -> void {
 }
 
 proc create_error(const char* c_file_name, int c_file_line, Lisp_Object* type, String* message) -> void {
+    if (Globals::log_level > Log_Level::None)
         printf("Error created in:\n%s:%d\n", c_file_name, c_file_line);
 
     delete_error();

src/eval.cpp

@@ -398,7 +398,8 @@ proc eval_expr(Lisp_Object* node, Environment* env) -> Lisp_Object* {
 
         // check for c function
         if (Memory::get_type(lispOperator) == Lisp_Object_Type::CFunction) {
-            Lisp_Object* result = lispOperator->value.cFunction->function(arguments, env);
+            Lisp_Object* result;
+            try result = lispOperator->value.cFunction->function(arguments, env);
             return result;
         }