Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #576 from katterjohn/memv-fix

Browse source 
memv: compare using eqv? instead of equal?
This commit is contained in:
Alex Shinn 2019-09-24 22:07:17 +08:00 • committed by GitHub
commit 3749d29883
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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?)))