guile/guile-core/srfi srfi-13.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/14 11:23:28

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

Log message:
        Prevent `export' from re-exporting core bindings.

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

Patches:
Index: guile/guile-core/srfi/srfi-13.scm
diff -u guile/guile-core/srfi/srfi-13.scm:1.7 
guile/guile-core/srfi/srfi-13.scm:1.8
--- guile/guile-core/srfi/srfi-13.scm:1.7       Sun Jun  3 16:33:31 2001
+++ guile/guile-core/srfi/srfi-13.scm   Thu Jun 14 11:23:28 2001
@@ -43,6 +43,19 @@
 
 (define-module (srfi srfi-13))
 
+(begin-deprecated
+ ;; Prevent `export' from re-exporting core bindings.  This behaviour
+ ;; of `export' is deprecated and will disappear in one f the next
+ ;; releases.
+ (define string->list #f)
+ (define string-copy #f)
+ (define string-fill! #f)
+ (define string-index #f)
+ (define string-upcase #f)
+ (define string-upcase! #f)
+ (define string-downcase #f)
+ (define string-downcase! #f))
+
 (export 
 ;;; Predicates
  ;; string? string-null?       <= in the core