guile/guile-core/ice-9 common-list.scm

[Marius Vollmer]

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)