Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / benchmark-suite / benchmarks / continuations.bm

(define (callee continuation)
  (continuation #t))

(benchmark "call/cc" 300
  (call-with-current-continuation callee))