From 41ab236c7628e8c0948cc7dddd9496e9155e3496 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 5 Dec 2004 23:53:20 +0000
Subject: [PATCH] (alist-delete): Correction to equality proc call argument
 order, spec is for given KEY param first.

---
 srfi/srfi-1.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))))))