[Wisp-cvs] wisp/modules unicode.wim,1.6,1.7

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

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5167/modules

Modified Files:
	unicode.wim 
Log Message:
Made unicode.wim avoid |string-length| in favour of |length|.

Index: unicode.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/unicode.wim,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- unicode.wim	26 Aug 2002 16:12:29 -0000	1.6
+++ unicode.wim	7 Sep 2002 21:56:34 -0000	1.7
@@ -13,7 +13,7 @@
 (define (string->utf-8 s)
   (collect-string
     (lambda (emit)
-      (my l (string-length s)
+      (my l (length s)
         (my i 0
           (while (< i l)
             (char-utf-8 s[i] emit)