summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2001-07-06 21:10:47 +0000
committerGary Houston <ghouston@arglist.com>2001-07-06 21:10:47 +0000
commit99f59e93b517f163b00e3cbe47bc65cd0c209a0b (patch)
treed58964b477dd5d6a47d5d2c03dd20fabb57e8eae /srfi/srfi-1.scm
parent373f4948c5117514a71fbe87ab1e15a138956e49 (diff)
downloadguile-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.scm36
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)