[Wisp-cvs] wisp/modules/format elfexec.wim,1.10,1.11

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

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

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

Index: elfexec.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/format/elfexec.wim,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- elfexec.wim	26 Aug 2002 16:18:19 -0000	1.10
+++ elfexec.wim	7 Sep 2002 21:58:14 -0000	1.11
@@ -47,7 +47,7 @@
           (relatives '())) ; list of (address . target)
       (let* (((emit-string s)
                (cons! rcode s)
-               (incr! current (string-length s)))
+               (incr! current (length s)))
              ((emit-absolute target)
                (cons! absolutes (cons current target))
                (cons! rcode (make-c8string 4 #\U+00))