diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-10-12 23:51:03 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-01-12 23:31:50 +0100 |
commit | 8da56ffc0b3b8ec2efd6b16eb4b4ae8c358d2214 (patch) | |
tree | a9b8d6ff1032c7f96f7cd8ef894cf08feb0c3043 /gc-benchmarks/loop.scm | |
parent | 4a462e35440fdc3f10b0f88b3fb737fa76ed146d (diff) | |
download | guile-8da56ffc0b3b8ec2efd6b16eb4b4ae8c358d2214.tar.gz |
Add GC benchmarks.
Diffstat (limited to 'gc-benchmarks/loop.scm')
-rw-r--r-- | gc-benchmarks/loop.scm | 4 |
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)))) + |