[Wisp-cvs] wisp/modules unix.wim,1.42,1.43

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

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

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

Index: unix.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/unix.wim,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- unix.wim	4 Sep 2002 14:30:44 -0000	1.42
+++ unix.wim	7 Sep 2002 21:56:27 -0000	1.43
@@ -186,7 +186,7 @@
              (else (loop rest)))))))
 
 (define (basename n (suffix #f))
-  (my stop (string-length n)
+  (my stop (length n)
     (if (zero? stop)
       (string-copy "")
       (begin
@@ -200,14 +200,14 @@
                         (not (eq? n[(- start 1)] #\/)))
               (decr! start))
             (if suffix
-              (my sl (string-length suffix)
+              (my sl (length suffix)
                 (if (> (- stop start) sl)
                   (if (string=? n[(- stop sl) ... stop] suffix)
                     (decr! stop sl)))))
             n[start ... stop]))))))
 
 (define (dirname n)
-  (my sep (string-length n)
+  (my sep (length n)
     (if (zero? sep)
       (string-copy ".")
       (begin