Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

memv: compare using eqv? instead of equal?

Browse source 
memv has been defined to be member, so it has been comparing
using equal? (by default) instead of eqv?.
This commit is contained in:
Kris Katterjohn 2019-09-23 20:43:25 -05:00
parent e2d43bceb8
commit ea92d228b3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -676,7 +676,7 @@
(let lp ((ls ls)) (let lp ((ls ls))
(and (pair? ls) (if (eq obj (car ls)) ls (lp (cdr 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) (define (assoc obj ls . o)
(let ((eq (if (pair? o) (car o) equal?))) (let ((eq (if (pair? o) (car o) equal?)))