Import guile-1.8 as multiple upstream tarball component

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

diff --git a/guile18/benchmark-suite/benchmarks/continuations.bm b/guile18/benchmark-suite/benchmarks/continuations.bm
new file mode 100644 (file)
index 0000000..7c44300
--- /dev/null
+++ b/guile18/benchmark-suite/benchmarks/continuations.bm
@@ -0,0 +1,5 @@
+(define (callee continuation)
+  (continuation #t))
+
+(benchmark "call/cc" 300
+  (call-with-current-continuation callee))