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

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Thien-Thi Nguyen <address@hidden>       01/08/24 15:00:45

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

Log message:
        (string-for-each-index): New exported proc.

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

Patches:
Index: guile/guile-core/srfi/srfi-13.scm
diff -u guile/guile-core/srfi/srfi-13.scm:1.9 
guile/guile-core/srfi/srfi-13.scm:1.10
--- guile/guile-core/srfi/srfi-13.scm:1.9       Fri Jul  6 14:10:47 2001
+++ guile/guile-core/srfi/srfi-13.scm   Fri Aug 24 15:00:45 2001
@@ -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!