From d0f49e76c45d065dc1f38f8bc522f2c38343b6b2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 16 Jun 2017 14:30:17 +0200 Subject: Fix sieve bug --- benchmarks/sieve.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/benchmarks/sieve.scm b/benchmarks/sieve.scm index 85a8ede..216104c 100644 --- a/benchmarks/sieve.scm +++ b/benchmarks/sieve.scm @@ -36,9 +36,9 @@ (let ((out (make-channel))) (spawn-fiber (lambda () (let lp ((ch (integers-from 2))) - (let ((p (get-message ch))) + (let ((p (pk (get-message ch)))) (put-message out p) - (lp (sieve 2 ch))))) + (lp (sieve p ch))))) #:parallel? #t) out)) -- cgit v1.2.3