loop.scm « gc-benchmarks - software/guile - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/gc-benchmarks/loop.scm

blob: 7e81e7a9e0a6736a7f043dd1875e2ce09c59b87f (about) (plain)

(let loop ((i 10000000))
  (and (> i 0)
       (loop (1- i))))