mes: Add negate.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 21 May 2017 10:33:16 +0000 (12:33 +0200)
committerJan 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

index 6e58bfff4a2b5a16857109eeda68f265465348cd..50ed221faa299a7c2764b43c4da12fb53e4376e3 100644 (file)
       (let ((y (car rest)))
         (let ((z (if (< x y) x y)))
           (apply min (cons z (cdr rest)))))))
       (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))))