Tweak

2008-02-16 18:48:06 -06:00 · 2008-02-16 18:48:06 -06:00 · c3bb6b911b
parent d0e5c585f5
commit c3bb6b911b
1 changed files with 2 additions and 3 deletions
--- a/extra/benchmark/sockets/sockets.factor
+++ b/extra/benchmark/sockets/sockets.factor
@ -23,10 +23,9 @@ IN: benchmark.sockets
    ] with-stream ;

 : clients ( n -- )
-    dup pprint " clients: " write
-        [
+    dup pprint " clients: " write [
        [ simple-server ] in-thread
-        100 sleep
+        yield yield
        [ drop simple-client ] parallel-each
        stop-server
        yield yield