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

[functional-tests/utils] inc!, dec!

Browse Source
This commit is contained in:
Joe Thornber 2017-08-21 09:59:45 +01:00
parent c921233f3c
commit 80f9d082d5
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
functional-tests/utils.scm Normal file
View File

@ -0,0 +1,16 @@
(library
(utils)
(export inc!
dec!)
(import (rnrs))
(define-syntax inc!
(syntax-rules ()
((_ v) (set! v (+ 1 v)))
((_ v n) (set! v (+ n v)))))
(define-syntax dec!
(syntax-rules ()
((_ v) (set! v (- v 1)))
((_ v n) (set! v (- v n)))))
)