mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

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

Browse source 
delete!, assoc): roll back the previous change.  instead place
	dummy definitions in a deprecated block at the beginning as in
	srfi-13.scm.
This commit is contained in:
Gary Houston 2001-07-06 21:10:47 +00:00
parent 373f4948c5
commit 99f59e93b5
3 changed files with 31 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

7
srfi/ChangeLog
View file

@ -1,3 +1,10 @@
2001-07-06 Gary Houston <ghouston@arglist.com>
* srfi-1.scm (iota, map, for-each, list-index, member, delete,
delete!, assoc): roll back the previous change. instead place
dummy definitions in a deprecated block at the beginning as in
srfi-13.scm.
2001-07-06 Rob Browning <rlb@defaultvalue.org> 2001-07-06 Rob Browning <rlb@defaultvalue.org>
* srfi-19.scm (priv:locale-reader): don't need open-output-string. * srfi-19.scm (priv:locale-reader): don't need open-output-string.

36
srfi/srfi-1.scm
View file

@ -60,6 +60,20 @@
:use-module (ice-9 session) :use-module (ice-9 session)
:use-module (ice-9 receive)) :use-module (ice-9 receive))
(begin-deprecated
;; Prevent `export' from re-exporting core bindings. This behaviour
;; of `export' is deprecated and will disappear in one of the next
;; releases.
(define iota #f)
(define map #f)
(define map-in-order #f)
(define for-each #f)
(define list-index #f)
(define member #f)
(define delete #f)
(define delete! #f)
(define assoc #f))
(export (export
;;; Constructors ;;; Constructors
;; cons <= in the core ;; cons <= in the core
@ -70,7 +84,7 @@
list-tabulate list-tabulate
;; list-copy <= in the core ;; list-copy <= in the core
circular-list circular-list
;; iota ; exported below iota ; Extended.
;;; Predicates ;;; Predicates
proper-list? proper-list?
@ -164,12 +178,12 @@
reduce-right reduce-right
unfold unfold
unfold-right unfold-right
;; map ; exported below map ; Extended.
;; for-each ; exported below for-each ; Extended.
append-map append-map
append-map! append-map!
map! map!
;; map-in-order ; exported below map-in-order ; Extended.
pair-for-each pair-for-each
filter-map filter-map
@ -193,19 +207,19 @@
break! break!
any any
every every
;; list-index ; exported below. list-index ; Extended.
;; member ; exported below ; Extended. member ; Extended.
;; memq <= in the core ;; memq <= in the core
;; memv <= in the core ;; memv <= in the core
;;; Deletion ;;; Deletion
;; delete ; exported below ; Extended. delete ; Extended.
;; delete! ; exported below delete! ; Extended.
delete-duplicates delete-duplicates
delete-duplicates! delete-duplicates!
;;; Association lists ;;; Association lists
;; assoc ; exported below ; Extended. assoc ; Extended.
;; assq <= in the core ;; assq <= in the core
;; assv <= in the core ;; assv <= in the core
alist-cons alist-cons
@ -1027,7 +1041,3 @@
(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 map-in-order for-each list-index member delete delete! assoc)

2
srfi/srfi-13.scm
View file

@ -45,7 +45,7 @@
(begin-deprecated (begin-deprecated
;; Prevent `export' from re-exporting core bindings. This behaviour ;; Prevent `export' from re-exporting core bindings. This behaviour
;; of `export' is deprecated and will disappear in one f the next ;; of `export' is deprecated and will disappear in one of the next
;; releases. ;; releases.
(define string->list #f) (define string->list #f)
(define string-copy #f) (define string-copy #f)