Update of /cvsroot/wisp/wisp/modules/format
In directory usw-pr-cvs1:/tmp/cvs-serv5715/modules/format
Modified Files:
as.wim
Log Message:
Made format/as.wim avoid |string-length| in favour of |length|.
Index: as.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/format/as.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- as.wim 4 Sep 2002 14:26:24 -0000 1.8
+++ as.wim 7 Sep 2002 21:58:06 -0000 1.9
@@ -22,7 +22,7 @@
(my sep #f
(case seplen
(string? (set! sep seplen)
- (set! seplen (string-length sep)))
+ (set! seplen (length sep)))
(char? (set! sep seplen)
(set! seplen 1)))
(collect
@@ -32,9 +32,9 @@
emit)
(if (not (null? items))
(let ((rcurrent-line (list (car items)))
- (column (string-length (car items))))
+ (column (length (car items))))
(for-each (lambda (item)
- (my new-column (+ column seplen (string-length item))
+ (my new-column (+ column seplen (length item))
(if (<= new-column width)
(begin
(cons! rcurrent-line item)
@@ -42,7 +42,7 @@
(begin
(emit (reverse rcurrent-line))
(set! rcurrent-line (list item))
- (set! column (string-length item))))))
+ (set! column (length item))))))
(cdr items))
(emit (reverse rcurrent-line)))))))))
@@ -67,7 +67,7 @@
(wrap-text (map (serial char->integer
integer->string)
(string->list item))
- (- 72 (string-length ".byte "))
+ (- 72 (length ".byte "))
#\,)))
((cons? item)
(case (car item)
|
