(url-encode-string str)
Converts str to a properly encoded URL string. Returns str unchanged if it is not a string.
Norman Walsh, <ndw@nwalsh.com>
(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))