projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
45ce77d
)
mes: Add negate.
author
Jan Nieuwenhuizen
<janneke@gnu.org>
Sun, 21 May 2017 10:33:16 +0000
(12:33 +0200)
committer
Jan Nieuwenhuizen
<janneke@gnu.org>
Sun, 21 May 2017 10:33:16 +0000
(12:33 +0200)
* module/mes/scm.mes (negate): New function.
module/mes/scm.mes
patch
|
blob
|
history
diff --git
a/module/mes/scm.mes
b/module/mes/scm.mes
index 6e58bfff4a2b5a16857109eeda68f265465348cd..50ed221faa299a7c2764b43c4da12fb53e4376e3 100644
(file)
--- a/
module/mes/scm.mes
+++ b/
module/mes/scm.mes
@@
-355,3
+355,7
@@
(let ((y (car rest)))
(let ((z (if (< x y) x y)))
(apply min (cons z (cdr rest)))))))
+
+(define (negate proc)
+ (lambda args
+ (not (apply proc args))))