summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2003-05-12 23:02:01 +0000
committerKevin Ryde <user42@zip.com.au>2003-05-12 23:02:01 +0000
commit56adbd75d4b54dcaa25504e780d65b64cffba3f8 (patch)
tree2060888c47244573e4c526b3d7e1dbd936ff3a90 /srfi/srfi-1.scm
parentdfd03fb91b66599064c51c2924ead945b00852c5 (diff)
downloadguile-56adbd75d4b54dcaa25504e780d65b64cffba3f8.tar.gz
(delete): Fix predicate arg order to match srfi-1 spec.
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 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))))))))