Add and=>.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 08:03:05 +0000 (09:03 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 08:03:05 +0000 (09:03 +0100)
* module/mes/base.scm (and=>): New function.

module/mes/base.mes

index efc6939a04395a4a460bdd6ff341a07d7eefa8ba..e57ca4538c1c75ea4fd3b3bf572831ee51a80237 100644 (file)
@@ -41,6 +41,7 @@
           (list 'if (car x) (cons 'and (cdr x))
                 #f))))
 
+(define (and=> value procedure) (and value (procedure value)))
 (define eqv? eq?)
 
 (define (equal? a b) ;; FIXME: only 2 arg