[Wisp-cvs] wisp/modules locale.wim,1.4,1.5

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

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