From 0bf21998a04cae4d4f02a63d893c5c9aba778d86 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 20 Dec 2016 07:51:50 +0100
Subject: [PATCH] Add eqv?.

* module/mes/base.scm (eqv?): New function.
---
 module/mes/base.mes | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/mes/base.mes b/module/mes/base.mes
index e3510000..efc6939a 100644
--- a/module/mes/base.mes
+++ b/module/mes/base.mes
@@ -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))