From 591383c1f2781737e6248f95520dfbf243ac285f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 16 Jun 2017 14:30:41 +0200 Subject: Remove sieve printout --- benchmarks/sieve.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/benchmarks/sieve.scm b/benchmarks/sieve.scm index 216104c..ed28c8f 100644 --- a/benchmarks/sieve.scm +++ b/benchmarks/sieve.scm @@ -36,7 +36,7 @@ (let ((out (make-channel))) (spawn-fiber (lambda () (let lp ((ch (integers-from 2))) - (let ((p (pk (get-message ch)))) + (let ((p (get-message ch))) (put-message out p) (lp (sieve p ch))))) #:parallel? #t) -- cgit v1.2.3