mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 05:20:16 +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> Mon Sep 15 23:39:54 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (iota): Renamed list-reverse! --> reverse! * boot-9.scm (iota): Renamed list-reverse! --> reverse!

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

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