[Wisp-cvs] wisp/modules frer.wim,1.9,1.10

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

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