mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* string-fun.scm (split-before-predicate, split-after-predicate,

Browse source 
split-discarding-predicate): Make these public.  (Thanks to
Thien-Thi Nguyen.)
This commit is contained in:
Jim Blandy 1999-06-14 16:55:08 +00:00
parent ab7113597e
commit 1011dac034
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/string-fun.scm
View file

@ -1,6 +1,6 @@
;;;; string-fun.scm --- string manipulation functions
;;;;
;;;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
;;;; Copyright (C) 1995, 1996, 1997, 1999 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
@ -127,14 +127,14 @@
(ret (make-shared-substring str 0 end)
(make-shared-substring str (1+ end))))))
(define (split-before-predicate pred str ret)
(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 (split-after-predicate pred str ret)
(define-public (split-after-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))
@ -142,7 +142,7 @@
(else (ret (make-shared-substring str 0 (1+ n))
(make-shared-substring str (1+ n)))))))
(define (split-discarding-predicate pred str ret)
(define-public (split-discarding-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (string-length str)) (ret str ""))