mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
9084db993e
* benchmark-suite/benchmarks/continuations.bm: Increase "call/cc"
iterations from 300 to 12000.
* benchmark-suite/benchmarks/srfi-13.bm ("strings"): Increase "copy"
iterations from 1100 to 20000, and "pad" from 6800 to 34000.
* benchmark-suite/benchmarks/uniform-vector-read.bm
("uniform-vector-read!"): Increase "uniform-vector-write" iterations
from 500 to 4000, and "uniform-vector-read!" from 500 to 20000.
9 lines
203 B
Text
9 lines
203 B
Text
|
|
(define-module (benchmarks continuations)
|
|
:use-module (benchmark-suite lib))
|
|
|
|
(define (callee continuation)
|
|
(continuation #t))
|
|
|
|
(benchmark "call/cc" 12000
|
|
(call-with-current-continuation callee))
|