diff --git a/extra/benchmark/sockets/sockets.factor b/extra/benchmark/sockets/sockets.factor index f19a2127a5..a621331968 100755 --- 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