From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 19:50:06 +0000 (-0700)
Subject: Name the initial thread.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1180d5eba3fa827e2543a57d626c7909bc0df118;p=mit-scheme.git

Name the initial thread.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 4691a9a40..e42fee54e 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -123,7 +123,9 @@ USA.
   (set! timer-records #f)
   (set! timer-interval 100)
   (reset-threads-low!)
-  (let ((first (%make-thread (make-1d-table/unsafe))))
+  (let* ((properties (make-1d-table/unsafe))
+	 (first (%make-thread properties)))
+    (1d-table/put! properties 'name 'initial)
     (set-thread/exit-value! first detached-thread-marker)
     (set-thread/root-state-point! first
 				  (current-state-point state-space:local))