Name the initial thread.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 4691a9a40fd397c8038c15f592de26b678bfbc5b..e42fee54e6c39b2bbe0a98909cc2bb009cc2a13a 100644 (file)
--- 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))