More robust against experimentation where the range of `i` is increased

2018-05-06 13:38:52 +01:00 · 2018-05-06 13:38:52 +01:00 · 017d5851be
parent dbcc931ebd
commit 017d5851be
1 changed files with 1 additions and 1 deletions
--- a/examples/netstack/incremental-highlevel/main.rkt
+++ b/examples/netstack/incremental-highlevel/main.rkt
@ -86,6 +86,6 @@
                           counter)))
                (send! (outbound (tcp-channel us them response)))
                (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))))
                (stop-facet (current-facet-id)))))))