[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
srfi-1 alist-delete equality proc arg order
From: |
Kevin Ryde |
Subject: |
srfi-1 alist-delete equality proc arg order |
Date: |
Mon, 06 Dec 2004 10:47:43 +1100 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) |
I fixed a bug in alist-delete, it's supposed to have the target key as
the first argument to the equality test function. That's in the spec
and the guile docs, but was the wrong way around.
--- srfi-1.scm.~1.37.~ 2004-12-05 17:16:10.000000000 +1100
+++ srfi-1.scm 2004-12-06 10:46:11.000000000 +1100
@@ -710,7 +710,7 @@
(let lp ((a alist))
(if (null? a)
'()
- (if (k= (caar a) key)
+ (if (k= key (caar a))
(lp (cdr a))
(cons (car a) (lp (cdr a))))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- srfi-1 alist-delete equality proc arg order,
Kevin Ryde <=