[functional tests] start a (loops) library

Contains upto.
2017-08-17 14:11:59 +01:00 · 2017-08-17 14:11:59 +01:00 · a70c25e912
commit a70c25e912
parent a7d0e687e8
1 changed files with 13 additions and 0 deletions
--- a/functional-tests/loops.scm
+++ b/functional-tests/loops.scm
@ -0,0 +1,13 @@
+(library
+  (loops)
+  (export upto)
+  (import (rnrs))
+
+  (define-syntax upto
+    (syntax-rules ()
+      ((_ (var count) body ...)
+       (let loop ((var 0))
+         (when (< var count)
+             (begin body ...)
+             (loop (+ 1 var))))))))
+