[Wisp-cvs] wisp/modules balanced.wim,1.6,1.7

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

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

Modified Files:
	balanced.wim 
Log Message:
Made balanced.wim avoid |string-length| in favour of |length|.

Index: balanced.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/balanced.wim,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- balanced.wim	26 Aug 2002 16:12:27 -0000	1.6
+++ balanced.wim	7 Sep 2002 21:57:53 -0000	1.7
@@ -28,7 +28,7 @@
 (define (b3->integer s)
   (my fault? #f
     (my r 0
-      (my l (string-length s)
+      (my l (length s)
         (my i 0
           (while (< i l)
             (set! r (* r 3))
@@ -44,7 +44,7 @@
 (define (b5->integer s)
   (my fault? #f
     (my r 0
-      (my l (string-length s)
+      (my l (length s)
         (my i 0
           (while (< i l)
             (set! r (* r 5))