mes: Add negate.

* module/mes/scm.mes (negate): New function.
2017-05-21 12:33:16 +02:00 · 2017-05-21 12:33:16 +02:00 · 11311bcaa7
parent 45ce77df85
commit 11311bcaa7
1 changed files with 4 additions and 0 deletions
--- 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))))