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

Tweaks

Browse source
This commit is contained in:
Justin Ethier 2017-06-17 01:50:30 -04:00
parent c550b15f3a
commit 4b7d5cb98a
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/bv2string.scm
View file

@ -142,7 +142,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! 1 (lambda () (async-exec-multi! 2 (lambda ()
(run-r7rs-benchmark (run-r7rs-benchmark
(string-append name ":" s1 ":" s2 ":" s3 ) (string-append name ":" s1 ":" s2 ":" s3 )
count count
@ -244,5 +244,5 @@
(flush-output-port (current-output-port)) (flush-output-port (current-output-port))
(exit 1))))) (exit 1)))))
(define (this-scheme-implementation-name) (define (this-scheme-implementation-name)
(string-append "cyclone-" (Cyc-version))) (string-append "cyclone-" #;(Cyc-version)))
(main) (main)