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

mes: Add negate.

Browse source 
* module/mes/scm.mes (negate): New function.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-21 12:33:16 +02:00
parent 45ce77df85
commit 11311bcaa7
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

@ -355,3 +355,7 @@
(let ((y (car rest))) (let ((y (car rest)))
(let ((z (if (< x y) x y))) (let ((z (if (< x y) x y)))
(apply min (cons z (cdr rest))))))) (apply min (cons z (cdr rest)))))))
(define (negate proc)
(lambda args
(not (apply proc args))))