diff options
| -rw-r--r-- | benchmarks/sieve.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |