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

* boot-9.scm (keyword->symbol, display-usage-report): Changed

Browse source 
length --> string-length.
This commit is contained in:
Mikael Djurfeldt 1997-09-16 20:16:57 +00:00
parent 51916da6be
commit 11b0526116
2 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
Tue Sep 16 22:09:50 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (keyword->symbol, display-usage-report): Changed
length --> string-length.
Mon Sep 15 23:39:54 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (iota): Renamed list-reverse! --> reverse!

22
ice-9/boot-9.scm
View file

@ -292,7 +292,7 @@
(define (keyword->symbol kw)
(let ((sym (keyword-dash-symbol kw)))
(string->symbol (substring sym 1 (length sym)))))
(string->symbol (substring sym 1 (string-length sym)))))
(define (kw-arg-ref args kw)
(let ((rem (member kw args)))
@ -1152,9 +1152,9 @@
(map (lambda (x) (display (keyword-symbol x)) (display " "))
opts-proper)))
arg-name))
(middle-part (if (and (< (length left-part) 30)
(< (length help) 40))
(make-string (- 30 (length left-part)) #\ )
(middle-part (if (and (< (string-length left-part) 30)
(< (string-length help) 40))
(make-string (- 30 (string-length left-part)) #\ )
"\n\t")))
(display left-part)
(display middle-part)
@ -3761,14 +3761,14 @@
(define (split-before-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (length str)) (ret str ""))
((= 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 (length str)) (ret str ""))
((= n (string-length str)) (ret str ""))
((not (pred (string-ref str n))) (loop (1+ n)))
(else (ret (make-shared-substring str 0 (1+ n))
(make-shared-substring str (1+ n)))))))
@ -3776,7 +3776,7 @@
(define (split-discarding-predicate pred str ret)
(let loop ((n 0))
(cond
((= n (length str)) (ret str ""))
((= 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 (1+ n)))))))
@ -3814,15 +3814,15 @@
;;; Very simple:
;;;
;;; (define-public ((string-prefix-predicate pred?) prefix str)
;;; (and (<= (length prefix) (length str))
;;; (pred? prefix (make-shared-substring str 0 (length prefix)))))
;;; (and (<= (string-length prefix) (string-length str))
;;; (pred? prefix (make-shared-substring str 0 (string-length prefix)))))
;;;
;;; (define-public string-prefix=? (string-prefix-predicate string=?))
;;;
(define-public ((string-prefix-predicate pred?) prefix str)
(and (<= (length prefix) (length str))
(pred? prefix (make-shared-substring str 0 (length prefix)))))
(and (<= (string-length prefix) (string-length str))
(pred? prefix (make-shared-substring str 0 (string-length prefix)))))
(define-public string-prefix=? (string-prefix-predicate string=?))