scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add comment

This commit is contained in:
vibr 2005-04-10 15:15:55 +00:00
parent a44c53bc67
commit 0c7c957f2b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/lib/url.scm
View File

@ -251,6 +251,10 @@
;;; Unparse a http-url record into its corresponding Request_URI ;;; Unparse a http-url record into its corresponding Request_URI
;;; The following holds (apart from multiple slashes in the path,
;;; which are removed by url-string->http-url):
;;; (http-url->url-string (url-string->http-url <request-uri-string>)) == <request-uri-string>
(define (http-url->url-string http-url) (define (http-url->url-string http-url)
(let* ((host (http-url-host http-url)) (let* ((host (http-url-host http-url))
@ -280,7 +284,8 @@
(string-append scheme-and-host-string port-string path-string query-string))) (string-append scheme-and-host-string port-string path-string query-string)))
;;; Unparse the http-url-path field of an http-url record into its corresponding part of the Request_URI ;;; Unparse the http-url-path field of an http-url record into its
;;; corresponding part of the Request_URI
(define (http-url-path->path-string http-url-path) (define (http-url-path->path-string http-url-path)
(fold-right (fold-right