[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 common-list.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 common-list.scm |
Date: |
Thu, 14 Jun 2001 11:22:25 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/06/14 11:22:25
Modified files:
guile-core/ice-9: common-list.scm
Log message:
(remove-if, remove-if-not): Fix typo: use
`pred', not `pred?', in the body.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/common-list.scm.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text
Patches:
Index: guile/guile-core/ice-9/common-list.scm
diff -u guile/guile-core/ice-9/common-list.scm:1.11
guile/guile-core/ice-9/common-list.scm:1.12
--- guile/guile-core/ice-9/common-list.scm:1.11 Wed Jun 13 02:10:20 2001
+++ guile/guile-core/ice-9/common-list.scm Thu Jun 14 11:22:25 2001
@@ -206,7 +206,7 @@
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."
(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)