limn goops flags, remove foreign objs, rename entity to applicable-struct
[bpt/guile.git] / gc-benchmarks / loop.scm
CommitLineData
c38a561f
LC
1(let loop ((i 10000000))
2 (and (> i 0)
3 (loop (1- i))))
4