Use `current-processor-count' to determine the number of future-workers.

[bpt/guile.git] / module / ice-9 / futures.scm

diff --git a/module/ice-9/futures.scm b/module/ice-9/futures.scm
index b2e4c0d..1e9247d 100644 (file)
--- a/module/ice-9/futures.scm
+++ b/module/ice-9/futures.scm
@@ -146,9 +146,7 @@ touched."
 
 (define %worker-count
   (if (provided? 'threads)
-      (if (defined? 'getaffinity)
-          (- (bit-count #t (getaffinity (getpid))) 1)
-          3) ;; FIXME: use Gnulib's `nproc' here.
+      (- (current-processor-count) 1)
       0))
 
 (define %workers