* mu-guile-common.[ch]: add support for showing GErrors

2011-07-15 23:50:37 +03:00
parent aeff372157
commit 68eb63e0c6
2 changed files with 22 additions and 7 deletions
--- a/libmuguile/mu-guile-common.c
+++ b/libmuguile/mu-guile-common.c
@ -28,3 +28,14 @@ mu_guile_error (const char *func_name, int status,
 		       scm_from_utf8_string (fmt), args,
 		       scm_list_1 (scm_from_int (status)));
 }
+
+
+
+void
+mu_guile_g_error (const char *func_name, GError *err)
+{	
+	scm_error_scm (scm_from_locale_symbol ("MuError"),
+		       scm_from_utf8_string (func_name),
+		       scm_from_utf8_string (err->message),
+		       SCM_UNDEFINED, SCM_UNDEFINED);
+}