From 0d3f7e6223d03489618cb467f2f16bc2eb26cf4d Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 5 Dec 2004 23:54:43 +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 889b10029..fb92ed71c 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -945,7 +945,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))))))))