*replace call of PARSE-REQUEST-URI (relict of old URL parser)
with call of URL-STRING->HTTP-URL
This commit is contained in:
parent
2dcdd41ed9
commit
9342e0e593
|
@ -207,7 +207,7 @@
|
||||||
;; (future) NOTE: With this, a redirection may change the
|
;; (future) NOTE: With this, a redirection may change the
|
||||||
;; protocol in use (currently, the server only supports one of
|
;; protocol in use (currently, the server only supports one of
|
||||||
;; it). This might be inapplicable.
|
;; it). This might be inapplicable.
|
||||||
(parse-request-uri new-location-uri socket options)))))
|
(url-string->http-url new-location-uri)))))
|
||||||
|
|
||||||
(make-request "GET"
|
(make-request "GET"
|
||||||
new-location-uri
|
new-location-uri
|
||||||
|
|
Loading…
Reference in New Issue