Source Code
(define (url-encode-string str)
;; Returns str with all special characters %-encoded
(if (string? str)
(let loop ((charlist (string->list str)) (url ""))
(if (null? charlist)
url
(loop (cdr charlist)
(string-append url (url-encode-char (car charlist))))))
str))