[Wisp-cvs] wisp/modules/format as.wim,1.8,1.9

[<di...@us...>]

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)