ui.backend.gtk: gtk_init terminates, better throw exception

diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index 32cdca039f9689905e6c3f1630e872f2217eaeee..80d76cbc524dd166174a4edd60cb71fd2ee12634 100644 (file)
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -503,7 +503,7 @@ M:: gtk-ui-backend system-alert ( caption text -- )
     ] with-destructors ;
 
 M: gtk-ui-backend (with-ui)
-    f f gtk_init
+    f f gtk_init_check [ "Unable to initialize GTK" throw ] unless
     f f gtk_gl_init
     load-icon
     init-clipboard