[Gd-chatter] r11132 - trunk/libraries/programming-tools/multi-thread-test

[hannes at gwydiondylan.org]

Author: hannes
Date: Sun Jan 14 05:43:29 2007
New Revision: 11132

Modified:
   trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan
Log:
Job: minor
maybe this helps

Modified: trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan
==============================================================================
--- trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan	(original)
+++ trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan	Sun Jan 14 05:43:29 2007
@@ -34,7 +34,9 @@
     block()
       let count = counter();
       make(<thread>, function: curry(thread-worker, ts, count));
-      format-out("Started %d thread [%d]\n", count, ts.threads.size);
+      with-lock(ts.lock)
+        format-out("Started %d thread [%d]\n", count, ts.threads.size);
+      end;
     exception (c :: <condition>)
       format-out("Received condition %=\n", c);
       sleep(1);
@@ -44,4 +46,4 @@
 
 begin
   main();
-end;
\ No newline at end of file
+end;