diff options
Diffstat (limited to 'htmlform.scm')
-rw-r--r-- | htmlform.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/htmlform.scm b/htmlform.scm index c7ce1dc..02dc63a 100644 --- a/htmlform.scm +++ b/htmlform.scm @@ -489,7 +489,7 @@ (define len (string-length str)) (define (sub str) (cond - ((string-index str #\%) + ((strsrch:string-index str #\%) => (lambda (idx) (if (and (< (+ 2 idx) len) (string->number (substring str (+ 1 idx) (+ 2 idx)) 16) @@ -505,7 +505,7 @@ (sub str)) (define (form:split-lines txt) - (let ((idx (string-index txt #\newline)) + (let ((idx (strsrch:string-index txt #\newline)) (carriage-return (integer->char #xd))) (if idx (cons (substring txt 0 @@ -522,11 +522,11 @@ (if (symbol? txt) (set! txt (symbol->string txt))) (set! txt (string-subst txt " " "" "+" " ")) (do ((lst '()) - (edx (string-index txt #\=) - (string-index txt #\=))) + (edx (strsrch:string-index txt #\=) + (strsrch:string-index txt #\=))) ((not edx) lst) (let* ((rxt (substring txt (+ 1 edx) (string-length txt))) - (adx (string-index rxt #\&)) + (adx (strsrch:string-index rxt #\&)) (name (cgi:process-% (substring txt 0 edx)))) (set! lst (append @@ -670,7 +670,7 @@ (set! http:crlf (string (string-ref line 0) #\newline))) (if (eof-object? line) line alist)) (let ((len (string-length line)) - (idx (string-index line #\:))) + (idx (strsrch:string-index line #\:))) (if (char-whitespace? (string-ref line (+ -1 len))) (set! len (+ -1 len))) (and idx (do ((idx2 (+ idx 1) (+ idx2 1))) @@ -691,9 +691,9 @@ (let* ((request-uri (cadr request-line)) (len (string-length request-uri))) (and (> len 3) - (string-index request-uri #\?) + (strsrch:string-index request-uri #\?) (substring request-uri - (+ 1 (string-index request-uri #\?)) + (+ 1 (strsrch:string-index request-uri #\?)) (if (eqv? #\/ (string-ref request-uri (+ -1 len))) (+ -1 len) len))))) |