[Wisp-cvs] wisp/modules url.wim,1.7,1.8

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

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

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

Index: url.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/url.wim,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- url.wim	26 Aug 2002 16:18:19 -0000	1.7
+++ url.wim	7 Sep 2002 21:56:17 -0000	1.8
@@ -37,7 +37,7 @@
 (define (urldecode s)
   (collect-string
     (lambda (emit)
-      (my l (string-length s)
+      (my l (length s)
         (let (loop (i 0))
           (if (< i l)
             (case s[i] tc
@@ -56,7 +56,7 @@
 (define (parse-uri s)
   ; is the scheme given?
   (my scheme-colon (let (loop (i 0))
-                     (and (< i (string-length s))
+                     (and (< i (length s))
                           s[i] -> c
                           (not (char=? c #\/))
                           (if (char=? c #\:)
@@ -73,7 +73,7 @@
       ; getting along better with erroneous implementations.
       (my fragment-hash (find-last-char #\# s (or scheme-colon 0))
         ; void fragmentid is equivalent to no fragmentid
-        (if (eqv? fragment-hash (- (string-length s) 1))
+        (if (eqv? fragment-hash (- (length s) 1))
           (set! fragment-hash #f))
         (my fragment (and fragment-hash
                           (urldecode s[(+ fragment-hash 1) ...]))