summaryrefslogtreecommitdiff
path: root/oop/goops/util.scm
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-11 19:58:14 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-11 19:58:14 +0000
commitc614a00b8c155b59c76c0fe1e272aa2df1f3faf5 (patch)
tree6829096753b6bf4d5f9fdac06988159061e749bc /oop/goops/util.scm
parentb0dff01890f4b07a53c138fe04512af3b5262168 (diff)
downloadguile-c614a00b8c155b59c76c0fe1e272aa2df1f3faf5.tar.gz
* 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.
Diffstat (limited to 'oop/goops/util.scm')
-rw-r--r--oop/goops/util.scm9
1 files changed, 2 insertions, 7 deletions
diff --git a/oop/goops/util.scm b/oop/goops/util.scm
index 9e6a3c927..c88687d93 100644
--- 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 @@
(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)
'()