[Wisp-cvs] wisp/modules codecoll.wim,1.9,1.10

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

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

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

Index: codecoll.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/codecoll.wim,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- codecoll.wim	26 Aug 2002 16:18:18 -0000	1.9
+++ codecoll.wim	7 Sep 2002 21:57:28 -0000	1.10
@@ -190,7 +190,7 @@
                              ((symbol? item)
                               (cons! labels (cons item ip)))
                              ((string? item)
-                              (decr! ip (string-length item)))
+                              (decr! ip (length item)))
                              ((cons? item)
                               (case (car item)
                                 ((reltetra tetra) (decr! ip 4))
@@ -205,7 +205,7 @@
                            (cond
                              ((symbol? item))
                              ((string? item)
-                              (decr! ip (string-length item)))
+                              (decr! ip (length item)))
                              ((cons? item)
                               (case (car item)
                                 ((reltetra)