From 1180d5eba3fa827e2543a57d626c7909bc0df118 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 12:50:06 -0700
Subject: [PATCH] Name the initial thread.

---
 src/runtime/thread.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))
-- 
2.25.1