diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-11 19:58:14 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-11 19:58:14 +0000 |
commit | c614a00b8c155b59c76c0fe1e272aa2df1f3faf5 (patch) | |
tree | 6829096753b6bf4d5f9fdac06988159061e749bc /oop/goops/util.scm | |
parent | b0dff01890f4b07a53c138fe04512af3b5262168 (diff) | |
download | guile-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.scm | 9 |
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) '() |