Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5491/modules
Modified Files:
frer.wim
Log Message:
Made frer.wim avoid |string-length| in favour of |length|.
Index: frer.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/frer.wim,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- frer.wim 26 Aug 2002 16:18:18 -0000 1.9
+++ frer.wim 7 Sep 2002 21:57:21 -0000 1.10
@@ -40,7 +40,7 @@
(emit (pack-be-integer (char->integer x) 2)))
(char? (emit #\U+13)
(emit (pack-be-integer (char->integer x) 4)))
- (c8string? (my l (string-length x)
+ (c8string? (my l (length x)
(cond
((<= l 255) (emit #\U+14)
(emit (integer->char l))
|
