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

Removing long-standing assv hack.

Browse source 
Fixes issue #242.
This commit is contained in:
Alex Shinn 2014-11-05 22:36:26 +09:00
parent c4c3cb9eb9
commit 4d0daf5df4
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

@ -469,7 +469,7 @@
((eq obj (caar ls)) (car ls)) ((eq obj (caar ls)) (car ls))
(else (assoc (cdr ls))))))) (else (assoc (cdr ls)))))))
(define assv assoc) (define (assv obj ls) (assoc obj ls eqv?))
(define (find-tail pred ls) (define (find-tail pred ls)
(and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls))))) (and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls)))))