(substring/shared): Export as replacement since we now have a version

in the core.

diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm
index 00d5d93..b9b8d03 100644 (file)
--- a/srfi/srfi-13.scm
+++ b/srfi/srfi-13.scm
@@ -1,6 +1,6 @@
 ;;; srfi-13.scm --- String Library
 
-;;     Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
+;;     Copyright (C) 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -117,7 +117,7 @@
  )
   :replace (string->list string-copy string-fill!
            string-upcase! string-upcase string-downcase! string-downcase
-           string-index)
+           string-index substring/shared)
   )
 
 (cond-expand-provide (current-module) '(srfi-13))