Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5826/modules
Modified Files:
strings.wim
Log Message:
Made strings.wim avoid |vector-length| in favour of |length|.
Index: strings.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/strings.wim,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- strings.wim 7 Sep 2002 21:56:49 -0000 1.69
+++ strings.wim 7 Sep 2002 21:58:33 -0000 1.70
@@ -83,7 +83,7 @@
vec))
(define (vector->string vec)
- (let* ((i (vector-length vec))
+ (let* ((i (length vec))
(str (make-string i)))
(decr! i)
(while (not (negative? i))
|
