Add eqv?.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 06:51:50 +0000 (07:51 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 06:51:50 +0000 (07:51 +0100)
* module/mes/base.scm (eqv?): New function.

module/mes/base.mes

index e35100007125d896484ee6b015b5963c82597751..efc6939a04395a4a460bdd6ff341a07d7eefa8ba 100644 (file)
@@ -41,6 +41,8 @@
           (list 'if (car x) (cons 'and (cdr x))
                 #f))))
 
+(define eqv? eq?)
+
 (define (equal? a b) ;; FIXME: only 2 arg
   (if (and (null? a) (null? b)) #t
       (if (and (pair? a) (pair? b))