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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/benchmark/sockets/sockets.factor
View File

@ -23,10 +23,9 @@ IN: benchmark.sockets
] with-stream ; ] with-stream ;
: clients ( n -- ) : clients ( n -- )
dup pprint " clients: " write dup pprint " clients: " write [
[
[ simple-server ] in-thread [ simple-server ] in-thread
100 sleep yield yield
[ drop simple-client ] parallel-each [ drop simple-client ] parallel-each
stop-server stop-server
yield yield yield yield