summaryrefslogtreecommitdiff
path: root/gc-benchmarks/loop.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-10-12 23:51:03 +0200
committerAndy Wingo <wingo@pobox.com>2009-01-12 23:31:50 +0100
commit8da56ffc0b3b8ec2efd6b16eb4b4ae8c358d2214 (patch)
treea9b8d6ff1032c7f96f7cd8ef894cf08feb0c3043 /gc-benchmarks/loop.scm
parent4a462e35440fdc3f10b0f88b3fb737fa76ed146d (diff)
downloadguile-8da56ffc0b3b8ec2efd6b16eb4b4ae8c358d2214.tar.gz
Add GC benchmarks.
Diffstat (limited to 'gc-benchmarks/loop.scm')
-rw-r--r--gc-benchmarks/loop.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/gc-benchmarks/loop.scm b/gc-benchmarks/loop.scm
new file mode 100644
index 000000000..7e81e7a9e
--- /dev/null
+++ b/gc-benchmarks/loop.scm
@@ -0,0 +1,4 @@
+(let loop ((i 10000000))
+ (and (> i 0)
+ (loop (1- i))))
+