* srfi-1.scm (filter, filter!): Removed. (Now implemented in the core.)

[bpt/guile.git] / oop / goops / util.scm

diff --git a/oop/goops/util.scm b/oop/goops/util.scm
index 9e6a3c9..c88687d 100644 (file)
--- a/oop/goops/util.scm
+++ b/oop/goops/util.scm
@@ -1,4 +1,4 @@
-;;;;   Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+;;;;   Copyright (C) 1999, 2000, 2001, 2003 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -42,7 +42,7 @@
 \f
 
 (define-module (oop goops util)
-  :export (any every filter
+  :export (any every
           mapappend find-duplicate top-level-env top-level-env?
           map* for-each* length* improper->proper)
   :no-backtrace
@@ -85,11 +85,6 @@
                   (and (apply pred heads)
                        (loop (map car tails) (map cdr tails)))))))))
 
-(define (filter test? list)
-  (cond ((null? list) '())
-       ((test? (car list)) (cons (car list) (filter test? (cdr list))))
-       (else (filter test? (cdr list)))))
-
 (define (mapappend func . args)
   (if (memv '()  args)
       '()