summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.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 /srfi/srfi-1.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 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm19
1 files changed, 2 insertions, 17 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 98ffeb46f..9fadee8e2 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -174,10 +174,10 @@
filter-map
;;; Filtering & partitioning
- filter
+ ;; filter <= in the core
partition
remove
- filter!
+ ;; filter! <= in the core
partition!
remove!
@@ -687,18 +687,6 @@
;;; Filtering & partitioning
-(define (filter pred list)
- (check-arg-type list? list "filter") ; reject circular lists.
- (letrec ((filiter (lambda (pred rest result)
- (if (null? rest)
- (reverse! result)
- (filiter pred (cdr rest)
- (cond ((pred (car rest))
- (cons (car rest) result))
- (else
- result)))))))
- (filiter pred list '())))
-
(define (partition pred list)
(if (null? list)
(values '() '())
@@ -711,9 +699,6 @@
(define (remove pred list)
(filter (lambda (x) (not (pred x))) list))
-(define (filter! pred list)
- (filter pred list)) ; XXX:optimize
-
(define (partition! pred list)
(partition pred list)) ; XXX:optimize