friendlier thread names for clients

This commit is contained in:
Alex Shinn 2012-09-16 15:08:50 +09:00
parent 21d4fc670c
commit 470d562dd5

View file

@ -58,5 +58,5 @@
(set! requests (+ requests 1)) (set! requests (+ requests 1))
(run sock addr count) (run sock addr count)
(set! requests (- requests 1))) (set! requests (- requests 1)))
"net-client")) (string-append "net-client-" (number->string count))))
(serve (+ 1 count)))))))))) (serve (+ 1 count))))))))))