diff options
-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) |