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
|