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)
|
