mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* srfi-1.scm (iota map for-each map-in-order list-index member

Browse source 
delete delete! assoc): Marked as replacements.

* goops.scm (define-extended-generics): New syntax.
(<class> <operator-class> <entity-class> <entity>): Marked as
replacements.

* boot-9.scm (module-override!, make-mutable-parameter,
lookup-duplicates-handlers, default-module-duplicates-handler):
New functions.
(process-duplicates): Don't call duplicates handlers for duplicate
bindings of the same variable.
(process-define-module): Process #:replace.
(compile-interface-spec, resolve-interface): Process #:prefix.

* format.scm (format): Marked as replacement.

* threads.scm (future, future-ref): Marked as replacements.
This commit is contained in:
Mikael Djurfeldt 2003-03-10 23:18:05 +00:00
parent dbd6bd2910
commit f595ccfefc
9 changed files with 285 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

28
srfi/srfi-1.scm
View file

@ -1,6 +1,6 @@
;;; srfi-1.scm --- List Library
;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2002, 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
@ -59,9 +59,8 @@
(define-module (srfi srfi-1)
:use-module (ice-9 session)
:use-module (ice-9 receive))
(export
:use-module (ice-9 receive)
:export (
;;; Constructors
;; cons <= in the core
;; list <= in the core
@ -71,7 +70,7 @@
list-tabulate
;; list-copy <= in the core
circular-list
iota ; Extended.
;; iota ; Extended.
;;; Predicates
proper-list?
@ -165,12 +164,12 @@
reduce-right
unfold
unfold-right
map ; Extended.
for-each ; Extended.
;; map ; Extended.
;; for-each ; Extended.
append-map
append-map!
map!
map-in-order ; Extended.
;; map-in-order ; Extended.
pair-for-each
filter-map
@ -194,19 +193,19 @@
break!
any
every
list-index ; Extended.
member ; Extended.
;; list-index ; Extended.
;; member ; Extended.
;; memq <= in the core
;; memv <= in the core
;;; Deletion
delete ; Extended.
delete! ; Extended.
;; delete ; Extended.
;; delete! ; Extended.
delete-duplicates
delete-duplicates!
;;; Association lists
assoc ; Extended.
;; assoc ; Extended.
;; assq <= in the core
;; assv <= in the core
alist-cons
@ -233,6 +232,9 @@
;; set-car! <= in the core
;; set-cdr! <= in the core
)
:replace (iota map for-each map-in-order list-index member
delete delete! assoc)
)
(cond-expand-provide (current-module) '(srfi-1))