summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-12-05 23:53:20 +0000
committerKevin Ryde <user42@zip.com.au>2004-12-05 23:53:20 +0000
commit41ab236c7628e8c0948cc7dddd9496e9155e3496 (patch)
tree2fb904900f2da93608788f836e5b3ecc9490d7d1 /srfi/srfi-1.scm
parent6d7db38196c5dcfca37ec21c5ed51ff3865dd4a5 (diff)
downloadguile-41ab236c7628e8c0948cc7dddd9496e9155e3496.tar.gz
(alist-delete): Correction to equality proc call argument
order, spec is for given KEY param first.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 96042d6e6..f0968bc15 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -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))))))))