mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 12:50:14 +02:00
0237895653
from the test-suite directory, renamed and adapted for use with benchmarks. * benchmarks/logand.bm, benchmarks/continuations.bm, benchmarks/if.bm: Added as initial fairly stupid examples for benchmarks.
5 lines
120 B
Text
5 lines
120 B
Text
(define (callee continuation)
|
|
(continuation #t))
|
|
|
|
(benchmark "call/cc" 300
|
|
(call-with-current-continuation callee))
|