Update of /cvsroot/scsh/scsh/scsh/lib
In directory usw-pr-cvs1:/tmp/cvs-serv31307
Modified Files:
string-lib.scm
Removed Files:
strings.txt
Log Message:
Added a small fix to string-lib.scm. Removed obsolete strings.txt.
Index: string-lib.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/lib/string-lib.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** string-lib.scm 2001/03/11 18:52:59 1.3
--- string-lib.scm 2001/03/21 22:27:41 1.4
***************
*** 1131,1135 ****
;;; string-skip string char/char-set/pred [start end]
;;; string-skip-right string char/char-set/pred [start end]
! ;;; string-count char/char-set/pred string [start end]
;;; There's a lot of replicated code here for efficiency.
;;; For example, the char/char-set/pred discrimination has
--- 1131,1135 ----
;;; string-skip string char/char-set/pred [start end]
;;; string-skip-right string char/char-set/pred [start end]
! ;;; string-count string char/char-set/pred [start end]
;;; There's a lot of replicated code here for efficiency.
;;; For example, the char/char-set/pred discrimination has
***************
*** 1221,1225 ****
! (define (string-count criterion s . maybe-start+end)
(let-string-start+end (start end) string-count s maybe-start+end
(cond ((char? criterion)
--- 1221,1225 ----
! (define (string-count s criterion . maybe-start+end)
(let-string-start+end (start end) string-count s maybe-start+end
(cond ((char? criterion)
--- strings.txt DELETED ---
|