mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* srfi-1.scm (iota, map, for-each, list-index, member, delete,

Browse source 
delete!, assoc): don't export until the new bindings have been
	created.  otherwise "export" thinks they are being re-exported and
	a deprecation warning is produced.
This commit is contained in:
Gary Houston 2001-07-03 18:54:43 +00:00
parent 2bc6f75048
commit fc183bc85b
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
srfi/srfi-1.scm
View file

@ -70,7 +70,7 @@
list-tabulate
;; list-copy <= in the core
circular-list
iota
;; iota ; exported below
;;; Predicates
proper-list?
@ -164,8 +164,8 @@
reduce-right
unfold
unfold-right
map
for-each
;; map ; exported below
;; for-each ; exported below
append-map
append-map!
map!
@ -193,19 +193,19 @@
break!
any
every
list-index
member ; Extended.
;; list-index ; exported below.
;; member ; exported below ; Extended.
;; memq <= in the core
;; memv <= in the core
;;; Deletion
delete ; Extended.
delete!
;; delete ; exported below ; Extended.
;; delete! ; exported below
delete-duplicates
delete-duplicates!
;;; Association lists
assoc ; Extended.
;; assoc ; exported below ; Extended.
;; assq <= in the core
;; assv <= in the core
alist-cons
@ -1025,3 +1025,7 @@
(define (lset-diff+intersection! = list1 . rest)
(apply lset-diff+intersection = list1 rest)) ; XXX:optimize
;; extended versions of builtin procedures. exporting is delayed until the
;; new bindings have been created.
(export iota map for-each list-index member delete delete! assoc)