thin-provisioning-tools/functional-tests/loops.scm

24 lines
440 B
Scheme
Raw Normal View History

(library
(loops)
2017-08-18 20:32:10 +05:30
(export upto while)
(import (rnrs))
(define-syntax upto
(syntax-rules ()
((_ (var count) body ...)
(let loop ((var 0))
(when (< var count)
(begin body ...)
2017-08-18 20:32:10 +05:30
(loop (+ 1 var)))))))
(define-syntax while
(syntax-rules ()
((_ (var exp) body ...)
(let loop ((var exp))
(when var
(begin body ...)
(loop exp))))))
)