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) ...]))
|
