diff options
author | Gary Houston <ghouston@arglist.com> | 2001-07-06 21:10:47 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2001-07-06 21:10:47 +0000 |
commit | 99f59e93b517f163b00e3cbe47bc65cd0c209a0b (patch) | |
tree | d58964b477dd5d6a47d5d2c03dd20fabb57e8eae /srfi/srfi-1.scm | |
parent | 373f4948c5117514a71fbe87ab1e15a138956e49 (diff) | |
download | guile-99f59e93b517f163b00e3cbe47bc65cd0c209a0b.tar.gz |
* 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.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r-- | srfi/srfi-1.scm | 36 |
1 files changed, 23 insertions, 13 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index cc53adc79..4c361a57e 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -60,6 +60,20 @@ :use-module (ice-9 session) :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 ;;; Constructors ;; cons <= in the core @@ -70,7 +84,7 @@ list-tabulate ;; list-copy <= in the core circular-list - ;; iota ; exported below + iota ; Extended. ;;; Predicates proper-list? @@ -164,12 +178,12 @@ reduce-right unfold unfold-right - ;; map ; exported below - ;; for-each ; exported below + map ; Extended. + for-each ; Extended. append-map append-map! map! - ;; map-in-order ; exported below + map-in-order ; Extended. pair-for-each filter-map @@ -193,19 +207,19 @@ break! any every - ;; list-index ; exported below. - ;; member ; exported below ; Extended. + list-index ; Extended. + member ; Extended. ;; memq <= in the core ;; memv <= in the core ;;; Deletion -;; delete ; exported below ; Extended. -;; delete! ; exported below + delete ; Extended. + delete! ; Extended. delete-duplicates delete-duplicates! ;;; Association lists - ;; assoc ; exported below ; Extended. + assoc ; Extended. ;; assq <= in the core ;; assv <= in the core alist-cons @@ -1027,7 +1041,3 @@ (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 map-in-order for-each list-index member delete delete! assoc) |