More robust against experimentation where the range of `i` is increased
This commit is contained in:
parent
dbcc931ebd
commit
017d5851be
|
@ -86,6 +86,6 @@
|
||||||
counter)))
|
counter)))
|
||||||
(send! (outbound (tcp-channel us them response)))
|
(send! (outbound (tcp-channel us them response)))
|
||||||
(for [(i 4)]
|
(for [(i 4)]
|
||||||
(define buf (make-bytes 1024 (+ #x30 i)))
|
(define buf (make-bytes 1024 (+ #x30 (modulo i 10))))
|
||||||
(send! (outbound (tcp-channel us them buf))))
|
(send! (outbound (tcp-channel us them buf))))
|
||||||
(stop-facet (current-facet-id)))))))
|
(stop-facet (current-facet-id)))))))
|
||||||
|
|
Loading…
Reference in New Issue