artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add unless.

Browse source 
* module/mes/scm.mes (unless): New syntax.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-20 15:48:10 +01:00
parent 8e1b25368b
commit 489d7c7f51
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
module/mes/scm.mes
View file

@ -67,6 +67,10 @@
`(if ,expr
((lambda () ,@body))))
(define-macro (unless expr . body)
`(if (not ,expr)
((lambda () ,@body))))
(define-macro (do init test . body)
`(let loop ((,(caar init) ,(cadar init)))
(when (not ,@test)