[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/srfi srfi-1.scm
From: |
Gary Houston |
Subject: |
guile/guile-core/srfi srfi-1.scm |
Date: |
Tue, 03 Jul 2001 11:54:43 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Gary Houston <address@hidden> 01/07/03 11:54:43
Modified files:
guile-core/srfi: srfi-1.scm
Log message:
* srfi-1.scm (iota, map, for-each, list-index, member, delete,
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.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-1.scm.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
Patches:
Index: guile/guile-core/srfi/srfi-1.scm
diff -u guile/guile-core/srfi/srfi-1.scm:1.5
guile/guile-core/srfi/srfi-1.scm:1.6
--- guile/guile-core/srfi/srfi-1.scm:1.5 Tue Jul 3 09:19:23 2001
+++ guile/guile-core/srfi/srfi-1.scm Tue Jul 3 11:54:43 2001
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/srfi srfi-1.scm,
Gary Houston <=