Add eqv?.

* module/mes/base.scm (eqv?): New function.
2016-12-20 07:51:50 +01:00 · 2016-12-20 07:51:50 +01:00 · 0bf21998a0
parent 2390d46a63
commit 0bf21998a0
1 changed files with 2 additions and 0 deletions
--- 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))