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