From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 28 Aug 2017 18:24:44 +0000 (-0700)
Subject: glib: Name thread.
X-Git-Tag: mit-scheme-pucked-9.2.12~85
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6165587bada5f0bffc8704f28cbaa1fe4112212;p=mit-scheme.git

glib: Name thread.
---

diff --git a/src/glib/glib-thread.scm b/src/glib/glib-thread.scm
index 3d6493b23..2b1dd8051 100644
--- 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)