diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-06-16 14:30:17 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-06-16 14:30:17 +0200 |
| commit | d0f49e76c45d065dc1f38f8bc522f2c38343b6b2 (patch) | |
| tree | 34c86cfc97e71eb0747c7e3ee04070f4d1f766d2 /benchmarks/sieve.scm | |
| parent | Add false sieve-of-erastothenes benchmark (diff) | |
| download | guile-fibers-d0f49e76c45d065dc1f38f8bc522f2c38343b6b2.tar.gz | |
Fix sieve bug
Diffstat (limited to 'benchmarks/sieve.scm')
| -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)) |