This is the mail archive of the
guile@cygnus.com
mailing list for the Guile project.
ice-9/string-fun.scm touchup
- To: guile@cygnus.com
- Subject: ice-9/string-fun.scm touchup
- From: thi <ttn@mingle.glug.org>
- Date: Sun, 6 Jun 1999 04:17:47 -0700
- Reply-to: ttn@netcom.com
hi,
this patch changes "define" to "define-public" for three procedures in
ice-9/string-fun.scm. this is against a recent cvs checkout (i notice
the most recent modification to the file was in 1997, so it shouldn't be
a big deal to apply).
thi
----------------------------------
Index: string-fun.scm
===================================================================
RCS file: /cvs/guile/guile/guile-core/ice-9/string-fun.scm,v
retrieving revision 1.2
diff -c -p -w -c -r1.2 string-fun.scm
*** string-fun.scm 1997/10/22 22:27:33 1.2
--- string-fun.scm 1999/06/06 11:11:28
***************
*** 127,140 ****
(ret (make-shared-substring str 0 end)
(make-shared-substring str (1+ end))))))
! (define (split-before-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))
((not (pred (string-ref str n))) (loop (1+ n)))
(else (ret (make-shared-substring str 0 n)
(make-shared-substring str n))))))
! (define (split-after-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))
--- 127,140 ----
(ret (make-shared-substring str 0 end)
(make-shared-substring str (1+ end))))))
! (define-public (split-before-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))
((not (pred (string-ref str n))) (loop (1+ n)))
(else (ret (make-shared-substring str 0 n)
(make-shared-substring str n))))))
! (define-public (split-after-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))
***************
*** 142,148 ****
(else (ret (make-shared-substring str 0 (1+ n))
(make-shared-substring str (1+ n)))))))
! (define (split-discarding-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))
--- 142,148 ----
(else (ret (make-shared-substring str 0 (1+ n))
(make-shared-substring str (1+ n)))))))
! (define-public (split-discarding-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))