Add GC benchmarks.

[bpt/guile.git] / gc-benchmarks / loop.scm

diff --git a/gc-benchmarks/loop.scm b/gc-benchmarks/loop.scm
new file mode 100644 (file)
index 0000000..7e81e7a
--- /dev/null
+++ b/gc-benchmarks/loop.scm
@@ -0,0 +1,4 @@
+(let loop ((i 10000000))
+  (and (> i 0)
+       (loop (1- i))))
+