[Wisp-cvs] wisp/modules strings.wim,1.69,1.70

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

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