summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)