diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-06-16 14:30:41 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-06-16 14:30:41 +0200 |
| commit | 591383c1f2781737e6248f95520dfbf243ac285f (patch) | |
| tree | d40575cd14d121ddc76cafc0cc608017d64d4656 | |
| parent | Fix sieve bug (diff) | |
| download | guile-fibers-591383c1f2781737e6248f95520dfbf243ac285f.tar.gz | |
Remove sieve printout
| -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) |