diff options
author | Kevin Ryde <user42@zip.com.au> | 2003-05-12 23:02:01 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2003-05-12 23:02:01 +0000 |
commit | 56adbd75d4b54dcaa25504e780d65b64cffba3f8 (patch) | |
tree | 2060888c47244573e4c526b3d7e1dbd936ff3a90 | |
parent | dfd03fb91b66599064c51c2924ead945b00852c5 (diff) | |
download | guile-56adbd75d4b54dcaa25504e780d65b64cffba3f8.tar.gz |
(delete): Fix predicate arg order to match srfi-1 spec.
-rw-r--r-- | srfi/srfi-1.scm | 2 |
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)))))))) |