Wrap gtk-main in Gdk threads lock in unithreaded lisps too

[cl-gtk2.git] / gtk / gtk.main_loop_events.lisp

diff --git a/gtk/gtk.main_loop_events.lisp b/gtk/gtk.main_loop_events.lisp
index b26f147..6b5b9eb 100644 (file)
--- a/gtk/gtk.main_loop_events.lisp
+++ b/gtk/gtk.main_loop_events.lisp
@@ -21,14 +21,9 @@
 
 (defcfun (%gtk-main "gtk_main") :void)
 
-#+thread-support
 (defun gtk-main ()
   (with-gdk-threads-lock (%gtk-main)))
 
-#-thread-support
-(defun gtk-main ()
-  (%gtk-main))
-
 #+thread-support
 (defvar *main-thread* nil)