diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 18:22:25 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 18:22:25 +0000 |
commit | 45cf8cd6aad1f45a7d025c04df90549869c83087 (patch) | |
tree | a7084cc2c37bf2178566a3195016d762b74b4234 | |
parent | 4ff9f8254e51eec64fa89cd02e775107f100471c (diff) | |
download | guile-45cf8cd6aad1f45a7d025c04df90549869c83087.tar.gz |
(remove-if, remove-if-not): Fix typo: use
`pred', not `pred?', in the body.
-rw-r--r-- | ice-9/common-list.scm | 4 |
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) |