rename HTTP-URL->URI-STRING to HTTP-URL->URL-STRING
This commit is contained in:
parent
1e93a6cb9f
commit
e5c8cae17f
|
@ -247,7 +247,7 @@
|
||||||
|
|
||||||
;;; Unparse a http-url record into its corresponding Request_URI
|
;;; Unparse a http-url record into its corresponding Request_URI
|
||||||
|
|
||||||
(define (http-url->uri-string http-url)
|
(define (http-url->url-string http-url)
|
||||||
|
|
||||||
(let* ((host (http-url-host http-url))
|
(let* ((host (http-url-host http-url))
|
||||||
(scheme-and-host-string
|
(scheme-and-host-string
|
||||||
|
|
|
@ -65,7 +65,7 @@
|
||||||
http-url-query
|
http-url-query
|
||||||
|
|
||||||
uri-string->http-url
|
uri-string->http-url
|
||||||
http-url->uri-string))
|
http-url->url-string))
|
||||||
|
|
||||||
(define-interface ftp-library-interface
|
(define-interface ftp-library-interface
|
||||||
(export copy-port->port-binary
|
(export copy-port->port-binary
|
||||||
|
|
Loading…
Reference in New Issue