Merge commit '5af307de43e4b65eec7f235b48a8908f2a00f134'
[bpt/guile.git] / benchmark-suite / benchmarks / continuations.bm
index 7c44300..3ca498d 100644 (file)
@@ -1,5 +1,9 @@
+
+(define-module (benchmarks continuations)
+  :use-module (benchmark-suite lib))
+
 (define (callee continuation)
   (continuation #t))
 
-(benchmark "call/cc" 300
+(benchmark "call/cc" 12000
   (call-with-current-continuation callee))