Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Tweak params

Browse source
This commit is contained in:
Justin Ethier 2017-06-15 18:57:42 -04:00
parent bd81569c9d
commit 4eddfe3d5b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/threading/benchmarks/ctak.scm
View file

@ -41,7 +41,7 @@
(let* ((j/s (jiffies-per-second)) (let* ((j/s (jiffies-per-second))
(t0 (current-second)) (t0 (current-second))
(j0 (current-jiffy))) (j0 (current-jiffy)))
(async-exec-multi! 3 (lambda () (async-exec-multi! 1 (lambda ()
(run-r7rs-benchmark (run-r7rs-benchmark
(string-append name ":" s1 ":" s2 ":" s3 ":" s4) (string-append name ":" s1 ":" s2 ":" s3 ":" s4)
count count
@ -95,7 +95,7 @@
(define (wait-for-all-async) (define (wait-for-all-async)
(let loop ((done #f)) (let loop ((done #f))
(thread-sleep! 100) (thread-sleep! 0)
(mutex-lock! m) (mutex-lock! m)
(if (= *running-threads* 0) (set! done #t)) (if (= *running-threads* 0) (set! done #t))
(mutex-unlock! m) (mutex-unlock! m)