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

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

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

Modified Files:
	frer.wim 
Log Message:
Made frer.wim avoid |vector-length| in favour of |length|.

Index: frer.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/frer.wim,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- frer.wim	7 Sep 2002 21:57:21 -0000	1.10
+++ frer.wim	7 Sep 2002 21:58:20 -0000	1.11
@@ -62,7 +62,7 @@
                         (emit #\U+0A)
                         (emit (pack-be-integer x 4)))
                        (else (raise 'frerrable-structure? x))))
-          (vector?   (my l (vector-length x)
+          (vector?   (my l (length x)
                        (loop l)
                        (emit #\U+0F)
                        (emit #\U+07)