mes: Add negate.

* module/mes/scm.mes (negate): New function.

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))))