Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +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))
(else (assoc (cdr ls)))))))
(define assv assoc)
(define (assv obj ls) (assoc obj ls eqv?))
(define (find-tail pred ls)
(and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls)))))