From 4cf7528804e08fa92c05c0c5ac5ae2eeaed0c48e Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 24 Aug 2001 22:00:45 +0000
Subject: [PATCH] (string-for-each-index): New exported proc.

---
 srfi/srfi-13.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm
index ba1ff6fc1..b623c405e 100644
--- a/srfi/srfi-13.scm
+++ b/srfi/srfi-13.scm
@@ -1,17 +1,17 @@
 ;;;; srfi-13.scm --- SRFI-13 procedures for Guile
 ;;;;
 ;;;; 	Copyright (C) 2001 Free Software Foundation, Inc.
-;;;; 
+;;;;
 ;;;; This program is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU General Public License as
 ;;;; published by the Free Software Foundation; either version 2, or
 ;;;; (at your option) any later version.
-;;;; 
+;;;;
 ;;;; This program is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 ;;;; General Public License for more details.
-;;;; 
+;;;;
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with this software; see the file COPYING.  If not, write to
 ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -56,7 +56,7 @@
  (define string-downcase #f)
  (define string-downcase! #f))
 
-(export 
+(export
 ;;; Predicates
  ;; string? string-null?       <= in the core
  string-any string-every
@@ -134,6 +134,7 @@
  string-unfold
  string-unfold-right
  string-for-each
+ string-for-each-index
 
 ;;; Replicate/Rotate
  xsubstring string-xcopy!