This is the mail archive of the guile@cygnus.com mailing list for the Guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

ice-9/string-fun.scm touchup


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 ""))

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]