mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

Add GC benchmarks.

Browse source
This commit is contained in:
Ludovic Courtès 2008-10-12 23:51:03 +02:00
parent 074f69cdf2
commit c38a561f73
5 changed files with 402 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
gc-benchmarks/loop.scm Normal file
View file

@ -0,0 +1,4 @@
(let loop ((i 10000000))
(and (> i 0)
(loop (1- i))))