From 017d5851bebe86a6721d78d8bf546e5baf118ebe Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 6 May 2018 13:38:52 +0100 Subject: [PATCH] More robust against experimentation where the range of `i` is increased --- examples/netstack/incremental-highlevel/main.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/netstack/incremental-highlevel/main.rkt b/examples/netstack/incremental-highlevel/main.rkt index b2d6c0c..37c838d 100644 --- 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)))))))