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

[hannes at gwydiondylan.org]

Author: hannes
Date: Sun Jan 14 05:05:22 2007
New Revision: 11131

Modified:
   trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan
Log:
Job: minor
implement exception handler (mainly for <thread-creation-error>)


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:05:22 2007
@@ -31,9 +31,14 @@
 define function main () => ()
   let ts = make(<thread-server>);
   while(#t)
-    let count = counter();
-    make(<thread>, function: curry(thread-worker, ts, count));
-    format-out("Started %d thread [%d]\n", count, ts.threads.size);
+    block()
+      let count = counter();
+      make(<thread>, function: curry(thread-worker, ts, count));
+      format-out("Started %d thread [%d]\n", count, ts.threads.size);
+    exception (c :: <condition>)
+      format-out("Received condition %=\n", c);
+      sleep(1);
+    end;
   end;
 end;