diff options
| -rw-r--r-- | src/cuirass/database.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index c82e306..7c1f286 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -439,7 +439,9 @@ worker thread that allows database operations to run without intefering with fibers." (parameterize ((%db-channel (make-worker-thread-channel (lambda () - (list (db-open)))))) + (list (db-open))) + #:parallelism + (min (current-processor-count) 4)))) body ...)) (define* (read-quoted-string #:optional (port (current-input-port))) |