steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak

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

5
extra/benchmark/sockets/sockets.factor
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