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 | |
| 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')
| -rw-r--r-- | srfi/ChangeLog | 5 | ||||
| -rw-r--r-- | srfi/srfi-1.scm | 19 |
2 files changed, 5 insertions, 19 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog index 638bd828e..ee32af7ba 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,7 +1,8 @@ 2003-03-11 Mikael Djurfeldt <djurfeldt@nada.kth.se> - * srfi-1.scm (iota map for-each map-in-order list-index member - delete delete! assoc): Marked as replacements. + * srfi-1.scm (iota, map, for-each, map-in-order, list-index, + member, delete, delete!, assoc): Marked as replacements. + (filter, filter!): Removed. (Now implemented in the core.) 2003-03-06 Mikael Djurfeldt <djurfeldt@nada.kth.se> 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 |