diff options
| -rw-r--r-- | benchmarks/sieve.scm | 4 |
1 files 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)) |