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