guile/guile-core/srfi srfi-1.scm

[Gary Houston]

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)