for/sum isn't available in racket 5.1.3 apparently

2011-09-19 12:42:04 -04:00 · 2011-09-19 12:42:04 -04:00 · 2a9a4f60c8
parent 30590bb41a
commit 2a9a4f60c8
1 changed files with 4 additions and 1 deletions
--- a/stress.rkt
+++ b/stress.rkt
@ -17,7 +17,10 @@
  (vector-set! latencies latency-pos ms)
  (set! latency-pos (modulo (+ latency-pos 1) (vector-length latencies)))
  (when (zero? latency-pos)
-    (for-each display (list ";; Mean latency "(/ (for/sum ((i latencies)) i)
+    (for-each display (list ";; Mean latency "(/ (for/fold
+						     ((sum 0))
+						     ((i latencies))
+						   (+ sum i))
 						 (vector-length latencies))"ms\n"))))

 (define (stress hostname port-number count rate)