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

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/07/06 14:10:47

Modified files:
        guile-core/srfi: ChangeLog srfi-1.scm srfi-13.scm 

Log message:
        * 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.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.43&tr2=1.44&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-1.scm.diff?cvsroot=OldCVS&tr1=1.7&tr2=1.8&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-13.scm.diff?cvsroot=OldCVS&tr1=1.8&tr2=1.9&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.43 
guile/guile-core/srfi/ChangeLog:1.44
--- guile/guile-core/srfi/ChangeLog:1.43        Fri Jul  6 07:00:21 2001
+++ guile/guile-core/srfi/ChangeLog     Fri Jul  6 14:10:47 2001
@@ -1,3 +1,10 @@
+2001-07-06  Gary Houston  <address@hidden>
+
+       * 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  <address@hidden>
 
        * srfi-19.scm (priv:locale-reader): don't need open-output-string.
Index: guile/guile-core/srfi/srfi-1.scm
diff -u guile/guile-core/srfi/srfi-1.scm:1.7 
guile/guile-core/srfi/srfi-1.scm:1.8
--- guile/guile-core/srfi/srfi-1.scm:1.7        Tue Jul  3 13:18:39 2001
+++ guile/guile-core/srfi/srfi-1.scm    Fri Jul  6 14:10:47 2001
@@ -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)
Index: guile/guile-core/srfi/srfi-13.scm
diff -u guile/guile-core/srfi/srfi-13.scm:1.8 
guile/guile-core/srfi/srfi-13.scm:1.9
--- guile/guile-core/srfi/srfi-13.scm:1.8       Thu Jun 14 11:23:28 2001
+++ guile/guile-core/srfi/srfi-13.scm   Fri Jul  6 14:10:47 2001
@@ -45,7 +45,7 @@
 
 (begin-deprecated
  ;; 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.
  (define string->list #f)
  (define string-copy #f)