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 /srfi/srfi-1.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 'srfi/srfi-1.scm')
-rw-r--r-- | srfi/srfi-1.scm | 19 |
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 |