summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-06-14 18:22:25 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-06-14 18:22:25 +0000
commit45cf8cd6aad1f45a7d025c04df90549869c83087 (patch)
treea7084cc2c37bf2178566a3195016d762b74b4234
parent4ff9f8254e51eec64fa89cd02e775107f100471c (diff)
downloadguile-45cf8cd6aad1f45a7d025c04df90549869c83087.tar.gz
(remove-if, remove-if-not): Fix typo: use
`pred', not `pred?', in the body.
-rw-r--r--ice-9/common-list.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/ice-9/common-list.scm b/ice-9/common-list.scm
index 4d0e147aa..bc583fdf2 100644
--- a/ice-9/common-list.scm
+++ b/ice-9/common-list.scm
@@ -206,7 +206,7 @@ If found, return that element, otherwise return #f."
Return everything that's left."
(let loop ((l l) (result '()))
(cond ((null? l) (reverse! result))
- ((pred? (car l)) (loop (cdr l) result))
+ ((pred (car l)) (loop (cdr l) result))
(else (loop (cdr l) (cons (car l) result))))))
(define-public (remove-if-not pred l)
@@ -214,7 +214,7 @@ Return everything that's left."
Return everything that's left."
(let loop ((l l) (result '()))
(cond ((null? l) (reverse! result))
- ((not (pred? (car l))) (loop (cdr l) result))
+ ((not (pred (car l))) (loop (cdr l) result))
(else (loop (cdr l) (cons (car l) result))))))
(define-public (delete-if! pred l)