db4
Slava Pestov 2008-02-16 18:48:06 -06:00
parent d0e5c585f5
commit c3bb6b911b
1 changed files with 2 additions and 3 deletions

View File

@ -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