Simplify Lisp image initialization and finalization process

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

diff --git a/gtk/gtk.misc.lisp b/gtk/gtk.misc.lisp
index 1dfa2cb..19c9720 100644 (file)
--- a/gtk/gtk.misc.lisp
+++ b/gtk/gtk.misc.lisp
@@ -53,6 +53,6 @@
 (defmacro with-main-loop (&body body)
   `(progn
      ,@body
-     (gtk-main)))
+     (ensure-gtk-main)))
 
 (export 'with-main-loop)
\ No newline at end of file