glib: Name thread.

diff --git a/src/glib/glib-thread.scm b/src/glib/glib-thread.scm
index 3d6493b23f55d51243017e97542c3f73c38a6bcf..2b1dd8051cd336ca3e6b18c62cd3c64a903a1c45 100644 (file)
--- a/src/glib/glib-thread.scm
+++ b/src/glib/glib-thread.scm
@@ -83,7 +83,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
                  (%trace ";run-glib yields\n")
                  (yield-current-thread)
                  (%trace ";run-glib loops\n")
-                 (glib-thread-loop))))))
+                 (glib-thread-loop))))
+        'glib))
   (detach-thread glib-thread))
 
 (define (exit-glib-thread)