From 3ffe8f97e406108cb86ab32e38f1c0a5e280f418 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 21 Feb 2008 01:25:40 -0600
Subject: [PATCH] threads. word now prints presentations

---
 extra/tools/threads/threads.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extra/tools/threads/threads.factor b/extra/tools/threads/threads.factor
index 03ea31034e..0d924733c4 100755
--- a/extra/tools/threads/threads.factor
+++ b/extra/tools/threads/threads.factor
@@ -6,9 +6,8 @@ io io.styles sequences assocs namespaces sorting boxes ;
 
 : thread. ( thread -- )
     dup thread-id pprint-cell
-    dup thread-name pprint-cell
-    thread-state "running" or
-    [ write ] with-cell ;
+    dup thread-name over [ write-object ] with-cell
+    thread-state "running" or [ write ] with-cell ;
 
 : threads. ( -- )
     standard-table-style [