diff options
Diffstat (limited to 'tests/speedup.scm')
| -rw-r--r-- | tests/speedup.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/speedup.scm b/tests/speedup.scm index ea67d6a..6dfe969 100644 --- a/tests/speedup.scm +++ b/tests/speedup.scm @@ -40,9 +40,10 @@ (format #t "speedup for ~s: " 'exp) (force-output) (let ((thunk (lambda () exp))) - (let ((t1 (time (lambda () (run-fibers thunk #:parallelism 1))))) + (let ((t1 (time (lambda () + (run-fibers thunk #:parallelism 1 #:drain? #t))))) (format #t "~a s" t1) - (let ((t2 (time (lambda () (run-fibers thunk))))) + (let ((t2 (time (lambda () (run-fibers thunk #:drain? #t))))) (format #t " / ~a s = ~ax (~a cpus)\n" t2 (/ t1 t2) (current-processor-count))))))) |