From 2d31bd4ba7df8966301e517717c52dae504aec1c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 8 Jan 2017 14:17:56 +0100 Subject: Enable preemption by default * fibers.scm (run-fibers): Enable preemption by default with a period of 10ms. --- fibers.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'fibers.scm') diff --git a/fibers.scm b/fibers.scm index 8312d7a..270c912 100644 --- a/fibers.scm +++ b/fibers.scm @@ -24,8 +24,7 @@ #:use-module (fibers repl) #:use-module (fibers timers) #:use-module (fibers interrupts) - #:use-module ((ice-9 threads) - #:select (current-thread current-processor-count)) + #:use-module (ice-9 threads) #:use-module ((ice-9 ports internal) #:select (port-read-wait-fd port-write-wait-fd)) #:use-module (ice-9 suspendable-ports) @@ -73,7 +72,7 @@ (lp (1+ i))))))) (define* (run-fibers #:optional (init #f) - #:key (hz 0) (scheduler #f) + #:key (hz 100) (scheduler #f) (parallelism (current-processor-count)) (install-suspendable-ports? #t)) (when install-suspendable-ports? (install-suspendable-ports!)) -- cgit v1.2.3