[Wisp-cvs] wisp/modules encoding.wim,1.8,1.9

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

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