From 56adbd75d4b54dcaa25504e780d65b64cffba3f8 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 12 May 2003 23:02:01 +0000
Subject: [PATCH] (delete): Fix predicate arg order to match srfi-1 spec.

---
 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 5aa63f4b0..f65c4c773 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -802,7 +802,7 @@
     (let lp ((l list))
       (if (null? l)
 	'()
-	(if (l= (car l) x)
+	(if (l= x (car l))
 	  (lp (cdr l))
 	  (cons (car l) (lp (cdr l))))))))