Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5450/modules
Modified Files:
locale.wim
Log Message:
Made locale.wim avoid |string-length| in favour of |length|.
Index: locale.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/locale.wim,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- locale.wim 26 Aug 2002 16:18:19 -0000 1.4
+++ locale.wim 7 Sep 2002 21:57:15 -0000 1.5
@@ -107,13 +107,13 @@
(my l
(let (loop (i 0)
(term '(#\space #\_ #\. #\@)))
- (if (= i (string-length name))
+ (if (= i (length name))
(map (lambda #f #f) term) ; fill in the remaining slots
(my this (and (char=? name[i] (car term))
(my j (or (find-first-char
(cut memv <> (cdr term))
name)
- (string-length name))
+ (length name))
(hold (my part name[(+ i 1) ... j]
(case (car term)
((#\space #\@) ; downcase language and mod
|
