mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(alist-delete): Correction to equality proc call argument

Browse source 
order, spec is for given KEY param first.
This commit is contained in:
Kevin Ryde 2004-12-05 23:53:20 +00:00
parent 6d7db38196
commit 41ab236c76
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-1.scm
View file

@ -710,7 +710,7 @@
(let lp ((a alist)) (let lp ((a alist))
(if (null? a) (if (null? a)
'() '()
(if (k= (caar a) key) (if (k= key (caar a))
(lp (cdr a)) (lp (cdr a))
(cons (car a) (lp (cdr a)))))))) (cons (car a) (lp (cdr a))))))))