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