summaryrefslogtreecommitdiffstats
path: root/htmlform.scm
diff options
context:
space:
mode:
Diffstat (limited to 'htmlform.scm')
-rw-r--r--htmlform.scm16
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)))))