emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests] add a while loop

Browse Source
This commit is contained in:
Joe Thornber 2017-08-18 16:02:10 +01:00
parent 59a77ee44a
commit 4602ba856d
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
functional-tests/loops.scm
View File

@ -1,6 +1,6 @@
(library (library
(loops) (loops)
(export upto) (export upto while)
(import (rnrs)) (import (rnrs))
(define-syntax upto (define-syntax upto
@ -9,5 +9,15 @@
(let loop ((var 0)) (let loop ((var 0))
(when (< var count) (when (< var count)
(begin body ...) (begin body ...)
(loop (+ 1 var)))))))) (loop (+ 1 var)))))))
(define-syntax while
(syntax-rules ()
((_ (var exp) body ...)
(let loop ((var exp))
(when var
(begin body ...)
(loop exp))))))
)