From ea92d228b367d213afb59252316cd035f53a306a Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Mon, 23 Sep 2019 20:43:25 -0500
Subject: [PATCH] memv: compare using eqv? instead of equal?

memv has been defined to be member, so it has been comparing
using equal? (by default) instead of eqv?.
---
 lib/init-7.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index 2e4ff6d8..48e8a854 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -676,7 +676,7 @@
     (let lp ((ls ls))
       (and (pair? ls) (if (eq obj (car ls)) ls (lp (cdr ls)))))))
 
-(define memv member)
+(define (memv obj ls) (member obj ls eqv?))
 
 (define (assoc obj ls . o)
   (let ((eq (if (pair? o) (car o) equal?)))