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

* goops/util.scm (filter): Removed.  (Now supplied by core.)

* list.c, list.h (scm_filter, scm_filter_x): New functions.

* debugger/command-loop.scm: Prefix all commands imported from
(ice-9 debugger command-loop) with debugger:.

* boot-9.scm (resolve-interface): Process #:hide; Name custom interfaces
appropriately.
(module-use!, module-use-interfaces!): Remove existing interfaces
on the use-list based on module name rather than interface
identity so that custom interfaces truly replaces their previous
version.

oop/ChangeLog

@@ -1,5 +1,7 @@
 2003-03-11  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
+	* goops/util.scm (filter): Removed.  (Now supplied by core.)
+
 	* goops.scm (define-extended-generics): New syntax.
 	(<class> <operator-class> <entity-class> <entity>): Marked as
 	replacements.

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 @@
 
 
 (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)
       '()