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

add function HTTP-URL-PATH->PATH-STRING (unparses path in http-url record into string)

This commit is contained in:
vibr 2005-04-05 18:43:23 +00:00
parent e5c8cae17f
commit da10de6309
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/lib/url.scm
View File

@ -276,8 +276,14 @@
(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
(define (http-url-path->path-string http-url-path)
(fold-right
(lambda (segment res)
(string-append "/" (escape-segment segment) res))
""
http-url-path))
;;; decoding and encoding Request-URIs: