Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5584/modules
Modified Files:
encoding.wim
Log Message:
Made encoding.wim avoid |string-length| in favour of |length|.
Index: encoding.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/encoding.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- encoding.wim 26 Aug 2002 16:18:18 -0000 1.8
+++ encoding.wim 7 Sep 2002 21:57:41 -0000 1.9
@@ -19,8 +19,8 @@
(while (not (zero? i))
(decr! i)
(set! matrix[i] (integer->char i))))
- (assert (= (string-length old) (string-length new)))
- (my i (string-length old)
+ (assert (= (length old) (length new)))
+ (my i (length old)
(while (not (zero? i))
(decr! i)
(set! matrix[(char->integer old[i])] new[i])))
@@ -827,7 +827,7 @@
name
"$,[name]"))
(cond
- ((and (>= (string-length s) 4)
+ ((and (>= (length s) 4)
(string=? s[0 ... 3] "ibm")
(not (char=? s[3] #\-)))
(set! s (string-append "ibm-" s[3 ...]))))
|
