mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +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-tabulate
;; list-copy <= in the core ;; list-copy <= in the core
circular-list circular-list
iota ;; iota ; exported below
;;; Predicates ;;; Predicates
proper-list? proper-list?
@ -164,8 +164,8 @@
reduce-right reduce-right
unfold unfold
unfold-right unfold-right
map ;; map ; exported below
for-each ;; for-each ; exported below
append-map append-map
append-map! append-map!
map! map!
@ -193,19 +193,19 @@
break! break!
any any
every every
list-index ;; list-index ; exported below.
member ; Extended. ;; member ; exported below ; Extended.
;; memq <= in the core ;; memq <= in the core
;; memv <= in the core ;; memv <= in the core
;;; Deletion ;;; Deletion
delete ; Extended. ;; delete ; exported below ; Extended.
delete! ;; delete! ; exported below
delete-duplicates delete-duplicates
delete-duplicates! delete-duplicates!
;;; Association lists ;;; Association lists
assoc ; Extended. ;; assoc ; exported below ; Extended.
;; assq <= in the core ;; assq <= in the core
;; assv <= in the core ;; assv <= in the core
alist-cons alist-cons
@ -1025,3 +1025,7 @@
(define (lset-diff+intersection! = list1 . rest) (define (lset-diff+intersection! = list1 . rest)
(apply lset-diff+intersection = list1 rest)) ; XXX:optimize (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)